Problème existence d'un fichier (image)

Bonjour

J'ai un formulaire avec une listbox avec des noms, 2 textbox indiquant les noms et prénom et une zone image.

J'arrive à faire apparaître les images dans la zone image en fonction de la listbox.

Mon problème: mettre une image de défaut si l'image est inexistante quand il n'y a pas de photo correspondante. Sinon ca me marque "error Run-time 53".

Voici mon fichier.

dupond dupuit game image defaut martinet
8essai.xlsm (31.05 Ko)

Bonjour,

Sans doute...

    '...
    On Error GoTo noImg
    'chargement image...
    Exit Sub
noImg:
    'chargement image par défaut
End Sub

Cordialement.

Bonjour

Ca fonctionne pas.

Private Sub ListBox1_Click()

Ligne = ListBox1.ListIndex + 2

TextBox1 = Sheets("Encadrement").Cells(Ligne, 1) 'Nom

TextBox2 = Sheets("Encadrement").Cells(Ligne, 2) 'Prénom

Image1.Picture = LoadPicture(Sheets("Encadrement").Cells(Ligne, 4)) 'va chercher les chemins d'accès dans la 4e colonne

On Error GoTo noImg

'chargement image...

Exit Sub

noImg:

Image1.Picture = LoadPicture(Sheets("Encadrement").Cells(7, 7)) 'chargement image par défaut

End Sub

C'est bon ça fonctionne.

je ne savais pas qu'il fallait mettre On error ... au tout début

et exit Sub à la fin de la procédure.

Merci pour ton aide

Fallait suivre les indications... A+ !

Rechercher des sujets similaires à "probleme existence fichier image"