Bonjour,

Comment afficher une photo sur un formulaire (donc un UserForm....lol ) ?

J'ai pioché sur youtube (dont voici le lien :http://https://www.youtube.com/watch?v=dUehVNjO70c - Le titre de ce Tutoriel est : Comment afficher des images provenant d'un dossier ).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Image_CreateurApplication_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
 
Dim Photo As String
Dim TypeImage As String
Dim dossier As String
Dim PotoCreateur As String
 
Photo = "Laurent Crendal"
TypeImage = ".jpg"
dossier = "I:\_____IMAGES\BELOTTE 2020 - Excel et VBA 2019\Personnes\"
PhotoCreateur = dossier & Photo & TypeImage
 
activesheet.shapes.addpicture Filename:=PhotoCreateur & TypeImage,linktomsotrue,left:=45,top:=50,width:=200,height:=200
End Sub
Rien ne 'affiche (surtout la photo).

Pouvez-vous m'aider ?

merci