Bonjour à tous,
Pour ma part j'utilise cette partie de code qui fonctionne très bien. A adapter sur la programmation de la Combobox7
Dans le cas présent les images et le classeur sont dans le même dossier et j'utilise
ThisWorkbook.Path
, ce qui me permet de me "balader" avec mon dossier un peu partout.......
'programmation pour l'affichage des images dans l'userform
Dim MyImage As String
Dim MyImage2 As String
Dim Chemin As String
Chemin = ThisWorkbook.Path & "\" 'ThisWorkbook.path ... renvoi le répertoire ou est stocké le classeur contenant ton code.
'La propriété .FullName retourne le chemin complet du fichier ActiveWorkbook.Name
'La propriété .Path retourne uniquement le chemin du dossier
MyImage = ComboBox2.Value
If Dir(Chemin & MyImage & ".jpg") = "" Then 'Si une erreur (image non présente)
Image1.Picture = LoadPicture(Chemin & "inexistante.jpg") 'Correspond au nom de l'image intitulée "Inexistante"
Else
Image1.Picture = LoadPicture(Chemin & MyImage & ".jpg") 'le nom de l'image doit être identique au nom de la Combobox
End If