Comment utiliser FileExists ?

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:

---

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 ?

Bonjour

Excuse moi, mais est-ce que ton code

Code:

---

My.Computer.FileSystem

---

ne serait pas du VB.net ?

Starec

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...

bonjour

Tu peux utiliser

Code:

---

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:

---

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

---

michel

Ca fonctionne aussi sur des répertoire réseau de type "\\192.1.1.25\Rep\Rep1\fichier.txt" ?

Merci beaucoup.
Ca fonctionne parfaitement.