Comment utiliser FileExists ?

**Zebulon777** · 14/05/2007, 10h08

Bnjour à tous,
dans une fonction VBA sous Excel, j'essai d'utiliser la fonction FileExists, mais ça ne fonctionne pas.

Voila ce que je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
if My.Computer.FileSystem.FileExists(WFichier) then
msgbox "fichier existant"
else
msgbox "fichier inconnu"
end if

Le code me renvoi l'erreur : "Erreur d'exécution 424, Objet requis"

Qu'est-ce que je fais de mal ?

Invité · 14/05/2007, 10h23

Bonjour

Excuse moi, mais est-ce que ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

My.Computer.FileSystem

ne serait pas du VB.net ?

Starec

**Zebulon777** · 14/05/2007, 10h31

J'en sais fichtrement rien, j'ai trouvé cet exemple, et j'ai juste fait du copier / coller.
En fait j'essai de vérifier qu'un fichier existe ou non...

**SilkyRoad** · 14/05/2007, 10h41

bonjour

Tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub verfierSiFichierExiste_V01()
    Dim Fs As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
    MsgBox Fs.FileExists("C:\dossier\monFichier.txt")
End Sub

Une autre possibilité pour vérifier si un fichier existe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub verfierSiFichierExiste_V02()
    If Dir("C:\dossier\monFichier.txt") = "" Then
        MsgBox "N'existe pas"
        Else
        MsgBox "Existe"
    End If
End Sub