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
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