Bonjour
J'aimerais copier une partie de ma feuille de N1:S43 et l'enregistrer dans une nouveau classeur. Je me perds à ce niveau :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("S4"), , , , True
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub EnregDevis()
 
 
'With ActiveSheet
 
 
'.Cells.Locked = True
'.Protect "123"
'End With
Range("N1:S43").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Range("H12").Select
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("S4"), , , , True
 
 
 
End Sub
Merci