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 :
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.
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 :
Code:
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.