photos

[elodie77]

slt tt le monde,


est ce que, par le plus grand des hasards, qq 1 saurait comment importer une table excel sous access en faisant en sorte que les photos soient importées aussi ?

Je pensais qu'en les mettant en format objet OLE, ça marcherait mais visiblement c pas le cas!

merci par avance

[MichelXld]

bonjour Elodie


Cela ne sert à rien de multiplier les posts pour une meme questions


plusieurs exemples t'ont déja été proposés

http://www.excel-downloads.com/compo...BaseAccess.zip


Un autre exemple qui utilise l'objet Stream (uniquement disponible à partir de la version ADO 2.5)

http://www.excel-downloads.com/compo...Access_V02.zip


si tes images sont dans la feuille de calcul , tu dois prealablement les enregistrer sur le disque dur

Sub extraireImagesFeuille()
Dim Pict As Picture
Dim nb As Byte
Application.screenUpdating = False
For Each Pict In worksheets('Feuil1').Pictures
Pict.copyPicture ' copier image
With activeSheet.chartObjects.Add(0, 0, Pict.Width, Pict.Height).Chart
.Paste 'coller l'image dans graphique
.Export thisWorkbook.Path & '\\' & Pict.Name & '.gif', 'GIF'
End With
nb = activeSheet.chartObjects.Count
activeSheet.chartObjects(nb).Delete
Next Pict
Application.screenUpdating = True
End Sub


bonne journée
MichelXld

Message édité par: michelxld, à: 02/11/2005 09:57

[elodie77]

le pb c qu'au bureau g excel et access 97 et que je ne peux donc pas visualiser les fichiers au format access qui sont en exemple donc ça me sert pas à grand chose!!!

je vais regarder ce que donne ton code et je re pr dire si c ok

merci.

[elodie77]

au fait, ton code je le met dans quoi ? ds access quand j'importe la base ou ailleurs?

merci