Copier une photo contenue dans UserForm

[Pierre31]

Bonjour à toutes et tous,

En ce jour ensoleillé voici ma question:

Dans Excel j'ai un UserForm dans lequel je met une photo copiée en cliquant sur le choix proposée dans une ListBox(ListPhotos) comme ci-dessous:

Private Sub ListPhotos_Click()
Application.ScreenUpdating = True
SelectP = ListPhotos.Value
Direct = Sheets("ENTREE").Range("G1")
mongif9 = Direct & "\" & SelectP
HistoPhot.PhotSelect.Picture = LoadPicture(Filename:=mongif9)
End Sub

En cliquant sur un bouton (Copie Photo) Je souhaite pouvoir copier cette photo et ensuite la coller dans un document par exemple Word que j'ouvre en parallèle. Pour l'instant je n'arrive pas à copier cette sacré photo.

D'avance merci à celles et ceux qui me répondront.

Cordialement

Pierre

 

[Odesta]

Re : Copier une photo contenue dans UserForm

Bonjour

et en passant par Excel, su une page cachée ?

    sheets("FeuilleCachée").Pictures.Insert("P:\chemin\img.bmp").Copy

Ce qui a pour effet de la mettre dans le presse-papié

C'est une piste, puisque je n'ai pas trouvé depuis le Userform

Cdt
Olivier

 

[Pierre31]

Bonjour Olivier,

Si tu passe par là, excuse moi de cette réponse aussi tardive mais j'étais passé à un autre sujet.
Merci pour ta réponse, effectivement c'est une bonne piste.

Cordialement

Pierre