Ping depuis Excel ?

[bob12]

Bonjour,

Qqn pourrait-il m'aider à faire la chose suivante ?:

Je souhaite qu'excel fasse un ping sur l'addresse ip d'un autre ordinateur sur mon réseau et affecte une valeur en fonction du retour : 1 si OK, 0 si pas de retour du ping.

Mille mercis d'avance.

Bob

 

[argon1515]

Re : Ping depuis Excel ?

Bonjour Bob 12 voici un exemple de code :
Sub test()
Dim strHost As String
strHost = "192.168.0.2"
Shell "ping " & strHost, vbNormalFocus
End Sub

Pour une solution beaucoup plus complete et beaucoup plus complexe ( enfin pour mon niveau en VBA !)
Access - Les Sources - Club d'entraide des développeurs francophones

Bon courage