Bonjour bonjour
Dans un userform de saisie j'ai un bouton de commande qui me permet d'afficher une image jpg à partir d'un dossier de mon PC.
Je suis débutant en VBA
Ma question est la suivante , quand je valide le userform, cela me crée ma nouvelle feuille excel mais ne renvoie pas l'image que j'ai sélectionné via mon module Image du userform
(Je réalise des fiches automatisées avec image).
Private Sub CommandButton4_Click()
Dim TheFile As Variant
Dim ThePath As String
Dim UserDir As String
ThePath = ""
UserDir = CurDir
TheFile = Application.GetOpenFilename("image(*.jpg),*.jpg" )
If TheFile = False Then ChDir UserDir: Exit Sub
With Me.Image1
.Picture = LoadPicture(TheFile)
.PictureSizeMode = fmPictureSizeModeZoom
End With
ChDir UserDir
End Sub