VBA Excel / telnet Fermé

Question

Bonjour,Et bien je souhaiterai a partir d'un bouton excel en VBA lancé un telnet sur un routeur.Je clic sur le bouton et ca m ouvre une fenetre dos "telnet.Merci d'avance

Kaiznico · Answer

Personne ne peut m'aider?

kaiznico · Answer

help help!!merci

natas69 · Answer

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

slider113 · Answer

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

VBA Excel / telnet

4 réponses

Discussions similaires