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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DenisHen

XLDnaute Junior
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...
 
Dernière édition:
Bonjour Denishem,
Si le fichier destination est à créer, alors le plus simple est de supprimer les feuilles indésirables du fichier courant puis faire un "enregistrer sous".
Si le fichier destination existe et qu'il faut l'enrichir alors c'est un poil plus complexe.
Dans quelle situation êtes vous ?
 
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...
Bonjour à tous
Sil s'agit de copier simplement certaine feuille dans un nouveau classeur, alors le code ci-dessous devrait faire.
En adaptant le chemin et le nom des feuilles à copier
dans cet exemple le classeur aura comme nom celui des feuilles a copier
VB:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour