Discussion :

[madaroums1]

Bonjour
Débutant en vba, je pédale depuis deux jours pour trouver le moyen d'insérer une photo provenant d'un dossier dans un userform en fonction du choix que j'ai effectué depuis une combobox.
La liste de la combobox se compose de noms rangés dans la colonne A de ma feuille (je suis passé par RowSource pour la définir).
Pour chaque nom de la liste j'ai le nom de la photo rangé en colonne V sur la même ligne.
Le nom de chaque photo est sous la forme "AD0001.jpeg".
Les images sont dans mon dossier images.
Quelqu'un pourrait-il m'aiguiller vers une solution?
Merci d'avance
Amicalement
Franck

[madaroums1]

Bonsoir
J'ai déjà résolu la sélection de la cellule contenant le nom de la photo avec ceci:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub nameComboBox_Change()
     With nameComboBox
        Label26.Caption = Sheets("list").Range(.RowSource)(.ListIndex + 1, 22).value  '=> affiche le nom de la photo dans "Label26" du userform
      
        chargePhoto = Sheets("list").Range(.RowSource)(.ListIndex + 1, 22).Text  '=> recupere le nom de la photo
        Image1.Picture = LoadPicture("C:\Users\Franck\Desktop\monFichier\Photos" & chargePhoto & ".jpg") '=> ça devrait charger l'image du dossier dans "Image1" sur mon userform mais arrivé à ce point ça bugue!! ça me dit "Image1.Picture = Nothing"
     End With

End Sub

J'ai donc un peu avancé mais là, je suis vraiment au point mort..
Si quelqu'un peut m'aider

[Transitoire]

Bonjour,
Etes vous sur que le format de votre photo est accepté? faites déjà une entrée manuelle. dans le Userform, et vous verrez si ça accepte manuellement?
Cordialement

[Pierre Fauconnier]

Salut.

il manque le backslash entre le chemin et le nom du fichier.

Code :

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

Image1.Picture = LoadPicture("C:\Users\Franck\Desktop\monFichier\Photos\" & chargePhoto & ".jpg")

De plus, tu parles de fichiers JPEG dans ton message mais ton code cherche un fichier JPG... Assure-toi que le nom complet (chemin compris) est bien reconstitué.

Tu gagnerais en lisibilité en passant par une variable que tu pourrais tester. Ca fait une ligne de code en plus mais ça clarifie l'écriture et ça facilite les tests.

[patricktoulon]

bonjour
si effectivement chargephoto ne comporte pas l'extention du fichier
tu peux tenter la correction dynamique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub nameComboBox_Change()
    Dim chemin As String,chargePhoto as String
    chemin = "C:\Users\Franck\Desktop\monFichier\Photos\"
    With nameComboBox
        chargePhoto = Sheets("list").Range(.RowSource)(.ListIndex + 1, 22).Text  '=> recupere le nom de la photo
        Label26.Caption = chargePhoto  '=> affiche le nom de la photo dans "Label26" du userform
        chemin = chemin & chargePhoto
        chemin = IIf(Dir(chemin & ".jpg") = "", chemin & ".jpeg", chemin & ".jpg")
       Image1.Picture = LoadPicture(chemin)    '=> ça devrait charger l'image du dossier dans "Image1" sur mon userform mais arrivé à ce point ça bugue!! ça me dit "Image1.Picture = Nothing"
    End With
End Sub

comme ca que se soit .jpg ou .jpeg on la trouve

[madaroums1]

Bonsoir à tous
Comme indiqué par Pierre, il manquait bien le "\".
La photo apparait maintenant, il ne me reste plus qu'à la redimensionner, mais là, je sais faire.
Merci aussi à Patrick pour sa solution.
Amicalement
Franck