Sauvegarde d'une image..

[sassouki]

Salut forum,

Mon pb est le suivant :
J'ai des images chacune dans une ligne d'une colonne ('F' par exemple), et le nom de cette image dans une autre colonne sur la même ligne. Comment maintenant sauvegarder ces images suivant leurs noms dans un fichier à une destination donnée?

Merci infinément pour votre aide.

a++

 

[MichelXld]

bonjour Yazou , Raphou96 et Staple1600

cette démo de Ti pourra certainement t'aider

Lien supprimé


bonne soiree
MichelXld

 

[sassouki]

Je vous remercie pour cette référence, elle m'est très utile..

sauf que pour terminer mon exemple je veux dans la procédure qui suit, déterminer le numero de la ligne dont laquel réside l'image.

'-------------------------------------
Sub SauveImages()
Dim pictu As IPictureDisp, Sh As Shape
Dim nomPic As String
With ActiveSheet
For Each Sh In ActiveSheet.Shapes
Sh.CopyPicture xlScreen, xlBitmap
Set pictu = PastePicture(xlBitmap)
'SavePicture pictu, ThisWorkbook.Path & '\\' & Sh.Name & '.bmp'

nomPic = Range('I' & (içi le numero de la ligne)).Value

SavePicture pictu, ThisWorkbook.Path & '\\' & nomPic & '.bmp'

Next Sh
End With
End Sub
'------------------------------------------------------

Votre m'est indisponsable. Merci pour tout.

a+

 

[sassouki]

salut à tous,

voila j'ai pu récupérer la ligne en cours en utilisant la simple instruction suivante : Sh.TopLeftCell.Row


Encore merci forum. Et à la prochaine 😉 🙂


!!! Rien ne vaut qu'un tavail bien fait !!!