Bonjour

Voilà, maintenant que j'ai trouvé comment inserer mon image avec Combobox, et j'aimerais savoir comment faire afin qu'il prenne en compte les format gif et jpeg. Car les images de mon dossier ont les deux formats. Ave mon code celui ci ne prend que le format gif.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CB_Nom_Poisson_change()
 
'==========Cela fonctionne==========
Dim fichier As String
fichier = "D:\Plongée\Poissons\" & CB_Nom_Poisson & ".gif"
On Error GoTo gesterr
Image1.Picture = LoadPicture(fichier)
Exit Sub
gesterr::
fichier = "D:\Plongée\Images\Gif\Plongée ca baigne.gif"
Resume
End Sub
Merci