macro qui réagi différemment si je fais F8 ou en automatique

Bonjour,
je me trouve devant un problème que je ne comprends pas.
j'ai une macro VBA sur un fichier Excel qui réuni des infos de deux autres fichiers Excel.
ces deux autres fichiers Excel sont des extractions d'un "logiciel externe".
ma macro ouvre le premier fichier et fait la mise à jour avec

Code:

---

ActiveWorkbook.RefreshAll

---

puis fait les actions souhaitées puis passe au deuxième et fait de manière identique.
tous se déroule bien sauf que je n'ai pas les nouvelles données!
donc je pars faire du débugage et j'avance pas par pas avec F8, et là pas de problème j'ai bien les nouvelles données!
j'ai essayé de mettre un temps d'attente après la mise à jour avec

Code:

---

Application.Wait (Now + TimeValue("00:00:05"))

---

mais rien n'y fait pas de nouvelle donnée en auto et toujours ok avec F8!
quelqu'un pourrait-il m'éclairer ou trouver peut-être une autre syntaxe plus "sûr"?
merci d'avance de votre aide.

Citation:

---

Envoyé par beta007

quelqu'un pourrait-il m'éclairer ou trouver peut-être une autre syntaxe plus "sûr"?

---

Encore faudrait-il connaitre la syntaxe que tu as utilisée et ce que fait exactement ta "mise à jour".

ma syntaxe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim NomClasseur As String   NomClasseur = "MonClasseur.xlsm" 'pour changer le nom du classeur final   'nettoie l'onglet final Sheets("Final").Select Range("A1:Z500").Clear   'ouvre le fichier amélioration Application.Workbooks.OpenXML _ Filename:="MonFichierQuiDoitEtremisAJour" ActiveWorkbook.RefreshAll Application.Wait (Now + TimeValue("00:00:05"))   'filtre les données souhaitées Selection.AutoFilter Field:=9, Criteria1:="Critère1" Selection.AutoFilter Field:=19, Criteria1:=" Critère2" Selection.AutoFilter Field:=5, Criteria1:=" Critère3", Operator:=xlOr, Criteria2:=" Critère4"

---

etc.
pour ce que fait la mise à jour je ne comprends pas bien ta question car je fais

Code:

---

ActiveWorkbook.RefreshAll

---

?