Bonjour petit fichier pour réaliser des historiques des ana de IPX sans faire de code PHP pour les novice comme moi
le fichiers avec macro pour lire par intervalles de 5 minutes modifiable
une procédure est jointe au fichiers
le noms des ana est facilement personnalisables et il sont réglés pour mon installation
ce fichier est également modifiable selon ce que vous voulez extraire et la façon de l’afficher
Très jolie boulot, mais je pense que tu n’as pas « Partagé » ton fichier,car il me demande
une autorisation de ta part…Ou alors du sélectionne l’accès au fichier !!!
Bonsoir Merokaly, j’ai eu aussi ce petit soucis ( arrêt de la macro) je pense qu’il faut laisser l’application en second plan ( pas en lecture direct à l’affichage)
Attention au mise en veille du Pc ( l’économiseur ne perturbe pas)
Idéal serais une session dédier qui reste ouverte ( et basculer sur la session de travail ce qui permet de ne pas monopoliser excel)
Si tu es passer à 600 cela te fait quasiment 24 heures de relevées
Merci du retour
Cdt
Ps oui il est vrai que les 160 ip sont à changer, mais je ne suis pas arriver à le simplifier, si quelqu’un sais faire plus simple je suis preneur…
Super l’idée du fichier excel.
Cela devrait permettre de regarder certain phénomène si l’on prend une valeurs toutes le 30 min.
Néanmoins, comment ferais-tu s’il y avait un mdp sur ton ipx ?
Cela ne fonctionne pas sans → ActiveWorkbook.XmlImport URL:=« http://« mon »:« mdp »@192.168.xxx.xxx:80/status.xml », ImportMap _
Merci de ton aide
Cordialement,
Lionel sur le blog donne cela à essayer
NOTA 2 : si vous avez sécurisé l’accès à votre IPX, vous pouvez utiliser la syntaxe http://user:password@192.168.1.3/status.xml. Attention cependant, certaines versions d’Internet Explorer ont désactivé cette possibilité : pour la réactiver, vous devez éditer le registre Windows et mettre à 0 la clé suivante :
HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main/FeatureControl/FEATURE_HTTP_USERNAME_PASSWORD_DISABLE
si la commande passe depuis un navigateur il suffira de l’intégrer dans la macro aux emplacements de l’adresse IP
J’ai essayer dans Chrome et Firefox la commande " http://user:pass@adresseip/status.xml" qui fonctionne très bien mais pas dans ie10!
Je suppose donc qu’il y a le même blocage avec excel.
je n’ai pas cette clef (dans w7-64b) « HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main/FeatureControl/FEATURE_HTTP_USERNAME_PASSWORD_DISABLE »
et même en l’ajoutant cela n’est pas plus concluant.
Sans le login et mdp le fichier excel fonctionne très bien.
je continu dons mes recherche…
Selon les versions d’OS et d’IE, il se peut que la clé soit dans le chapitre HKEY_LOCAL_MACHINE suivi du même chemin. C’est mon cas avec un IE8 sous XP pro SP3.
Il faut que je modifie l’article du blog pour signaler cette particularité. Au pire, vous pouvez faire une recherche dans la base de registre en cliquant « clé » et en mettant « HTTP_USERNAME » comme mot recherché, par exemple.
Après qqlqs recherches:
HKEY_LOCAL_MACHINE → Pour tous les utilisateurs
HKEY_CURRENT_USER → Pour l’utilisateur
Il y a bien des clefs avec ce nom dans W7 - 64b qui se trouve dans :
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_HTTP_USERNAME_PASSWORD_DISABLE
ceci dit il y a vraiment beaucoup de valeurs ! Lequel nous intéresse ?
J’ai fais l’essai de mettre toutes les clefs a 0 et cela ne change rien !
j’ai essayé avec ipx en protection avec mot de pass
il faut que excel enregistre le chemin (il faut faire ce qui suit)
tu ouvre un classeur
puis onglet Données
à partir du site web (tu clique dessus)
nouvelle requête sur le web s’ouvre (tu remplace l’adresse Google par celui de IPX http://192.168.xxx.xx/status.xml
Importer
une fenêtre avec user et pass s’ouvre (tu renseigne et clique sur mémoriser)
Importer
(le status doit être lu)
Importer
une fenêtre te demande si tu veux importer
tu clique OK
la ligne du status va s’écrire
et la normalement excel à mémoriser l’accés avec le pass au status
et tu lance mon fichier que tu as modifier l’adresse IP http://192.168.xx.xx/status.xml
et normalement cela devrais marcher
Effectivement, cela marche une fois qu’Excel a mémorisé le login : mdp. (bien qu’il bugg a moitier lors de l’incorporation des données externes « status » alors que cela fonctionne bien avec un excel 2003 sur micro prof)
Il faut refaire la manip a chaque ouverture de session !
Ce n’est quand même pas très pratique et il doit bien y a avoir qqlq paramètre a changer dans W7 64, IE10 ou Office 2013.
La prochaine étape serait de passer par une vrai base de données (de la grosse artillerie pour un bleue) mais certainement la plus professionnel.
Merci pour le temps que tu y a passé car c’est vraiment sympathique d’étudier les entrées numériques sur une journée type.
Ci joint 3 macros servant à:
1- Acquisition de données Ipx–> excel « Sub maMacro() » qui est beaucoup plus facilement paramétrable !
2- « Sub Finir() » pour sortir de l’acquisition avant la fin des paramétrés de réglage faire escape 2 fois
3- Suppression du mappage d’acquisition « Sub SuppressionMappage() »
4- « Sub effacerlignes() »
Attention, ne pas enregistrer le fichier avec les données.
Il faut passer les sub 3 & 4 avant enregistrement.
J’ai mis une image lien par macro sur l’onglet excel (c’est plus agréable…)
Personnellement j’ai toujours le problème avec W7-64 du mot de passe .
Il ne s’enregistre pas et il faut refaire ‹ données/actualisé données ›
Bien a vous
Nicolas
Sub maMacro()
'ligne = ActiveCell.Row
'Rows(ligne).Insert Shift:=xlDown
compteur = 0
ligne = 1
col = 0
For col = 3 To 100
'mettre ip de votre ipx800v3
ActiveWorkbook.XmlImport URL:=« http://xxx.xxx.xxx.xxx/status.xml », ImportMap _
:=Nothing, Overwrite:=True, Destination:=Cells(ligne + 1, 1)
compteur = compteur + 1
ligne = ligne + 1
‹ Attente (0,1,0)= entre 1 › entre deux acquisitions
Application.Wait Time + TimeSerial(0, 1, 0)
'arreter après x acquisistions
If compteur = 30 Then Exit For
Next
Exit Sub
Finir
End Sub
Sub Finir()
On Error Resume Next
Application.OnTime Now + TimeValue(« 00:00:01 »), « maMacro », , Schedule:=False
End Sub
Sub SuppressionMappage()
Dim Map As Object
For Each Map In ThisWorkbook.XmlMaps
Map.Delete
Next
End Sub
Bonsoir,
C’est sur la base du fichier de Didier (Exactement la même logique) que j’ai adapté ces macros(en toute modestie avec le www) .
Attention Excel prend qqlqs ressources !
Cordialement
Nicolas
Bonsoir,
C’est sur la base du fichier de Didier (même fichier excel) que j’ai adapté ces macros(en toute modestie avec le www) .
Attention Excel prend qqlqs ressources !
Cordialement
Nicolas
Les fichiers sont trop lourd pour ce forum.
voir le lien ci-joint http://dl.free.fr/eUAFqzyUK
Pas d’indentifiants mais un mdp du fichier zip : niko
