Discussion :

[Nicolas149]

Bonjour à tous,

je souhaiterais pouvoir lancer un executable depuis mon fichier excel mais sans utiliser un chemin direct (C:\etc...) mais en fonction du dossier où se trouve le fichier excel.

J'ai donc créé la macro suivante mais rien ne se passe :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Executable()
 
Dim retval
Dim Chemin As String
 
Chemin = """" & ThisWorkbook.Path & "\TTT test.exe" & """"
'MsgBox Chemin
retval = Shell(Chemin)
 
End Sub

Je me suis dit que bon, tant pis, j'allais créer un lien hypertexte vers l'exécutable mais là non plus cela n'a pas marché... dans les 2 cas, une fenêtre de commande s'ouvre et se referme instantanément.

Pourriez-vous m'aider ?

Merci d'avance

Cordialement. Nicolas149

[parmi]

Bonjour,

Ta méthode semble bonne, mais qu'est-ce que doit faire ce TTT test.exe ?

[Nicolas149]

Bonjour parmi,

ce fichier.exe est un executable créé via fortran. Je ne sais pas si ce que fait ce .exe peut jouer sur le fait que celui-ci ne se lance pas. Je vérifie que la macro se soit bien lancée car l'exe doit normalement créer 3 fichiers résultats.

Nicolas149

[parmi]

Peut-être que l'appel de ce EXE demande un paramètre en ligne de commande ?
Si tu double-cliques le fichier exe dans l'explorateur, les fichiers sont-ils créés automatiquement et au bon endroit sans intervention ?

[Nicolas149]

Oui, cela fonctionne en double cliquant dessus.

[parmi]

As-tu bien copié le fichier exe dans le répertoire de ton classeur ?
Si oui, lorsque tu démarres cette macro, les fichiers ne sont pas copiés au même endroit que d'habitude ?