Image et ComboBox

Bonjour à tous

J’ai un Userform dans lequel se trouvent une ComboBox et un cadre image.

Je voudrai que lorsque la ComboBox est renseignée l’image concerné affiche une photo déterminée se trouvant dans le même document que mon fichier et sur une clé USB (tout en tenant compte que la lettre des clés USB n’es pas toujours la même en fonction du PC utilisé.

Pourriez-vous m’aider ?

Merci par avance,

Djodjo

Bonjour,

A mettre dans le module de ta Form et adapter les noms des contrôles et l'extension des fichiers image ici, pour l'exemple .jpg :

Private Sub UserForm_Initialize()

    Dim Fichier As String
    Dim Chemin As String
    Dim Extension As String

    Extension = ".jpg"

    Chemin = ThisWorkbook.Path & "\"

    Fichier = Dir(Chemin & "*" & Extension)

    Do While (Len(Fichier) > 0)

        Me.ComboBox1.AddItem Fichier 'ou -> Chemin & Fichier <- si tu veux le chemin complet dans le Combo
        Fichier = Dir()

    Loop

End Sub

Private Sub ComboBox1_Click()

    Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ComboBox1.Text)

End Sub

Hervé.

Re,

Je reçois un message d'erreur lorsque je recopie le code

https://www.cjoint.com/c/ECmsm6CuQRu

Djodjo

Bonjour,

C'est normal, car tes images ne sont pas avec ton classeur mais dans un dossier qui est avec le classeur donc, il te faut rajouter le nom de ce dossier (Galons) dans le chemin :

Private Sub UserForm_Initialize()

    Dim Fichier As String
    Dim Chemin As String
    Dim Extension As String

    Extension = ".jpg"

    Chemin = ThisWorkbook.Path & "\Galons\"

    Fichier = Dir(Chemin & "*" & Extension)

    Do While (Len(Fichier) > 0)

        Me.ComboBox1.AddItem Fichier 'ou -> Chemin & Fichier <- si tu veux le chemin complet dans le Combo
       Fichier = Dir()

    Loop

End Sub

Private Sub ComboBox1_Click()

    Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Galons\" & ComboBox1.Text)

End Sub

Hervé.