J'ai jamais dis que c'est impossible
Voici un exemple vite fait, il utilise le pilotage d'Excel via OLE Automation
voici le code
P.S.1 Il faut l'adapter selon ta propre table pour trouver la bonne colonne pour insérer les imagesCode (Text):MonExcel est un objet OLE dynamique
MonExcel = allouer un objet OLE "Excel.Application"
MaCellule est un objet Automation dynamique
i est un entier
sFic est une chaîne
// Demande le nom du fichier
sFic = fSélecteur("", "", "Choisissez le fichier d'exportation", ...
"Fichiers Excel (*.xls) *.xls", "xls", fselCrée + fselExiste)
// Si le nom n'a pas été fourni, abandonne l'export
// Sinon, exporte le contenu du champ Table TABLE_TABLE1
SI sFic <> "" ALORS TableVersExcel(TABLE_F_Param_banque, sFic)
SI ErreurDétectée() ALORS
Erreur(ErreurInfo())
RETOUR
FIN
fRepCrée(fRepExe()+"\Temp")
MonExcel>>Visible=Vrai
MonExcel>>WorkBooks>>Open(sFic)
i = 2
POUR TOUTE LIGNE DE TABLE_F_Param_banque
HExtraitMémo(F_Param_banque,logo,fRepExe()+"\Temp\img_"+i+".jpg")
// on sélectionne sa cellule
MaCellule = MonExcel>>activeSheet>>Range("C"+i)
// on insère une image
MonExcel>>ActiveSheet>>Shapes>>AddPicture( fRepExe()+"\Temp\img_"+i+".jpg", False, True, ...
MaCellule>>Left,MaCellule>>Top,MaCellule>>Width,MaCellule>>Height)
i++
FIN
MonExcel>>ActiveWorkBook>>Save()
MonExcel>>quit()
libérer(MonExcel)
P.S.2 Pour ne pas afficher le fichier pendant l’opération : MonExcel>>Visible=Faux
P.S.3 Tu peux aussi créer directement ton fichier Excel sans passer par le sélecteur
P.S.4 Si t'utilise plusieurs vignettes pour une seule image alors on peut voir ce qu'on peut faire plus tard
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Bon Dev.
Chargement...