Problème d'affichage de ping sur excel (urgent svp)

[ManarSRAMA0]

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

[Fotis1991]

Welcome to the forum.

I mooved your thread to "Non English" sub-forum. Pls take some minutes to read forum rules because:

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)