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:

[Invité]

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

[rungis]

same same

[patricktoulon]

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

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"

si tu remplace cette ligne

Code :

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

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 :

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

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

Code :

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

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

[rungis]

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

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
Do:DoEvents: Loop while Dir "C:\OYAK\MEMO.xls" = ""
 
Workbooks.Open "C:\OYAK\MEMO.xls"
Application.WindowState = xlMinimized

[patricktoulon]

mille excuses j'avais recopié ton exemple

Code :

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

Workbooks.Open .......

[rungis]

Oui c'est ce que j'ai écris

[rungis]

[Marc-L]

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

[rungis]

Test fait:

[SfJ5Rpw8]

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 :

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

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

[Marc-L]

And the winner is … Patrick !

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

Bien vu bbil !

[patricktoulon]

MarcL est content y me met la rouste

aie!aie!

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

[rungis]

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