Discussion :

[Astumap]

Bonjour à tous,

J'ai une macro qui dans son cheminement exécute trois batch.
Le premier et le second ont notamment besoin de quelques petites secondes pour remplir leur mission, la macro ne leur en laisse pas toujours le temps.

Pour le premier batch, j'ai ajouté ceci :

Code :

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

1
2
3
4
5
6
7
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
 
Shell (Chemin & "unzip.bat")
Application.Wait waitTime

Cela laisse 5 secondes de répit, c'est parfait.
J'ai essayé de mettre le même "Application.Wait waitTime" après mon second Shell mais cela n'est pas pris en compte et je ne comprends pas pourquoi.
J'ai également fait un "waitTime2" pour le dissocier du premier mais rien y fait.

Auriez-vous une idée s'il vous plait ?

Merci

[Marc-L]

Bonjour,

n'ayant aucune idée de ce qui doit être réalisé, la question est alors pourquoi du VBA ?
Car si c'est réalisable par fichier de commandes, il suffit soit de tout regrouper en un seul
soit d'appeler chaque fichier dans un fichier de commandes principal !

Et puis s'il y a vraiment besoin d'un code VBA alors lui donner la priorité en évitant les commandes externes …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Overeath]

Bonjour,
Si tu veux que ton programme attende 5 sec sans rien faire à côté (je sais pas si j'ai compris ta question), voila un exemple :

Code :

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

T = Timer: While T + 5 > Timer: Wend

Cordialement,
Un aspirant à la programmation

[Astumap]

Cette macro sert pour l'import quotidien d'une base de données (que l'on reçoit en zip) dans notre GED.
La personne qui s'en occupe n'a qu'à récupérer le zip et ouvrir le fichier Excel avec la macro, le reste se fait automatiquement :

- Décompression du zip (1er batch)
- Mise au format correct du fichier csv récupéré
- Import dans le serveur (2ème batch)
- Archivage du fichier avec la date dans le nom
- Suppression des fichiers « résidus » dans le dossier (3ème batch) et fermeture du fichier macro

Le but étant que la personne ait le moins de choses à faire.
Le deuxième batch n'a pas toujours le temps de s'exécuter, ça doit se jouer à quelques millisecondes ! Je dirais que 2 fois sur 3 cela fonctionne du premier coup, sinon il faut relancer la macro.

S'il y a une solution simple et/ou si quelqu'un comprend pourquoi je ne peux pas mettre deux Application.wait, je suis preneur ! Sinon tant pis... Merci !

[Astumap]

Bonjour,
Si tu veux que ton programme attende 5 sec sans rien faire à côté (je sais pas si j'ai compris ta question), voila un exemple :

Code :

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

T = Timer: While T + 5 > Timer: Wend

Cordialement,
Un aspirant à la programmation

Oui c'est ce que je recherche, merci pour ta proposition je vais essayer !

[Astumap]

Super ça fonctionne !! Merci beaucoup Overeath !