Contrôler l'existence d'un fichier

Résolu/Fermé

nino11 - 19 déc. 2007 à 13:55
néné - 20 déc. 2007 à 17:51

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:

Contrôler l'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

2 réponses

Réponse 1 / 2

Utilisateur anonyme
20 déc. 2007 à 16:42

Bonjour,

suggestion :

Option Explicit

Sub TestFichier()

    Dim UnFichier As String, Reponse As Boolean
    
    UnFichier = "C:\mon_image.jpg"
    Reponse = PresenceFichier(UnFichier)
    If (Reponse) Then
        MsgBox "Fichier présent"
    End If

End Sub
'

Function PresenceFichier(varNomFichier) As Boolean
 
    Dim objFSO As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If (objFSO.FileExists(varNomFichier)) Then
        PresenceFichier = True
    Else
        PresenceFichier = False
    End If
    Set objFSO = Nothing

End Function
'

Michel

Réponse 2 / 2

néné
20 déc. 2007 à 17:51

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