souci pour transfert apres actualisation

[PHILIP]

Bonjour à tous,

j'importe des données de plusieurs classeurs dans un seul classeur que je dois expedier par outlock à plusieurs destinataires . Helas dans le developpement de cette macro j'ai un souci car chaque classeur source appelé a des données importées d'une source exterieure que je dois actualiser avant de les coller dans le classeur unique et le hic c'est que l'actulisation se faisant au bout de 15 à 30 secondes ma macro n'attends pas ce laps de temps et prend les données pas encore actualisées j'ai donc mis la ligne en rouge dans le code entre l'actualisation et le collage des données mais cela ne fonctionne pas

 Workbooks.Open ("C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls")
    ActiveWorkbook.RefreshAll
   [COLOR="red"] Do While Application.CalculationState <> xlDone
    Loop

[/COLOR]
auriez vous une autre methode?

merci pour votre aide

 

[Guest]

Re : souci pour transfert apres actualisation

Bonjour,

A tester,

Dim bkQuery as Boolean
 Workbooks.Open ("C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls")
  With  ActiveWorkbook
       'Récupère l'état synchrone ou asynchrone des mise à jours
       'Si elle sont faites ou non en arrière-plan
       .bkQuery=.BackgroundQuery
       'Force le mode synchrone (pas en arrière plan)
       .BackgroundQuery=False 
       'Appelle la mise à jour
       .RefreshAll
       'Repositionne le mode  à sa valeur initiale
       .BackgroundQuery=bkQuery
  End With

A+