Bonjour,
Je suis fasse à un problème qui m'empêche de pouvoir poursuivre mon code VBA.
J'ai besoin de dire que l'instruction qui est dans la fonction [Windows("1-08-2013.xls").Activate] varie chaque jour en fonction de la date du jour.
Pouvez vous me prêter main forte.
Voici le code.
Sub CopyElement()
'
' CopyElement Macro
' Copier les éléments des tableaux des autres pages
'
' Touche de raccourci du clavier: Ctrl+Shift+C
'
Windows("1-08-2013.xls").Activate
Sheets("calcul journalier").Select
ActiveWindow.SmallScroll Down:=-15
Range("B4:G4").Select
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Sheets("STATS FLUX FROIDS & CHAUDS").Select
Range("B4:G4").Select
ActiveSheet.Paste
Windows("1-08-2013.xls").Activate
Range("B8:G8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Range("H4:M4").Select
ActiveSheet.Paste
Windows("1-08-2013.xls").Activate
Range("B12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Range("N4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("1-08-2013.xls").Activate
Range("B16:I16").Select
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
Range("T4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("1-08-2013.xls").Activate
Range("B19:C19").Select
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Sheets("STATS IMPACT CLIENT").Select
Range("I4").Select
ActiveSheet.Paste
Windows("1-08-2013.xls").Activate
Range("B23:H23").Select
Application.CutCopyMode = False
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Range("B4").Select
ActiveSheet.Paste
Windows("1-08-2013.xls").Activate
ActiveWindow.SmallScroll Down:=15
Range("B27:M27").Select
Application.CutCopyMode = False
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Sheets("STATS ECHANGE RS2I").Select
Range("G4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("1-08-2013.xls").Activate
Range("J23:N23").Select
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Range("B4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("1-08-2013.xls").Activate
Range("B31:P31").Select
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Sheets("STATS APPELS-MAILS").Select
Range("B4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("1-08-2013.xls").Activate
Range("B35:P35").Select
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Range("Q4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("1-08-2013.xls").Activate
Range("B39:P39").Select
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Range("AF4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("1-08-2013.xls").Activate
Range("B43:P43").Select
Selection.Copy
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
Range("AU4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("1-08-2013.xls").Activate
ActiveWindow.SmallScroll Down:=3
Windows("MOD-nouveau compte rendu icp-stats-macros.xls").Activate
End Sub
Merci d'avance.
