existence d'un fichier Résolu/Fermé

Question

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

néné · Answer

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

nino11 · Answer

J'ai fait ce que vous m'avez dit, est quoiqu'il arrive, il me charge l'image par défaut.

nino11 · Answer

Par contre, je ne l'ai pas mis dans UserForm_Initialize() puisque le traitement que je veux effectuer se trouve dans un ComboBox1_Click

néné · Answer

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

Existence d'un fichier

4 réponses

Discussions similaires