VBA Excel / telnet

salut,

pour executer une requete comme executer une cellule en utilisant telnet voici le code que tu peux mettre:
Sub commande_OnClick()
Dim cell
'Exécute la commande.
'cell = Shell("C:\WINDOWS\system32\cmd.EXE", 1)
cell = Shell("telnet" & ActiveCell, 1)
End Sub

il te permettra de cliquer sur la cellule dans laquelle se trouve ton @IP puis tu cliques sur le bouton que tu auras créé et
la tu pourras remarquer qu'il va directement te connecter sous telnet avec l'@ en question.

voilààààà
------------------------------------------------------------------------------------------
Merci de préciser si le problème a été résolu en cliquant sur "résolu". Merci

Personne ne peut m'aider?

help help!!
merci

pour le telnet il faut siplement utiliser shell :
prog --> racine systeme ex. : c:\windows\system32\
retval = Shell(prog & "cmd /k telnet 10.0.0.1 ", 1)

pour tout ce qui est recupération de données (pas pour telnet ...) ex ping etc. ...
je conseille simplement de :
créer un fichier *.bat avec un scripte vba ex :

Public Function ouvrir_fichier(chemin As String, nomfich As String) As Object

'******************************************************************
'* cette fonction sert à ouvrir un fichier en écriture *
'******************************************************************

' exemple : dim a as object
' set a = ouvrir_fichier("c:\Mes Documents", "toto.txt")
' a.WriteLine("Mon text")
' ceci permet d'ajouter des lignes dans le fichier toto.txt contenu dans c:\Mes Documents"
' en écrivant mon text sur la dernière ligne du fichier.

Dim rep As String
Dim fich As String
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

rep = chemin
fich = nomfich
tout = rep & "\" & fich
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(tout)
Set ouvrir_fichier = f.OpenAsTextStream(ForAppending, TristateUseDefault)

End Function

en suite de lancer à la main car en VBA cela ne fonctionne pas quand on le lance par Shell, si quelqun a une soluce ...

en fin aller lire le fichier :
Public Function LectureFichierText(rep As String, fich As String, onglet As Integer)

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim oFS As Object
Dim Boucle As Long
Dim MonFichier, Texte, Reponse, Msg As String
Dim CheminFichier As String
Dim a As Object
Dim ligne As String
Dim ip As String

CheminFichier = rep & "\" & fich

Set oFS = CreateObject("Scripting.FileSystemObject")
Set MonFichier = oFS.OpenTextFile(CheminFichier, ForReading)

While Not MonFichier.AtEndOfStream
Texte = MonFichier.ReadLine
msgbox Texte
Wend

MonFichier.Close

End Function