PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → importer des images depuis EXCEL VERS HYPERFILESQL
importer des images depuis EXCEL VERS HYPERFILESQL
Débuté par ARISOFT, 12 sep. 2017 14:54 - 1 réponse
#1
Membre enregistré
9 messages
Posté le 12 septembre 2017 - 14:54
Bonjjour,
j'aimerais savoir si , existe -t-il une méthode ou un moyen d'importer des images
depuis excel vers une base hyperfileSQL ?

Dans le fichier EXCEL , je veux récupérer dans une application windev :
- La photo ;
-La reference ;
- Le Numero de pièce;
-Le numero d'ordre.

Bien cordialement
#2
Membre enregistré
940 messages
Popularité : +66 (68 votes)
Posté le 12 septembre 2017 - 15:58
bonjour,

avec ce bout de code vous pourrez extraire une image et la sauvegarder en BMP.
Il va falloir parcourir les images, qui sont accédée par leur index. ( >>Shapes(x) )

_file est une chaîne=fSélecteur(SysRep(srMesDocuments),"","fichier excel","Excel (*.XLSX)"+TAB+"*.XLSX","XLSX")
_image est un Image
xl est un objet OLE "Excel.Application" // créer l'objet dynamique
xl>>workbooks>>Open(_file) // ouvre le classeur

xl>>ActiveSheet>>Shapes(1)>>Copypicture(1,2)// Copie la première image dans le presse papier option de CopyPicture( xlScreen(1) , xlBitmap(2) )

SI PressePapierFormat(ppfBitmap)
PressePapier(_image) // Recopie le contenu du presse papier dans un champ image
dSauveImageBMP(_image,fExtraitChemin(_file,fDisque+fFichier+fRépertoire)+"_img1.BMP")
xl>>workbooks>>Close()
Info("ok")
FIN
→ Revenir à WINDEV 2024