Discussion :

[djodjo57300]

Bonjour à tous,

Je voudrais qu'une photo s'affiche en fonction de l'information de ma "ComboBox1".
Mes photos se trouvent dans le dossier "Photo Identitée". A savoir que mon dossier se trouve sur une clé USB, donc la Lettre du chemin risque de changer en fonction de l'ordinateur que l'on utilise.
pourriez vous m'aider à générer le code adéquate en me donnant quelques explications car je suis débutant en VBA

Merci par avance,

djodjo

[boisgontierjacques]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub UserForm_Initialize()
  Me.ChoixPhoto.RowSource = "A2:" & "A" & [A65000].End(xlUp).Row  ' nom de photos dans colonne A
End Sub
 
Private Sub ChoixPhoto_Change()
  répertoirePhoto = "c:\photos"
  If Dir(répertoirePhoto & "\" & Me.ChoixPhoto & ".jpg") <> "" Then
     Me.Image1.Picture = LoadPicture(répertoirePhoto & "\" & ChoixPhoto & ".jpg")
  Else
     Me.Image1.Picture = LoadPicture
  End If
End Sub

Jacques Boisgontier

[djodjo57300]

Re,

Désolé cela ne fonctionne pas je reçois un message d'erreur:



Cordialement,

Toubabou