Discussion :

[fufi42]

Bonjour,

Il y a un poste informatique dans mon entreprise qui fait office de superviseur.
Ce poste ouvre des documents csv. sur le réseau, il effectue des calculs avec et il les fermes.
Il utilise pour cela la fonction Workbooks.open et Workbooks.close.
Il fait ces calculs toutes les 15 minutes. Le problème c'est que si l'un des postes informatiques et éteint le programme plante parce que le chemin et introuvable. Le problème c'est que les autres documents csv pourrait toujours être traités car ils sont indépendant. Il faut donc acquitter l'option debug pour relancer le programme.

Comment faire pour éviter ce problème, il faudrait juste que le programme ignore si un chemin et introuvable.

Merci d'avance pour vos réponses.

[Philippe Tulliez]

Bonjour,
Tu peux intercepter l'erreur avec l'instruction on error et réagir en fonction.

[fufi42]

Merci pour votre réponse, ça marche.

[Oliv-]

Bjr,
DAns une procedure ayant un timeout super long j'ai utilisé cette fonction
où Address est le nom de la machine

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function IsOnline(Address)
    Dim strText
 Set oShell = CreateObject("wscript.shell")
    IsOnline = False
    Set oExecObj = oShell.Exec("%comspec% /c ping -a -n 1 -w 20 " & Address)
    Do While Not oExecObj.StdOut.AtEndOfStream
        strText = oExecObj.StdOut.ReadAll()
        If InStr(strText, "ponse de") > 0 Then
            IsOnline = True
            Exit Function
        End If
    Loop
End Function