Discussion :

[rungis]

Bonjour,

Le programme appelé par ma macro est le suivant:

Code :

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

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

[Invité]

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

[patricktoulon]

Bonjour
un truc du genre

Code :

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

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

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

[rungis]

Bonjour,

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

[Invité]

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!

[rungis]

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:



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