xyplex
Messages postés3Date d'inscriptionsamedi 6 février 2016StatutMembreDernière intervention13 février 2016
-
Modifié par jordane45 le 7/02/2016 à 01:04
xyplex
Messages postés3Date d'inscriptionsamedi 6 février 2016StatutMembreDernière intervention13 février 2016
-
13 févr. 2016 à 19:01
Bonjour,
J'ai un fichier excel/vbs que je voudrai convertir en html/js, pouvez vous m'aider, svp? Je suis débutant, merci pour votre compréhension.
Le fichier excel contient 3 colonnes avec un bouton "Ping"
Hostname - IP - Result
host1 - 192.168.1.1 - online
En cliquant sur ping, le script ping les host et indique dans la 3e colonne si "online ou offline"
Est ce possible de déposer le fichier excel?sinon voici le script:
Sub Ping()
i = 2
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim colonneNom
Dim colonneIP
Dim colonneResults
colonneNom = "A"
colonneIP = "B"
colonneResults = "C"
ActiveSheet.Select
Total_Lignes = ActiveSheet.UsedRange.Rows.Count
For i = 2 To Total_Lignes
Cells(1, 1).Value = "Name"
Cells(1, 2).Value = "IP"
Cells(1, 3).Value = "Results"
Dim WSHShell As Object
Set WSHShell = CreateObject("Wscript.Shell")
PingCmd = "cmd /c ping.exe -n 1 " & Range("B" & i).Value & " | find /I " & Chr(34) & "octets=" & Chr(34)
PingShell = WSHShell.Run(PingCmd, 0, True)
Select Case PingShell
Case 0
Cells(i, 3).Value = "On Line"
Cells(i, 3).Select
Selection.Font.Bold = True
Case 1
Cells(i, 3).Value = "Off Line"
Cells(i, 3).Select
Selection.Font.Bold = True
End Select
Next
End Sub
Merci d'avance
EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici :ICI
xyplex
Messages postés3Date d'inscriptionsamedi 6 février 2016StatutMembreDernière intervention13 février 2016 7 févr. 2016 à 16:37
Bonjour,
Merci pour la précision sur le vba.
Je fait un petit peu de "dev" pour automatiser ce n'est pas ma formation de base.
En effet, j'avais trouvé les info sur le site tu as cité mais je n'ai pas réussi à m'en sortir.
En me basant sur la section html puis js, le résultat ne donne rien cad en cliquant sur "Ping These" rien ne se passe.
7 févr. 2016 à 16:37
Merci pour la précision sur le vba.
Je fait un petit peu de "dev" pour automatiser ce n'est pas ma formation de base.
En effet, j'avais trouvé les info sur le site tu as cité mais je n'ai pas réussi à m'en sortir.
En me basant sur la section html puis js, le résultat ne donne rien cad en cliquant sur "Ping These" rien ne se passe.