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

2 réponses


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
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

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