Bonjour
J’utilise power- query pour traiter de la donnée et aussi une macro pour copier/coller le résultat dans une feuille et l’imprimer…
Ma macro commence par actualiser tout puis commence son travaille de copier/coller…
Mais cela va trop vite.
L’actualisation prend environ une dizaine de secondes et j’ai besoin d’une temporisation, voilà mon code :
Sub copiercoller()
'---------------------------------------------------------------------------------------------------------------------------
' La macro sert pour Copier/Coller le résultat des feuilles T_Rup & T_Rup_Stages vers les feuilles Print T_Rup & Print T_Rup_Stages
'---------------------------------------------------------------------------------------------------------------------------
ActiveWorkbook.RefreshAll
***C'est ici que j'ai besoin de 10 secondes***
'-------------------------------------------------------------------------
'Copier/coller le résultat de la feuille T_Rup vers la feuille Print T_Rup
'-------------------------------------------------------------------------
Sheets("Print T_Rup").Select
Rows("8:8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("A8").Select
Sheets("T_Rup").Select
Range("T_Rup").Select
Selection.Copy
Sheets("Print T_Rup").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A8").Select
Merci de votre aide
Fabien