[E-00]lancement application par fonction shell

bonjour,
j'ai un petit probleme en voulant lancer une application externe a excel en utilisant la fonction shell. Voila mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub B_maj_SB_Click() Dim reponse As Variant Dim plop As Variant MsgBox "Lancement de impromptu" plop = Shell("R:\CMM\Raphael\imp SB.imr", 1) AppActivate plop reponse = MsgBox("avez vous fais l'extraction impromptu?", 4) If reponse = vbYes Then Call maj_sb Else MsgBox "faite la et relancez la macro " & vbNewLine & "merci" End If End Sub

---

en executant cette macro il me dis :
erreur execution : 5
argument ou appel de procédure incorrect
je suis pourtant parti de l'exemple de l'aide..

merci pour votre aide

ps: j'utilise excel 2000

Bonjour,

je pense que le problème se situe peut-être au niveau des quotes.

De plus, je préciserais le nom complet de imp qui doit être imp.exe, histoire d'être ceratin de ce que tu lances.

Regarde ici pour une exemple avec les quotes (il faut avancer dans le post pour shell ;))

donc si j'ai bien compris avec la commande shell, on ne peux que lancer des *.exe? moi je souaite lancer mon fichier qui s'appel : imp sb.imr ca reviendrai a lancer un Plop.doc
est-ce possible de le faire ?

Citation:

---

Envoyé par imaril

donc si j'ai bien compris avec la commande shell, on ne peux que lancer des *.exe?

---

Je n'ai pas dit cela.

Commence par expliquer clairement ce que tu veux ouvrir comme fichier et ou application et avec quelle commande ou programme.

N'oublie pas qu'un programme ou une commande à toujours une extension. Il faut la préciser dans ta réponse.

je te dirai ensuite quel moyen utiliser. ;)

alors, je m'explique...
en fait je fais une macro qui va permetre la mise a jours d'un classeur a partir d'une base de donnée externe.
Pour cela j'utilise un logiciel d'extraction de cette BDD qui s'appel impromtu.
Ce logiciel permet de generer des classeurs et de les enregistrer en format .imr.
Je souhaite donc lancer ce classeur pour que le futur utilisateur ait juste à faire l'extraction en .xls a partir d'impromtu qui se lancera a partir d'excel.

Re,

tu n'a pas répondu à ma question, qui était technique et pas fonctionnelle. :mrgreen:

Dis moi-donc excatement ce que tu dois faire ! ;)

Exemple : Ouvrir le fichier excel tutu.xls du répertoiure c:\gdm
lancer le programme impromptu.exe du répertoire c:\toto avec le parametre c:\data\imp.imr

You follow me ?

Sinon j'ai cherché dans le forum sur imprompu et j'ai trouvé ceci

je pense avoir compri ce que tu recherche
en fait voila :
je souhaite ouvrir le fichier imp sb.irm qui se situe dans le rep "R:\CMM\Plop\"
avec le logiciel impromtu qui se trouve dans le repertoir : "c:\prog\impomptu\"

par contre je ne sais pas si on peux rentrer en parametre d'impromtu le nom du fichier a ouvrir...

Bonjour,

Si j'ai bien compris, tu cherches à ouvrir le fichier R:\CMM\Raphael\imp SB.imr

La fonction Shell ne risque pas de l'ouvrir sans lui dire avec quel logiciel elle doit le faire (et tu ne le mentionnes pas dans son appel ! Comment veust-u qu'elle devine ?...).

Alors :
soit :

Code:

---

ret = Shell("nom_de_ton_exe-applicable nom_du_document_géré",1)

---

Soit (je te le recommande) :
oublier l'exe nécessaire (pour autant que le logiciel soit bien présent sur la machine) et utiliser la fonction Shell Execute de l'Api de Windows, ainsi :
Tout en haut de ta page de code :

Code:

---

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

---

et dans l'évènement de ton choix :

Code:

---

1 2 3

Dim monfichier As String monfichier = "d:\essai.txt" ShellExecute 0, vbNullString, monfichier, vbNullString, "C:\", 1

---

ou tu remplaces "d:\essai.txt" par le chemin complet du fichier à ouvrir

Bonjour Ucfoutu,

je te laisse le flambeau. ;)

Amitiés. Godz

merci ucfoutu
mais il me reste une question , avec ta méthode ( la deuxiemme) comment fait-on pour que l'applcation lancée reste au premier plan et que la macro s'arete tant que ce fichier est ouvert ? enfin qu'on puisse faire ce qu'on veux sur impromptu puis revenir sur excel et que la macro continue ?

ps: merci Godzestla pour le temps passer sur mon problème

ok merci je le fais dessuite