Tiens g fait ca :
Sub ping_IP()
IP = Range("F4")
Dim BatFile As String
BatFile = "C:\ping.bat"
ChDir "C:\"
Open BatFile For Append Shared As #2
Print #2, "ping " & IP
Close #2
Shell "C:\ping.bat"
End Sub
En fait avant tu crées un ping.bat avec le bloc notes, dans lequel tu mets juste un # sur la 1ere ligne, tu l'enregistres directement sur C:\, puis tu places ton adresse IP en F4 (ou tu changes le code, tu peux même faire une selection par une listbox...). Donc ca lance bien le ping, mais je n'arrive pas à récupérer le résultat... Je cherche!!