Attendre la fin d'une serie de requête et la fin d'un calculatefull

[CyK]

Bonjour le Forum,
Bonjour le futur Fil,

voilà j'ai fait une superbe feuille excel (ben oui avec plein de sommeprod, indirect, décaler, connexion MS-Query et autres, à force de suivre vos exploits ça commence à rentrer 😉)

Mais maintenant je voudrais faire des itérations sur une liste (qui pour l'instant dans mon exemple contient 10 éléments mais qui à terme en comportera environ 5000, d'où la recherche d'automatisation et d'enregistrement des résultats avec le code suivant :

Sub RunTaf()
    Dim i As Integer
    Dim fname As String
    
    For i = 1 To 10
        'MsgBox Sheets("ITEMS").Cells(i + 1, 1).Value
        
        fname = Cells(2, 3).Value
    
        Sheets("SUMMARY").Cells(2, 3).Value = Sheets("ITEMS").Cells(i + 1, 1).Value
        ActiveWorkbook.RefreshAll    
        
        
        
        Application.CalculateFull
        
        ActiveWorkbook.SAVEAS Filename:= _
        "H:\SUPPLY PLANNING\ANALYSIS\MODELS\" & fname & ".xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        
    Next
    
End Sub

Le problème c'est que je ne trouve pas comment attendre la fin du Refresh et du Calculate avant d'enregistrer.

D'avance merci.

 

[CyK]

Re : Attendre la fin d'une serie de requête et la fin d'un calculatefull

Je crois que j'ai trouvé, je fais un testsur application.calculationstate et pour les queries il faut désactiver l'actualisation en arrière plan