Discussion :

[MInfo25]

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

[EricDgn]

Bonjour,

En fait le Range("S4") que vous appelez se trouve dans la feuille active, càd la nouvellement créée, et est sans doute vide. Il faut reprendre cette valeur avant la création/copie, par exemple ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EnregDevis()
    'With ActiveSheet
        '.Cells.Locked = True
        '.Protect "123"
    'End With
    Dim sFileName As String
    sFileName = ThisWorkbook.Path & "\" & Range("S4").Value & ".xlsx"
    Range("N1:S43").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs sFileName, , , , True
End Sub

Cordialement.