[VBA] Erreur 52 lorsqu'il y a déconnexion au serveur [Bug report] [Résolu]

[banzaii]

bonjour,
j'utilise excel 2003.
J'ai un ordinateur (ordi1) qui relié à un autre (ordi2).
Mon "application vba" (qui se trouve sur l'ordi1) lit un fichier se trouvant sur l'ordi2 mais lorsqu'il y a un bug de connection entre ces 2 ordi j'ai un message erreur 52. Je voudrais pouvoir détecter cette erreur mais je ne sais pas du tout comment faire.

Voilà ce que j'ai fait mais ça bug sur cette ligne

Code :

 If Dir("\\ordi2\c\fichiertexte\1.txt") = "" Then

avec cette erreur 52.

Code :

1
2
3
4
5
6
 
If Dir("\\ordi2\c\fichiertexte\1.txt") = "" Then
  MsgBox ("Le fichier n'existe pas!" & Chr(13) & Chr(10) & _
  "Veuillez relancer l'apllication"), vbCritical, "Erreur..."
  Exit Sub
  End If

[banzaii]

Par contre si le fichier n'est pas présent sur l'ordi 2 il n'y a pas d'erreur 52...

[banzaii]

si vous ne comprenez pas ce que j'ai écrit dites le moi j'essayerai de faire mieux

[HPJ]

Chez moi aussi j'ai cette erreur si le dossier n'existe pas...
Tu dois d'abord tester l'existence du dossier avant de tester celle du fichier.

[HPJ]

En fait la fonction Dir échoue avec un chemin réseau si le chemin n'existe pas...
Il faut utiliser le FSO après l'avoir ajouter en référence (Microsoft Scripting Runtime)

Code :

1
2
3
4
5
6
7
8
9
    Dim fs As Scripting.FileSystemObject
 
    Set fs = New Scripting.FileSystemObject
 
    If Not fs.FileExists("\\ordi2\c\fichiertexte\1.txt") Then
        MsgBox ("Le fichier n'existe pas!" & Chr(13) & Chr(10) & _
        "Veuillez relancer l'apllication"), vbCritical, "Erreur..."
        Exit Sub
    End If

[banzaii]

Merci beaucoup, ça fonctionne impec!
Je ne conaissait pas cette méthode, faut dire que je suis au tout début de l'apprentissage du vba!!!