VBA EXCEL

achille -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

VBA EXCEL
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Déplacer colonne excel - Guide
Si ou excel - Guide
Excel compter cellule couleur sans vba - Guide

1 réponse

Réponse 1 / 1

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 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)

Votre réponse