Private Sub EXPORT_STATS()
On Error Resume Next
Application.ScreenUpdating = False
'Avec cette ligne, les fichiers doivent être dans le même répertoire !
Workbooks.Open Filename:=ThisWorkbook.Path & "\ClasseurSource.xlsm"
'Ou... et modifier le chemin
'Workbooks.Open Filename:="C:\Users\XXXX\Desktop\ClasseurSource.xlsm"
Windows("stats_2012.xlsm").Activate
With Workbooks("stats_2012.xlsm")
With Sheets("SYNTHESE")
.Unprotect "monmotdepasse"
With Workbooks("ClasseurSource.xlsm")
Windows("ClasseurSource.xlsm").Activate
With Sheets("export")
.Unprotect "monmotdepasse"
.Range("A3:AM3").Copy
End With
End With
Windows("stats_2012.xlsm").Activate
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
.Paste Link:=True
Application.CutCopyMode = False
With Workbooks("ClasseurSource.xlsm")
With Sheets("export")
.Protect "monmotdepasse", True, True, True
End With
End With
.Protect "monmotdepasse", True, True, True
End With
.Save
End With
'Si tu veux fermer le ClasseurSource
'Windows("ClasseurSource.xlsm").Activate
'ActiveWindow.Close
Application.ScreenUpdating = True
End Sub