Discussion :

[Zatow]

Bonjour,

En cherchant un moyen de faire une pause de 10 secondes dans mon code, j'ai trouvé ce code :

Code :

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

1
2
3
4
 
Workbooks.Open Filename:="***\Excel.csv"
Application.Wait Time + TimeSerial(0, 0, 10)
Workbooks("Excel.csv").Worksheets("Feuil1").Range("A1:A300").Replace What:=",", Replacement:=";"

Le problème est qu'il met aussi en pause l'ouverture de mon fichier ce qui n'est pas du tout ce que je souhaite.

Y -a-t-il un moyen de mettre une attente de 10 secondes en VBA sans pour autant mettre en pause toutes les taches en court ?

[jurassic pork]

Hello,
1 - Pourquoi as-tu mis une attente de 10 secondes ?
2 - Chez moi avec ton code le classeur excel s'ouvre tout de suite (excel 2019).
Sinon tu peux essayer une boucle :

Code :

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

1
2
3
4
5
6
 
Dim counter as integer
For counter = 1 To 10
Application.Wait Time + TimeSerial(0, 0, 1)
DoEvents
Next counter

Ami calmant, J.P

[Zatow]

Bonjour et merci pour ta réponse.

Le problème que j'ai rencontré avec "Application.wait" est que ça met tout en pause et donc si j'ai demandé l'ouverture d'un fichier Excel suivie d'une pause de 10 secondes -> Mon fichier Excel va s'ouvrir après le wait
je dois attendre l'ouverture d'un fichier Excel en mode WEB, c'est une contrainte particulière qui m'oblige à faire une pause pour que le code ne s'exécute pas avant l'ouverture du fichier.

Finalement j'ai trouvé un autre moyen sans utiliser le VBA

Merci à toi !