Existence d'un fichier
Résolu
nino11
-
néné -
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
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
Configuration: Windows XP Firefox 2.0.0.11
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 -
-
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
