Re : Sommer deux plages sur deux classeurs.
re
pas trop letemps pour l'instant , regared l ecode ci après
Dim chemin As String, nomfichier As String, nomfichier1 As String
'définit chemin
chemin = "E:\FACTURE\" & Format(Cells(1, 3).Value, "mmmmyy") & "\"
'mémorise nom fichier actuel
nomfichier = ActiveWorkbook.Name
'ouvre nouveau fichier
Workbooks.Add
nomfichier1 = ActiveWorkbook.Name
'rebascule sur modèle pour copie
Windows(nomfichier).Activate
Cells.Select
Selection.Copy
Range("A1").Select
'rebascule sur nouveau pour colle
Windows(nomfichier1).Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
'sauve nouveau avec nom de fichier récupéré dans cellule
ActiveWorkbook.SaveAs FileName:=chemin & Cells(3, 4) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close