importation d'une image depuis un dossier dans un userform en fonction du choix fait dans une combobox

Version imprimable

28/04/2018, 11h15
madaroums1

importation d'une image depuis un dossier dans un userform en fonction du choix fait dans une combobox

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

1ere partie

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

Code:

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

29/04/2018, 09h35
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 8-)
29/04/2018, 09h37
Pierre Fauconnier

Salut.

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

Code:

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.

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

Code:

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

03/05/2018, 18h31
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