Sujet Précédent Sujet Suivant

VBA EXCEL

Fermé
achille - 3 juin 2010 à 08:56
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 3 juin 2010 à 09:11
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
A voir également:

1 réponse

Réponse 1 / 1
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
3 juin 2010 à 09:11
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