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