Existence d'un fichier

Résolu/Fermé

nino11 - 19 déc. 2007 à 18:28
néné - 19 déc. 2007 à 19:42

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

A voir également:

Existence d'un fichier
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide

4 réponses

Réponse 1 / 4

néné
19 déc. 2007 à 18:40

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

Réponse 2 / 4

nino11
19 déc. 2007 à 19:08

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

Réponse 3 / 4

nino11
19 déc. 2007 à 19:11

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

Réponse 4 / 4

néné
19 déc. 2007 à 19:42

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

Discussions similaires

comment donner les droits sur fichier partage

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters