If Exist

Bonjour,

Le programme appelé par ma macro est le suivant:

Code:

---

1 2 3 4 5

Shell "C:\OYAK\FUSION\OYAK_v2\OYAK_v2_run.bat", 0   Application.Wait Time + TimeSerial(0, 0, 120)   Workbooks.Open "C:\OYAK\MEMO.xls"

---

Le batch Oyak_v2_run génère un fichier Excel temporaire lors de son exécution et lorsqu'il a terminé il génère un fichier MEMO.xls.
Nous souhaitons remplacer le wait par une fonction If exist pour que le reste de la macro ne s'exécute pas avant que le fichier soit totalement généré.

Savez-vous comment faire svp ?

Merci d'avance pour votre aide

Bonjour,
Regardes ce lien http://www.developpez.net/forums/d69...o/#post4058325

Bonjour
un truc du genre

Code:

---

do :doevents:loop while dir "C:\OYAK\MEMO.xls"=""

---

cette boucle ne s'arrêtera pas avant d'avoir une valeur dans dir

Bonjour,

Merci pour vos réponses.
Lorsque je met ce bout de code dans ma macro, j'ai ce message d'erreur:

Pièce jointe 173572

Bonjour,
Tu as placé le code dans la partie code d'une feuille! Il faut le placer dans un module standard.
Menu->insérer ->module!

Ou élever la notion de public!

Je l'ai effectivement placé dans une feuille car je souhaite que lorsqu'un utilisateur clique sur un bouton il puisse exécuter la macro.
Si j'insère le code dans un module standard, il ne reconnait pas ShellAndWait:

Pièce jointe 173592

J'ai essayé de remplacer la notion de public par private mais j'ai le meme message d'erreur:

Pièce jointe 173594

A la place de public tu laisses a vide (rien)

same same :(

Pièce jointe 173607

ton code debait déjà avoir ce souci
tua demander comment remplacer la fonction "Wait" par le test de l'existence du fichier
je site ton exemple

Citation:

---

Code:

---

1 2 3 4 5

Shell "C:\OYAK\FUSION\OYAK_v2\OYAK_v2_run.bat", 0   Application.Wait Time + TimeSerial(0, 0, 120)   Workbooks.Open "C:\OYAK\MEMO.xls"

---

---

si tu remplace cette ligne

Code:

---

Application.Wait Time + TimeSerial(0, 0, 120)

---

par ma ligne (do:loop)tu devrait normalement pas avoir de problème tes soucis étaient déjà la avant
d'ailleur si je regarde tes captures d'ecran tu te sert des api pour capter l'ouverture ou la fin du processus
si c'est pour le bat tu en a vraiment pas besoins
si le bat génère le fichier que tu teste dans la boucle( do:loop) ou (application.Wait.....)la boucle do loop fait exactement le boulot demandé
si c'est rien on boucle :si c'est "c:/....bklablabla....) alors faire cela
non dans ce cadre tu n'a pas besoins des apis vraiment
le bat s'arretant tout seul en ayant fini sauf si une fonction timer est utiliser dans ce bat au quel cas c'est inutile tu la déjà dans le classeur

Code:

---

1 2 3

Private Sub Workbook_Open() Application.OnTime TimeValue("08:01:00"), "mamacro" End Sub

---

Code:

---

1 2 3 4 5 6 7 8

sub mamacro() Shell "C:\OYAK\FUSION\OYAK_v2\OYAK_v2_run.bat", 0 Application.Wait Time + TimeSerial(0, 0, 120) 'ou bien 'do:doevents:loop while dir "C:\OYAK\MEMO.xls"=""   Workbooks.Open "C:\OYAK\MEMO.xls" end sub

---

Il m'affiche une erreur de compilation quand je fais :

Code:

---

1 2 3 4 5

Shell "C:\OYAK\FUSION\OYAK_v2\OYAK_v2_run.bat", 0 Do:DoEvents: Loop while Dir "C:\OYAK\MEMO.xls" = ""   Workbooks.Open "C:\OYAK\MEMO.xls" Application.WindowState = xlMinimized

---

mille excuses j'avais recopié ton exemple

Code:

---

Workbooks.Open .......

---

Oui c'est ce que j'ai écris

Pièce jointe 173663

Bonjour !

Patrick, je pense à un problème de référence car la ligne reste en minuscules !

Lors de la validation d'une ligne de code, les premières lettres des instructions
reconnues sont automatiquement converties en majuscules …

Sinon tenter une seule instruction par ligne, sait-on jamais …
Quid de la version non indiquée dans le titre de cette discussion !

__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Test fait:

Pièce jointe 173672

Bonjour,

il manque des parenthèses pour ton Dir("Monfichier.xls")et pour transformer du code illisible, écrit sur une seule ligne il faut remplacer seulement les ":" par des retour chariot ..

Code:

---

1 2 3

do doevents loop while dir ("C:\OYAK\MEMO.xls")=""

---

And the winner is … Patrick !

Dire que je suis aussi passé à travers tellement c'est évident …

Bien vu bbil !

MarcL est content y me met la rouste :mouarf:

aie!aie!

oui bon ben ......le principe étant compris c'est l'essentiel:mouarf:

Merci ça compile bien maintenant
Merci pour votre aide
Bonne journée