Faire une pause en vba

Logiciel & apps Programmation
1

Bonjour à tous,

J’ai un problème avec une macro que je réalise actuellement sous vba.
La voici :

Workbooks.Open "fichier1.xls"
Cells(1, 1).Select
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
ActiveWindow.Close
''''''''''
Workbooks.Open "fichier2.xls"
Cells(1, 1).Select
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
ActiveWindow.Close

Le problème est que lorsque j’execute ceci excel me dit « Cette commande va annuler une commande d’actualisation des données. Voulez vous continuer »
Ce message apparait aux lignes suivantes :
ActiveWorkbook.Save
ActiveWindow.Close
Le problème je pense c’est que lorsque je sauvegarde il acutalise encore et lorsque je ferme il sauvegarde encore.

J’ai essayé de mettre ceci :
Public Sub wait(length)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + length
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.wait waitTime
End Sub

Avec lenght = 30 mais ça ne marche pas, or ni l’actualisation ni la sauvegarde ne met plus de 30 secondes.

Merci d’avance de votre aide.

2

Normalement, wait suspend toute activité pendant le temps de pause.
Tu es sûr que la sauvegarde se poursuit pendant ce temps ?

3

Je me posais egalement cette question. Lorsque je fait wait qu’est ce qui se passe…

J’ai essayé de mettre un do loop until i = 30 000 a la place du wait mais c’est le meme resultat.

En fait ce qui me faudrait c’est une formule qui detecte qu’une application tourne.

Le reve serait:

do
'rien
loop until autodetect.application = false

Un truc dans le genre, je sais pas si je suis tres clair

4

Si tu mets un loop, tu risques de te retrouver dans les mêmes conditions si tu n’as pas mis de doevents() à l’intérieur de la boucle