Discussion :

[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 :

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

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

avec cette erreur 52.

Code :

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

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 :

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

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

[adlinformatik]

Merci beaucoup HPJ pour ta réponse en 2017 et je l'ai trouver très utile

Sinon il y a une autre solution on utilison Dir, mais pas trop propre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
on error goto err:
If Dir(CheminServeur(), vbDirectory) = "" Then     
 
 
...
 
err:
if err.Number = 52 then
msgbox ""
else
     err.Number
end if