Mise à jour données externes dans un autre fichier

[PrinceCorwin]

Bonjour le forum,

J'ai deux classeurs (Fichier1, Fichier2)
Dans Fichier1, j'ai une connexion SQL.
Dans le Fichier2, j'ai un tableau qui vient lire les données avec un REHERCHEV.

Je souhaite que le Fichier2 fasse une pause, le temps que le Fichier1 se mette à jour.
Dans le Fichier2, j'ai e code suivant :

Workbooks("Fichier1").RefreshAll
cells(1,2).select
selction.formulaR1C1="=VLOOKUP(RC[-1],'[Fichier1]Feuil1'!C1:C5,4,FALSE)

Mais le Fichier1 n'a pas finie sa Mise à Jour que le recherchev a terminé.
Donc pas la bonne information remontée.

Comment puis-je faire pour que le Fichier2 attende la fin de la mise à jour du Fichier1 ?

Merci à tous pour vos propositions.
JCB

 

[Pierrot93]

Re : Mise à jour données externes dans un autre fichier

Bonjour,

peut être avec ceci, avant ton "recherchev" :

With Workbooks("classeurrequete").Sheets("feuillerequete")
    Do Until .QueryTables(1).QueryTable.Refreshing
        DoEvents
    Loop
End With

bon après midi
@+

 

[PrinceCorwin]

Re : Mise à jour données externes dans un autre fichier

Hello,

Merci pierrot, je vais potasser l'affaire et tester cela lundi matin aux aurores.
je vais déjà essayer de trouver le nom de chaque tableau.

bon weekend end

 

[PrinceCorwin]

Re : Mise à jour données externes dans un autre fichier

Bonjour le forum,

Merci Pierrot, ta solution m'a beaucoup aidé, même si je n'ai pas su la faire fonctionner... 'Shame on Me'

En cherchant plus sr ton code, j'a trouvé l'option qui permet de faire la mise à jour e mode 'arrière-plan'.
Il suffit de décocher cette case et l'affaire est jouée.

Merci.