Existence d'un fichier [Résolu/Fermé]

Signaler
-
 néné -
Bonjour,

Est-il possible de contrôler l'existence d'un fichier dans le code Excel VBA ???

En fait, je cherche à charger une image en fonction de la sélection d'une ComboBox mais si l'image n'existe pas, je souhaite charger une image défaut...

Ex:

If <condition: image existe> then
Image1.Picture=LoadPicture("chemin de l'image")
Else
Image1.Picture=LoadPicture("chemin de l'imge par défaut")
End if

4 réponses

bjr

essaie ceux-ci

Private Sub UserForm_Initialize()
On Error GoTo Errorimage
Image1.Picture = LoadPicture("chemin de l'image")
Errorimage:
Image1.Picture = LoadPicture("chemin de l'imge par défaut")
End Sub
J'ai fait ce que vous m'avez dit, est quoiqu'il arrive, il me charge l'image par défaut.
Par contre, je ne l'ai pas mis dans UserForm_Initialize() puisque le traitement que je veux effectuer se trouve dans un ComboBox1_Click
voici le code a adapter

Private Sub ComboBox1_Click()
On Error GoTo finerreur
Image1.Picture = LoadPicture("c:/windows/plume1.bmp")
GoTo Fin
finerreur:
Image1.Picture = LoadPicture("c:/windows/Rhododendron.bmp")
Fin:
End Sub