recuperation adresse fichier image

[billyboy]

Bonjour le forum,
il me faudrait resoudre la problématique suivante et j'ai encore une fois besoin de votre aide.

A l'aide de la fonction ci après,
Application.Dialogs(xlDialogInsertPicture).Show
Je choisis une photo et celle-ci se mets en place dans ma feuille excel
jusque la pas de problème
seulement voila, je souhaiterai recuperer l'adresse de cette photo dans la cellule A1 par exemple
sous cette forme:
C:\Documents and Settings\monpc\test.jpg

Merci de vous penchez sur mon problème.

 

[Hulk]

Re : recuperation adresse fichier image

Hello,

Essaye ce code

Dim Rep As String, Fichier
Rep = CurDir$
ChDir "C:"
Fichier = Application.GetOpenFilename

ActiveSheet.Pictures.Insert(Fichier).Select

[A1] = Fichier

Cdt, Hulk.

 

[gwenlorin]

Re : recuperation adresse fichier image

J'aurais dit à peu près la même chose avec un filtre sur les fichiers pouvant être sélectionnés.

Fichier = Application.GetOpenFilename("Images (*.bmp;*.gif;*.jpg),*.bmp;*.gif;*.jpg")

 

[gwenlorin]

Re : recuperation adresse fichier image

J'aurais dit à peu près pareil avec un filtre sur les fichiers à ouvrir

Fichier = Application.GetOpenFilename("Images (*.bmp;*.gif;*.jpg),*.bmp;*.gif;*.jpg")

 

[billyboy]

Re : recuperation adresse fichier image

Merci à vous deux pour votre aide précieuse, ça fonctionne à merveille

a+