contrôler l'existence d'un fichier Résolu

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

Utilisateur anonyme · Accepted Answer

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

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

Contrôler l'existence d'un fichier

2 réponses

Discussions similaires

Newsletters