photos

bonjour Elodie


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


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

Lien supprimé


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

Lien supprimé


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

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.

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

merci