bonjour
voila je voudrais faire ca :
Dim path As String
Private Sub Command1_Click()
Dim reponse As Integer
path = App.path & "ping.txt"
reponse = Shell("ping 192.51.51.5 > " & path)
End Sub
en theorie ca marche pa de message d'erreur mais mon fichier ping.txt n'esst pas cree pkoi ??