Discussion :

[ghost emperor]

Bonjour,

Je suis en alternance dans une entreprise et mon patron souhaite mettre en place dans un document excel un bouton avec une macro VBA qui permet d'accéder directement à la console de gestion d'un ordinateur distant.
Je n'ai pas encore eu de cours sur le VB donc si quelqu'un connait le moyen de le faire svp ?

Merci d'avance

[Invité]

Bonjour et bienvenu sur le forum de Developpez.com

Il nous faudrait un peu plus d'informations pour une piste de départ :

- Est-ce que tu as accés à cette console par le réseau ?
- Que veux-tu récupérer un fichier Excel, des données ?

Starec

[ghost emperor]

Le fichier excel repertorie tous les PC de l'entreprise ainsi que les informations les concernants. Dans ce fichier, il y a quelques boutons permettant d'effectuer des ping, de ce connecter a ubureau à distance ,d'explorer le disque dur...). Aucune valeur n'est récupérée par excel, ce sont juste des raccourcis.
Le but est de créer un autre bouton permettant d'ouvrir la console de gestion (gestionnaire de périphériques...) du PC distant.

Après quelques recherches, le service de la console de gestion est compmgmt.msc mais je ne sais pas comment l'utiliser en VBA (avec un shell(...) il me retourne une erreur '5')

[ghost emperor]

Alors, pour plus d'informations, je selectionne la cellule de ma feuille excel qui contient l'adresse ip du pc distant et je clique sur le bouton qui contient le code suivant :

Code :

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

1
2
3
4
5
 
sub consoleGestion_Click()
ip = activeCell.Value
retour = shell("compmgmt.msc " & ip, vbNormalFocus)
End Sub

Mais voila, cela ne fonctionne pas

[ghost emperor]

Alors pour l'instant j'ai trouvé la commande ms-dos pour la console de gestion a distance : compmgmt.msc /computer=\\<adresse ip>, donc dans ma macro j'ai ceci :

Code :

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

1
2
3
4
 
Sub gestion_click()
resultat = shell("compmgmt.msc /computer=\\<adresse ip>", vbNormalFocus)
End Sub

Mais j'obtiens une erreur "code '5' : argument ou appel deprocédure incorrect...

Dans l'invite de commande ça marche bien mais en vb pas moyen, quelq'un aurait-il une solution ?

Merci

[ghost emperor]

problème résolut, pour ceux que sa interresse voici la commande :

Code :

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

1
2
 
shell("mmc.exe c:\windows\system32\compmgmt.msc /computer:<adresse_ip>, vbNormalNoFocus)