Lancer une application tierce sur réseau via VBA Excel

Bonjour,

Environnement : Windows et Excel 2013
Contexte : J'ai crée une macro qui permet de retraiter des données sur Excel et les mettre en forme pour une analyse sur une application dédiée (en l'occurence GraphPad). Après la mise en forme, l'utilisateur peut cliquer sur un autre bouton permettant de lancer un script propre à GraphPad pour l'analyse des données en récupérant les données Excel (transformées au format txt pour l'importation).
Condition : en condition locale, pas de souci, la macro va chercher l'application et lance le script

Code:

---

1 2 3 4 5 6 7

Sub lancer()   Dim Retval Retval = Shell("C:\Program Files (x86)\GraphPad\Prism 7\prism.exe c:\PRISM\scriptprism.pzc", 2)     End Sub

---

Problème : GraphPad est installée pour l'ensemble des utilisateurs sur un serveur virtuel (réseau). La lettre correspondante peut varier en fonction des utilisateurs.
J'ai effectivement consulté des macros permettant de lister les lecteurs réseaux actifs affichés dans le panneau d’exécution mais je ne sais pas comment l'exploiter.
Question : Comment pourrais je en fonction des lecteurs réseaux détectés, insérer dans la macro celui hébergeant l'application (\\lowa\GraphPad\Prism 7\prisme.exe) ?
Par avance merci pour votre aide.
Bonne journée

Bug*

Salut,

tu as plusieurs lecteurs réseaux déjà utilisés et tu ne sais pas lequel pointe vers ton serveur c'est bien cela ?

Pourquoi ne pas faire un mappage temporaire :
- tu boucles en décrémentant jusqu'à trouver un lecteur disponible
- tu mappes le lecteur sur ton serveur
- tu generes dynmaiquement ton shell
- tu l'executes
- tu demappes le lecteur

Bonjour,

Merci pour ton retour.
En fait j'ai plusieurs lecteurs réseaux qui pointent soit vers différents serveurs, soit différents espace d'un même serveur. Il en est de même pour tous mes collègues.
Nous avons ainsi un serveur virtuel qui héberge le logiciel GraphPad dont je souhaite quasi-automatiser l'analyser des données provenant d'Excel.
Pour mon poste, la lettre attribuée à ce serveur virtuel pointant GraphPad est la lettre K, pour les autres, cela peut être G, H I etc...
L'idée c'est que lorsqu'un collègue lance cette macro, elle identifie cette lettre/variable pour actualiser le chemin afin de lancer l'application.

Si j'ai bien compris ta réponse, c'est plutôt de prendre le problème à l'envers, c'est d'identifier une lettre de dispo, d'actualiser le shell avec, puis de libérer la lettre. Cela me semble tout à fait pertinent aussi, bien que je ne sache pas encore comment faire, mais je vais cogiter aussi cette alternative.
Merci et bon WE

Est ce que ce genre de syntaxe vous semble cohérent en attendant d'avoir quelque chose de mieux ?

Code:

---

Retval = Shell("\\lowa\GraphPad\Prism 7\prisme.exe c:\PRISM\scriptprism.pzc", 1)

---

sachant que si l'application est en réseau, le script demeure en local

Merci

Pour tester l'existence d'un lecteur :
https://access.developpez.com/faq/?p...ctExistLecteur

Pour la liste des lecteurs utilisés :
https://access.developpez.com/faq/?p...LecteurPresent

Pour mapper un lecteur :
https://www.developpez.net/forums/d1...ur-reseau-vba/

Merci beaucoup JP.
J'avais bien repéré le deuxième lien mais avec les autres en plus, cela m'ouvre d'autres perspectives intéressantes en matière de macros.

Citation:

---

Envoyé par bugstar

Est ce que ce genre de syntaxe vous semble cohérent en attendant d'avoir quelque chose de mieux ?
Retval = Shell("\\lowa\GraphPad\Prism 7\prisme.exe c:\PRISM\scriptprism.pzc", 1)

sachant que si l'application est en réseau, le script demeure en local

Merci

---

A partir du moment que tu as réussi à exécuter le script et qu'il fait ce que tu veux :ccool:

Toujours essayer de faire dans cet ordre :
1 / ca fonctionne
2/ c'est optimisé

;)

Salut

ShellExecute permet de lancer un fichier avec le programme par défaut sans avoir à préciser son chemin. Les ordi sur lequels ton fichier sera déployé n'ont-il pas Prisme.exe déclaré pour les fichier *.pzc?


++
Qwaz

Bonjour Qwazerty,

Désolé pour cette réponse tardive.
Il me faut du temps pour appréhender, mettre en place et tester les liens que JPA m'a transmis.
En fait Prism est sur un serveur en mode licence Network et s’exécute via un simple raccourci sur les postes.
La seconde macro, la première est destinée à traiter et mettre en forme les données, lance Prism pour exécuter un script (effectivement un PZC) qui va chercher les données au format txt et lancer un modèle d'analyse (*.pzfx).
J'étais un peu coincé car j'en étais à la syntaxe sur du local comme avec des fichiers batch et au Shell en VBA. Du coup, sans pouvoir lancer l'EXE sur le serveur, impossible le script.
Mais maintenant c'est bon, c'est perfectible sans aucun doute, mais ça tourne.
Merci à vous 2
Bon WE

Bug*