Discussion :

[stigma]

Bonjour,
J'ai testé ce "bout de code", bravo pour le boulot bbil. Seulement lorsqu'on teste un PC sur un réseau ("\\PC1"), si le PC est éteint, il faut attendre 1 mn pour reprendre la main. J'avais aussi utilisé un simple ShellExecute mais le résultat est le même. J'aurais voulu savoir comment abréger le temps de recherche.
Merci

[Vld44]

J'ai le même problème, et passer par un "ping" ne change rien dans la mesure où si le repertoire/fichier n'existe pas on a les mêmes symptômes et que ce n'est pas vérifiable ...

[Zaal]

Peut etre en utilisant FSO, et en testant l existance du fichier avant de l ouvrir

Code :

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

1
2
3
4
5
6
Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
 
        If (fs.FileExists(chemin_fichier)) Then
'open le fichier
end if

[avigeilpro]

Ou un simple :

Code :

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

1
2
3
4
 
If Dir(chemin_fichier) <> "" then
     ...
End If