Copie vers un nouveau classeur

Bonsoir à tous,

J'utilise ce code pour copier une feuille vers un nouveau classeur

With ThisWorkbook
    .Sheets(3).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "C:\Users\Admin\Desktop\" & .Sheets(3).Range("E6").Value
    ActiveWorkbook.Close
End With

Au lieu de copier la feuille 3 entiere j'aurai besoin d'en copier une partie

Copier ("AA1:AZ200") sur A1 du nouveau classeur

Je n'arrive pas à trouver la bonne méthode...

Merci d'avance

bonjour

étant nul en VBA, j'utilise l'enregistreur

tente le coup

dans la macro enregistrée, tu pourras lire les lignes de code qui te manquent

Bonjour

A tester car pas testé

Sub test()
  With ThisWorkbook
    .Sheets(3).Copy
    Cells.Clear
    .Sheets(3).Range("AA1:AZ200").Copy Range("A1")
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "C:\Users\Admin\Desktop\" & .Sheets(3).Range("E6").Value
    ActiveWorkbook.Close
  End With
End Sub

Bonjour,

A tester.

Cdlt.

Public Sub DEMO()
Dim wb As Workbook, ws As Worksheet, sPathName As String, sFilename As String

    Set wb = ThisWorkbook
    Set ws = wb.Worksheets(3)
    sPathName = "C:\Users\Admin\Desktop\"
    sFilename = sPathName & ws.Range("E6")

    Application.ScreenUpdating = False

    Range("AA1:AZ200").Copy

    Workbooks.Add (xlWBATWorksheet)
    Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False

    With ActiveWorkbook
    .SaveAs Filename:=sFilename, FileFormat:=xlOpenXMLWorkbook
    .Close
    End With

    Set ws = Nothing: Set wb = Nothing

End Sub

Bonjour,

Impeccable c'est ce qui me fallait

Banzai64

La macro s’arrête à ce niveau:

ActiveWorkbook.SaveAs "C:\Users\Admin\Desktop\" & .Sheets(3).Range("E6").Value

Mais celle de Jean-Eric fonctionne

Merci à tous