inserer une image à l'aide d'une combobox

Bonjour

Voilà, je n'arrive pas a trouver ce que je cherche, sur la Faq, j'aimerais inserer une image dans un cadre image, qui change selon les donnée de la combobox, mais mes image sont parfois en .gif, et parfois en .jpeg, est ce que quelqu'un à une solution ??
j'ai ceci pour l'instant :

Code:

---

1 2 3

Private Sub CB_Nom_Poisson_Change() Image1.Picture = LoadPicture("D:\Plongée\Poissons\CB_Nom_Poisson.value") End Sub

---

Merci a vous d'avance
Cordialement
Didier

Voilà, j'ai essayé plusieurs chose mais rien ne vas, il ne trouve pas mon image

voilà ou j'en suis rendu dans le code, mais cela ne change rien a mon problème, car je doit préciser si c'est du gif ou du jpeg

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CB_Nom_Poisson_Change()   Dim fichier As String fichier = "D:\Plongée\Poissons\ " & CB_Nom_Poisson & ".gif" '"E:\Jeu\Ptit Dog\Application\Race de chiens " & ComboBox1 & ".Gif" On Error Resume Next Image1.Picture = LoadPicture(fichier)   If Err <> 0 Then MsgBox "Image indisponible pour le " & CB_Nom_Poisson & Chr(13) & "Vérifier le chemin :" & Chr(13) & fichier, vbExclamation End If End Sub

---

Si quelqu'un à une idée.

Voilà, j'ai essayé plusieurs chose mais rien ne vas, il ne trouve pas mon image

voilà ou j'en suis rendu dans le code, mais cela ne change rien a mon problème, car je doit préciser si c'est du gif ou du jpeg

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CB_Nom_Poisson_Change()   Dim fichier As String fichier = "D:\Plongée\Poissons\ " & CB_Nom_Poisson & ".gif" On Error Resume Next Image1.Picture = LoadPicture(fichier)   If Err <> 0 Then MsgBox "Image indisponible pour le " & CB_Nom_Poisson & Chr(13) & "Vérifier le chemin :" & Chr(13) & fichier, vbExclamation End If End Sub

---

Si quelqu'un à une idée.

Me revoilà

je ne sais plus comment faire, je crois avoir tout essayé, quand je note le chemin direct cela prend bien, a partir du moment ou j'essaie d'incorporer la Combobox, cela ne fonctionne plus.

Si quelqu'un avait la solution.

et le petit plus si vous savez comment faire pour pouvoir choisir soit une image gif ou jpeg

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CB_Nom_Poisson_change()   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

---