sNom_entreprise est une chaîne
logo est une Image
sLocation_code est une chaîne
//x est une chaîne
t est un entier = 0
nLigne est un entier = 2
cMonFicxls est xlsDocument = xlsOuvre("C:\Users\hp\Documents\TOUTES LES ENTREPRISES.xlsx")
SI ErreurDétectée() ALORS
Erreur("Un fichier d'initialisation n'a pas été trouvé!")
SINON
TANTQUE nLigne <= 207
logo = xlsDonnée(cMonFicxls,nLigne,1)
sLocation_code = xlsDonnée(cMonFicxls,nLigne,2)
sNom_entreprise = xlsDonnée(cMonFicxls,nLigne,3)
iAperçu(iPDF,"C:\Message\Message_"+sNom_entreprise)
iImprimeEtat(ETAT_APERCU_CHEQUES_VERSO_BIENVENU,logo,sLocation_code)
nLigne++
FIN
FIN

Vous avez appelé la FONCTION dChargeImage.
L'élément '' n'a pas été trouvé.

NombreDeFeuille, i, NbrImage est un entier
PictureName est une chaîne
xl, MyWorksheets est un objet automation dynamique
MyPicture est une Image


xl = allouer un objet automation "Excel.Application"
IF xl = Null THEN
Trace("Erreur 'Excel.application' n'est pas installé sur ce poste !")
RETOUR

END
xl>>Visible = True
xl>>WorkBooks>>Open(ComplèteRep(fRepExe())+"excel avec deux images.xlsx")

NombreDeFeuille = xl>>Sheets>>Count
FOR i=1 _TO_ NombreDeFeuille
Trace(xl>>Sheets(i)>>Name)
END

WHEN EXCEPTION IN
MyWorksheets = xl>>Worksheets("F2")

MyWorksheets>>Activate

NbrImage = MyWorksheets>>Shapes>>Count
Trace(NbrImage)

IF NbrImage > 0 THEN
FOR i=1 _TO_ NbrImage
MyWorksheets>>Shapes(i)>>Select
MyWorksheets>>Shapes(i)>>CopyPicture(xlScreen, xlBitmap) // copie dans le presse papier l'image
IF PressePapierFormat(ppfBitmap) THEN
IF PressePapier(MyPicture) THEN
PictureName = ChaîneConstruit("d:\temp\extractions\pic_%1.jpg", i)
dSauveImageJPEG(MyPicture, PictureName)
END
END
END
END
DO
Erreur("Oup'sss")
END