Microsoft 365 Comment exporter certaines feuilles d'un classeur dans un nouveau classeur.

DenisHen à dit:

Bonjour à la communauté.
Aujourd'hui, je cherche à sauvegarder certaines feuilles de mon classeur vers un nouveau classeur. Le tout en VBA bien-sûr.
Je n'ai aucune idée par où commencer, saur par un "msoFileDialogSaveAs", mais je n'en suis pas certain, j'ai fais plusieurs testes vains.
J'aimerais juste placer les feuilles dans un .xls, pour rester au plus simple. Il n'y a que des données, aucune formule, aucun lien...
Je pensais à un truc du genre : Sheets("feuilleàcopier").Copy, mais, il faut que j'arrête de ramer, j'attaque la falaise ! !
Si quelqu'un a une astuce, une idée, un conseil, je suis preneur.
Bien à toi la communauté.
Denis...

Cliquez pour agrandir...

Sub créationClasseur()
    Dim Sh As Worksheet, Chemin$
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False    ' Supprimerr cette ligne s'il faut avertir que le classeur existe déja
    Chemin = ThisWorkbook.Path & "\"    ' A adapter (ici le même chemin que le classeur source)
    For Each Sh In Sheets(Array("Feuil2", "Feuil3", "Feuil5"))    ' adapter le nom des feuilles a copier
        Sh.Copy
        With ActiveWorkbook
            .SaveAs Chemin & Sh.Name, FileFormat:=51
            .Close False
        End With
    Next
End Sub