Discussion :

[MaKenSiM]

Bonjour,

J'aurais besoin de votre aide, étant totalement nul en en codage ect...

Je voudrais depuis un fichier excel effectuer un ping d'adresse ip (il y a les 2 dernier bit de l'adresse dans les cellules) avec les 2 premier bit de l'adresse en 10.0. et que le resultat du ping ok colore la case en vert ou le ping ko colore la case en rouge. (Ci joint le fichier excel Ping1.xlsx)

Voila ce que j'aurais aimé faire j'espere avoir etait assez compréhensible dans ma description.

Merci d'avance pour votre aide

[Menhir]

Lancer un ping, ça peut se faire avec un Shell.
Mais récupérer le résultat, c'est une autre paire de manches.
Pas sûr que VBA soit capable de faire ça sans rajouter une autre bibliothèque ou un petit bout de C.

Peut-être en ajoutant Visual Studio Express...
https://visualstudio.microsoft.com/fr/vs/express/
Et cette méthode : https://docs.microsoft.com/fr-fr/dot...s.network.ping

(je n'ai pas testé)

[unparia]

Bonjour

ou en redirigeant le résultat de la commande shell vers un fichier texte à analyser ensuite (si créé).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ping ...... > d:\toto.txt

[unparia]

Je viens de tomber sur cette discussion sur un autre site :
https://stackoverflow.com/questions/...sults-in-excel
Elle est en anglais, mais devrait t'intéresser

[RyuAutodidacte]

Bonsoir,

une façon de faire à adapter
il reste à faire le nécessaire pour la boucle et mettre en vert ou rouge selon le résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub MyPing()
Dim ObjPing As dataObject, Resultat As String, AdrPing As String, infoPing
 
    Shell "Cmd.exe /C" & "echo off | clip", 0 ' Par précaution on efface le presse papier avant via shell (fait comme ça car rencontre de pb de mémoire en effaçant via l'objet pour le Clipboard)
    Set ObjPing = New dataObject
 
    AdrPing = "yahoo.fr" ' ou free.fr ou autre ----------------------------  'InputBox("Metrre l'adresse du ping", "PING")
    'AdrPing = "yadsdhfoo.fr" '<= ou une fausse adresse montrant un faux résultat afin d'adapter le code
 
    With ObjPing
        Shell "Cmd.exe /C" & "ping " & AdrPing & " | " & "clip", 0
 
        Do
            Application.Wait Now + TimeValue("00.00.01") ' temps à régler si besoin
            .GetFromClipboard
            Resultat = .GetText(1)
        Loop While Resultat = ""
    End With
 
    MsgBox Resultat ' résultat visuel
    infoPing = Split(Resultat, vbCrLf) ' récup par tableau pour traiter certaines données
    Set ObjPing = Nothing
 
End Sub

Sinon pour "Déterminer la fin d’un processus Shell", que j'ai testé (code du lien + ci-dessous) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Testing()
Dim ObjPing As dataObject, Resultat As String
'ExecCmd "NOTEPAD.EXE"
    Set ObjPing = New dataObject
    ExecCmd "Cmd.exe /C" & "ping " & "yahoo.fr" & " | " & "clip"
    With ObjPing
        .GetFromClipboard
        Resultat = .GetText(1)
    End With
    Set ObjPing = Nothing
    MsgBox "Process Finished"
    MsgBox Resultat
End Sub

cmd shell :

Microsoft Windows [version 10.0.17134.648]
(c) 2018 Microsoft Corporation. Tous droits réservés.

Utilisation*: ping [-t] [-a] [-n count] [-l size] [-f] [-i TTL] [-v TOS]
[-r count] [-s count] [[-j host-list] | [-k host-list]]
[-w timeout] [-R] [-S srcaddr] [-c compartment] [-p]
[-4] [-6] nom_cible

Options*:
-t Effectue un test ping sur l’hôte spécifié jusqu’à son arrêt.
Pour afficher les statistiques et continuer,
appuyez sur Ctrl+Attn.
Pour arrêter, appuyez sur Ctrl+C.
-a Résout les adresses en noms d’hôtes.
-n count Nombre de demandes d’écho à envoyer.
-l size Taille du tampon d’envoi.
-f Active l’indicateur Ne pas fragmenter dans le paquet (IPv4
uniquement).
-i TTL Durée de vie.
-v TOS Type de service (IPv4 uniquement. La
configuration de ce paramètre n’a aucun effet sur le type
de service dans l’en-tête IP).
-r count Itinéraire d’enregistrement du nombre de sauts (IPv4
uniquement).
-s count Horodatage du nombre de sauts (IPv4 uniquement).
-j host-list Itinéraire source libre parmi la liste d’hôtes (IPv4
uniquement).
-k host-list Itinéraire source strict parmi la liste d’hôtes (IPv4
uniquement).
-w timeout Délai d’attente pour chaque réponse, en millisecondes.
-R Utilise l’en-tête de routage pour tester également
l’itinéraire inverse (IPv6 uniquement).
D’après la RFC*5095, l’utilisation de cet en-tête de routage
est déconseillée. Certains systèmes peuvent supprimer des
demandes d’écho si cet en-tête est utilisé.
-S srcaddr Adresse source à utiliser.
-c compartment Identificateur de compartiment de routage.
-p Effectue un test ping sur l’adresse de fournisseur
de la virtualisation réseau Hyper-V.
-4 Force l’utilisation d’IPv4.
-6 Force l’utilisation d’IPv6.

