Lancer un programme à partir d'une feuille

[Magic_Doctor]

Bonjour,

Je voudrais lancer un programme en cliquant sur un bouton de la feuille.
Bien entendu, le programme sera dans le même dossier que le classeur.
Le dossier s'intitulant : "Tampon"
Le classeur s'intitulant : "Tampon Xylo"
Le programme s'intitulant : "MoleCalc"

Merci pour tout conseil.

 

[MJ13]

Re : Lancer un programme à partir d'une feuille

Bonjour MD

Clique-droit sur le bouton, affecter une macro.

 

[Magic_Doctor]

Re : Lancer un programme à partir d'une feuille

Bonjour MJ13

Pas très bien compris...
Je pense qu'il faut quand même spécifier quelque chose dans la macro, à savoir :
"lancer tel programme qui se trouve à tel endroit"

 

[MJ13]

Re : Lancer un programme à partir d'une feuille

Re

Il vaut mieux avoir tes fichiers ouverts.

Ensuite des tests pourront te fournir la solution, à savoir si cela fonctionne.

Avec Excel, il vaut mieux tester pour être sur du résultat. Ensuite on voit où le bas blesse 🙂.

 

[Magic_Doctor]

Re : Lancer un programme à partir d'une feuille

Bonjour,

Je relance le fil, au cas où...

Il s'agit tout simplement de lancer un petit programme en cliquant sur un bouton de la feuille.

Merci pour toute proposition.

 

[Habitude]

Re : Lancer un programme à partir d'une feuille

cmdLine = "D:\program files\ProgrammeALancer.exe"

Shell cmdLIne, choixouverture

La commande devrait te permettre de choisir l'ouverture désirée

 

[Magic_Doctor]

Re : Lancer un programme à partir d'une feuille

Bonjour Habitude,

J'ai essayé ainsi et ça a marché :

Sub ouvrir()

Dim x

x = Shell("G:\ZZZZZ\AAA_Perso\ZZZZZZZZ_OK\Tampon Xylo\MoleCalc.EXE", 1)

End Sub

J'ai attribué cette macro au bouton qui doit appeler le programme "MoleCalc.EXE". Quand on clique sur ledit bouton, le programme s'ouvre bien.

Mais voilà, j'ai mis le dossier "Tampon Xylo" contenant le programme et le classeur dans "G:\ZZZZZ\AAA_Perso\ZZZZZZZZ_OK", adresse en effet des plus folkloriques... Si je veux envoyer le classeur à quelqu'un, je doute fort que dans la dichotomie de son disque dur il y ait une adresse semblable. Aussi, serait-il possible de lancer le programme à partir de la feuille, quel que soit l'endroit où l'on a mis le dossier "Tampon Xylo" ?

 

[Compte Supprimé 979]

Re : Lancer un programme à partir d'une feuille

Buenos Dias Magic_doctor 😉

Si le lecteur "G:" correspond à un dossier sur serveur
normalement, il suffit de faire

x = Shell("\\NomServeur\ZZZZZ\AAA_Perso\ZZZZZZZZ_OK\Tampon Xylo\MoleCalc.EXE", 1)

A tester 😉

 

[job75]

Re : Lancer un programme à partir d'une feuille

Bonjour Magic Doctor, le fil,

Et à la limite, il n'y aura peut-être même pas le fichier MoleCalc.EXE chez le correspondant 🙂

Alors pourquoi ne pas lui faire parvenir un dossier contenant ce fichier et le classeur avec cette macro :

Sub ouvrir()

Dim x

x = Shell([COLOR="Red"]ThisWorkbook.Path[/COLOR] & "\MoleCalc.EXE", 1)

End Sub

A+

 

[MJ13]

Re : Lancer un programme à partir d'une feuille

Bonjour à tous

lancer un programme

Ah mais j'avais pas tout compris, je pensais que c'était pour lancer une macro.

Je comprend mieux maintenant.

Désolé MD. C'est vrai qu'on a tellement l'habitude d'avoir un mot pour un autre sur XLD 😱.

 

[Magic_Doctor]

Re : Lancer un programme à partir d'une feuille

Hola job75,

BINGO ! C'était exactement cela qu'il me fallait. Ça marche au poil !

No pasa nada MJ13, il est vrai que souvent on lit en diagonale. C'est pourquoi je ne comprenais pas ta solution.

Bonne fin de journée à tous.