Pb de shell et de "contexte"

Bonjour,

Depuis une macro Excel j'utilise un shell pour lancer une application déjà compilée (application.exe).
Application.exe créé un fichier texte dans le dossier où il se trouve.

Or suite à l'exécution via le shell, le fichier texte généré est créé dans "Mes documents".

D'où cela vient ?
Comment changer cela, sans modifier l'executable ?

Mon code:

Code:

---

1 2	Call Shell("E:\taff\application.exe", vbNormalFocus)

---

Bonjour

Il se peut que ce soit dans l'application que la destination soit inscrite, et si c'est le cas il faut revoir la source de celle-ci.

Philippe

Salut
Il me semblait bien avoir vu passer quelque chose de similaire.

J’espère que ça résoudra ton problème, si ça n'est pas le cas en effet, il nous faudra la source de ton exécutable

++
Qwaz

Dans l'application il y a écrit l'adresse de telle manière:

functiton ecrire "./file.txt"

Je n'ai pas la fonction exacte (c'est du fortran) et je n'ai pas le code sous les yeux.
La personne réalisant l'exécutable m'a envoyé le code avec "./file.txt et "file.txt"
Aucun des 2 ne fonctionne.

Je viens de tester chdir "adresse du dossier contenant l'exe" pour changer le dossier avant le shell et ça ne fonctionne pas non plus.

D'autres pistes ?

Bonjour,
4 tests à faire jusqu'à problème

1) Hors excel, tu te mets dans le répertoire de ton .exe et tu le lances pour vérifier que le .txt apparaît bien où tu le veux. Sinon -> Couac appli .EXE ou problème de droits.
2) Tu prends ton .exe et tu le mets qqpart sur ton disque C:\ et tu refais la même manip.
3) Tu modifies ton excel pour CHDIR pour utiliser test 2. Si pas ok, tester 4
4) tu fais un .BAT (ou cmd) ou tu met un CD (change dir) ver ton répértoire de 2 suivi d'un call à ton .EXE.

Que cela donne-t'il ?

Citation:

---

1) Hors excel, tu te mets dans le répertoire de ton .exe et tu le lances pour vérifier que le .txt apparaît bien où tu le veux. Sinon -> Couac appli .EXE ou problème de droits.
2) Tu prends ton .exe et tu le mets qqpart sur ton disque C:\ et tu refais la même manip.
3) Tu modifies ton excel pour CHDIR pour utiliser test 2. Si pas ok, tester 4
4) tu fais un .BAT (ou cmd) ou tu met un CD (change dir) ver ton répértoire de 2 suivi d'un call à ton .EXE.

---

1 Ca fonctionne (fichier créé à l'emplacement de l'exe)
2 Ca fonctionne (fichier créé sous C:)
3 ça me créé toujours les fichier dans "mes documents"
4 Je n'ai pas compris, je fais cela dans excel ? Peux tu un peu détailler ce point stp

Montre ton code VBA. :calim2:

Code:

---

1 2 3 4 5

Sub go ChDir "E:\taff\Affaires\" Shell "E:\taff\Affaires\Pretraitement.exe" End Sub

---

J'ai aussi testé:

Code:

---

1 2	call ChDir ("E:\taff\Affaires\") call Shell ("E:\taff\Affaires\Pretraitement.exe")

---

Attention, chdir change le répertoire par défaut, pas le drive.

Et puis évite d'utiliser go comme nom de procédure (car goto)
Essaie plutot comme ceci :

Code:

---

1 2 3 4 5

Sub Démarre Chdrive "E" ChDir "E:\taff\Affaires\" Shell "Pretraitement.exe" End Sub

---

Parfait ! Merci, je bossais dans "E" et le répertoire courant de VBA était dans "C", donc le chdir ne servait pas trop.

pour avoir le dossier du classeur excel je fais "Application.ThisWorkbook.Path" et pour avoir le disque il y a une fonction ? (plutot que de récupérer le 1er caractère retourné par Application.ThisWorkbook.Path) ?

Citation:

---

et pour avoir le disque il y a une fonction ?

---

pas que je sache, mais un left(Thisworkbook.path, 1) fera l'affaire comme tu l'as compris. (ou aussi.Fullname)

Merci pour tout, vous m'enlevez une énorme épine du pied ! :ccool: