Bonjour,
J'aurai besoin de votre aide pour un code VBA que j'ai commencé et que j'ai pas su finir étant donné que je suis débutante.
Il s'agit d'effectuer un ping pour un site / un poste régulièrement (chaque 15secondes par exemple) et par la suite pouvoir faire une somme de temps d'attente et finalement faire un graphique qui montre tout ça.
Le soucis pour l'instant est que que je lance le ping il s'affiche sur une case et après 15 secondes se relance sur la même case. En d'autres mots, je n'arrive pas à faire afficher les résultats des ping les uns au dessous des autres. Pourriez vous m'aider à le modifier?
et si vous pouvez me donner des astuces pour le calcul de temps d'attente ou le graphique, j'en serai reconnaissante.
Merci beaucoup d'avance
Voici le code:
Sub Ping()
'créer une boucle
i = 6
'le ping s'affichera sur la ligne 6, colonne 1
While (ActiveSheet.Cells(i, 1) <> "")
Adresse = ActiveSheet.Cells(i, 1)
'variable pour excécuter la commande
Dim PingExe As String
PingExe = "C:\Windows\System32\PING.exe " + Adresse
'Créer un Script Shell et l'excécuter à travers C:\Windows\System32\PING.exe
Set Sh = CreateObject("WScript.Shell")
Set ShellExe = Sh.Exec(PingExe)
'Afficher le résultat sur Excel
lecture = ShellExe.StdOut.ReadAll
ActiveSheet.Cells(i, 2) = lecture
i = i + 1
Application.OnTime Now + TimeValue("00:00:15"), "ping"
Wend
End Sub
Bookmarks