VBA EXCEL

achille -  
Polux31 Messages postés 7219 Statut Membre -
Bonjour,

ma config = Windows XP / Internet Explorer 6.0

Je cherche à savoir si un fichier nommé "structure.xls" existe dans un répertoire, je n'arrive pas à activer FileExists.

ChDir vl_chemins
If FileSystemObject.FileExists("Structure.xls") = True Then
Workbooks.Open ("sructure".xls")
End If

Bien cordialement

Achille

1 réponse

  1.
    Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    Il faut la cocher la référence Microsoft Scripting Runtime. Ensuite il faut déclarer un objet FileSystemObject et passer le chemin complet du fichier.

    Exemple: 
    Private Sub Test()
Dim pathFullFile As String
Dim fso As FileSystemObject

Set fso = New FileSystemObject
pathFullFile = "C:\mon dossier\monFichier.txt"

If fso.FileExists(pathFullFile ) = True Then
     Msgbox "Trouvé !!!"
Else
     Msgbox "Perdu :o("
End If

Set fso = Nothing
End Sub


    ;o)
    0