Discussion :

[beta007]

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 :

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

 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 :

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

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.

[Menhir]

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".

[beta007]

ma syntaxe

Code :

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

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 :

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

ActiveWorkbook.RefreshAll

?