La gestion des boucles dans Excel

[patricktoulon]

re
bonjour ryu
même en effaçant avec shell on rencontre des problème de mémoire
formatec ..., mémoire insuffisante ,etc ......
j'ais mis 5 secondes de delay

une fois une de ces erreurs déclenchées impossible de vider remplir et même déplacer des lignes dans le code après avoir cliqué sur debugage
trop dangereux
obligé de fermer excel et refaire

[RyuAutodidacte]

Salut Patrick ,

Merci d’avoir testé.
Sur quel configuration as tu fais le test ?? , car avec moult essais, je ne suis plus tombé sur ce problème …

As tu testé l’autre solution où j’ai mis le lien de MS avec le code dessous ??

Sinon as tu une direction pour palier à ce problème de mémoire avec le presse papier/Excel ??

Merci d’avance

[RyuAutodidacte]

Re Patrick ,

je trouve cela bizarre que l'on peut avoir une mémoire insuffisante sur le presse papier pour un truc basique.

Du coup pour en avoir le cœur net, j'ai fait un nouveau fichier pour l'utilisation du presse papier,
mais cette fois ci sans activer les références de celui-ci pour le faire en late binding (c'est encore mieux sans activation de références )

J'ai lancer plusieurs fois et je n'ai pas eu (pour l'instant) "mémoire insuffisante" ...

Stp Patrick peux tu tester et me dire ce qu'il en ai ... ? Merci d'avance (chez moi j'ai laissé à "TimeValue("00.00.01")")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub MyPing()
Dim ObjPing As Object, Resultat As String, AdrPing As String, infoPing
 
    Set ObjPing = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
 
    AdrPing = "yahoo.fr" ' ou free.fr ou autre ==> 'InputBox("Metrre l'adresse du ping", "PING")
    'AdrPing = "yadsdhfoo.fr" '<= ou une fausse adresse montrant un faux résultat afin d'adapter le code
 
    With ObjPing
        .SetText ""
        .PutInClipboard
        Shell "Cmd.exe /C" & "ping " & AdrPing & " | " & "clip", 0
 
        Do
            Application.Wait Now + TimeValue("00.00.01") ' temps à régler si besoin
            .GetFromClipboard
            Resultat = .GetText(1)
        Loop While Resultat = ""
    End With
 
    MsgBox Resultat ' résultat visuel
    infoPing = Split(Resultat, vbCrLf) ' récup par tableau pour traiter certaines données
    Set ObjPing = Nothing
 
End Sub

[anasecu]

Bonsoir RyuAutodidacte,

Je n'ai testé que ton dernier code qui fonctionne parfaitement aussi bien sur 2007 que 2016,
sauf pour certains sites comme microsoft.com par exemple qui sont trop lents.

[RyuAutodidacte]

Bonsoir anasecu ,

Merci d'avoir testé .

pour :

sauf pour certains sites comme microsoft.com par exemple qui sont trop lents.

Tu as quoi comme message de ton coté ??

Édit : si tu as essayé « microsoft.com », apparemment ce n’est pas bon car pour PING le site afin qui te réponde il faut faire normalement « www.microsoft.com ».
peux tu me confirmer stp … merci

[anasecu]

Bonjour RyuAutodidacte

Ce matin www.microsoft.com fonctionne mais sinon hier j'avais "délai d'attente dépassé", même avec un délai à 20 s.

Envoi d'une requête 'ping' sur www.geny.com [213.139.97.152] avec 32 octets de données*:
Délai d'attente de la demande dépassé.
Délai d'attente de la demande dépassé.
Délai d'attente de la demande dépassé.
Délai d'attente de la demande dépassé.

Statistiques Ping pour 213.139.97.152:
Paquets*: envoyés = 4, reçus = 0, perdus = 4 (perte 100%),

C'est pourtant un site qui répond très rapidement, sinon voilà un autre résultat :

Envoi d'une requête 'ping' sur google.com [216.58.206.238] avec 32 octets de données*:
Réponse de 216.58.206.238*: octets=32 temps=45 ms TTL=55
Réponse de 216.58.206.238*: octets=32 temps=46 ms TTL=55
Réponse de 216.58.206.238*: octets=32 temps=46 ms TTL=55
Réponse de 216.58.206.238*: octets=32 temps=45 ms TTL=55

Statistiques Ping pour 216.58.206.238:
Paquets*: envoyés = 4, reçus = 4, perdus = 0 (perte 0%),
Durée approximative des boucles en millisecondes :
Minimum = 45ms, Maximum = 46ms, Moyenne = 45ms

Bonne journée

[RyuAutodidacte]

Re,

Merci anescu pour les tests
Bon apparemment ça ne plante pas , donc voilà une solution supp. (Sachant que le Ping peut être aussi fait sur réseau d’entreprise et pas forcément d’un site), en plus de celle déjà proposée passant par l’enregistrement du résultat dans un fichier texte.

Faut juste attendre une réponse du demandeur (si il revient …?)

[patricktoulon]

bonjour ryu
je l'ai lancé 4 fois

la 4 eme


regarde ce que ca provoque par la suite


impossible d'utiliser le copier coller


je le redis avec le data object trop dangereux
faire le ping avec les api pour window il me semple qu'il y en a une

[RyuAutodidacte]

Hi Patrick,

Difficile de savoir d’où vient le problème car je l’ai lancé plus de 15 fois sans aucun problème (t’es bien reparti d’un nouveau fichier comme précisé ???),
de plus @anasecu la tester plusieurs fois aussi sur la version 2007 et 2016 sans avoir relevé ce problème.

Alors oui le problème je l’avais dans la version avec la référence active, alors que sur le nouveau fichier en late biding et le nouveau code , ça ne s’est pas reproduit …

Concernant les api de Windows je suis un pur débutant de chez débutant

PS : tu ne m’a pas répondu aux questions suivant tes 1er tests (plus haut)

[patricktoulon]

ben si je t ai répondu et en image c'est bien ton dernier code que j'ai testé

le problème c'est que quand il n'y a pas d'erreur ca va mais des qu'il y en a une c'est fini tu es obligé de fermer excel car c'est le clipboard qui est carrément bloqué

j'ai tout essayé rien a faire

sinon oui quand ca marche ca marche

parti de la moi non j'adhère pas ,on doit pouvoir gérer les erreurs sinon c'est la bérézina

pour être honnête la solution la plus sur c'est l'examen de fichier de sortie a la place de "clip" quitte a faire un kill

peut être que sur mac n'ayant pas les api cliboard le dataobject est ta seule solution je sais

[RyuAutodidacte]

re,

pour les questions :

Sur quel configuration as tu fais le test ?? , car avec moult essais, je ne suis plus tombé sur ce problème …

As tu testé l’autre solution où j’ai mis le lien de MS avec le code dessous ??

Sinon as tu une direction pour palier à ce problème de mémoire avec le presse papier/Excel ?? => tu as répondu "les api windows" ET "pour être honnête la solution la plus sur c'est l'examen de fichier de sortie a la place de "clip" quitte a faire un kill"

parti de la moi non j'adhère pas ,on doit pouvoir gérer les erreurs sinon c'est la bérézina

on est d'accord il faut que cela marche pour tout le monde

Edit :

peut être que sur mac n'ayant pas les api cliboard le dataobject est ta seule solution je sais

Sur Mac on aura pas besoin du presse papier car on utilisera du VBA avec AppleScript qui lui lancera le terminal et pourra directement récupérer le résultat dans une variable

[RyuAutodidacte]

Une solution sur Mac que j'avais donné :
https://www.developpez.net/forums/d1...c/#post9908092

Et là je viens de trouver sur le forum peut être une solution (pas testé je n'ai pas de PC là) :
https://www.developpez.net/forums/d4...u/#post2862592

[unparia]

Coucou, Ryu

Et là je viens de trouver sur le forum peut être une solution (pas testé je n'ai pas de PC là) :
https://www.developpez.net/forums/d4...u/#post2862592

C'est, en moins complet, ce qu'expose le lien que j'ai invité à lire beaucoup plus haut.
Pour mémoire

Je viens de tomber sur cette discussion sur un autre site :
https://stackoverflow.com/questions/...sults-in-excel
Elle est en anglais, mais devrait t'intéresser

[RyuAutodidacte]

Salut Jacques,
En effet ton lien est plus complet

[patricktoulon]

je l'avais complétement zappé celui la je l'avais même extériorisé pour du multithread
https://www.developpez.net/forums/d1...e/#post8799112