PLUSIEURS ONGLETS

Bonjour,

j'ai une vingtaine d'onglets regroupés sous un meme fichier et je voudrais les enregistrer chaque onglet sous un nouveau fichier


Windows / Firefox 120.0

4 réponses

  1. Bonjour,

    c'est possible si tu as des connaissances en VBA

    la duplication des onglets se fera dans le même répertoire ou se trouve le fichier Excel.

    En fait tu as un fichier d composé de 20 onglets et tu souhaites avoir 20 fichier au nom de chaque onglet, c'est bien cela !


    0
    1. bonjour

      non ils ont tous un nom différent mais je voudrais rassembler tous les fichiers qui ont le même nom mais differents suivant les années et créer une sorte de sous fichier

      0
    2. oui c'est cela je voudrais les rassembler par année

      0
  2. Contributeur

    Bonjour.

    Pour quelle raison importante tu souhaites éparpiller ces onglets ?

    En général c'est plutôt l'inverse qu'on cherche à faire, rassembler plusieurs fichiers en un seul, pour faciliter les recherches et les calculs ...


    0
    1. bonjour mais mon fichier est trop important

      0
  3. Bonjour,

    tu fais click droit sur l'onglet, move or copy,

    Dans le 1er champs tu choisis "new book" et tu selectionne ou non "create a copy" (selon que tu veuille garder l'onglet ou non)

    0
    1. merci dadout

      0
  4. Re,

    Pour ma part si tu as plusieurs onglets qui contiennent en partie le même nom exemple Toto 2020, Toto 2021, Toto 2022 etc et tu souhaites regrouper sur un même fichier que les Toto ou au contraire par année tous les dates 2022

    je te conseillerai de dupliquer ton fichier de sorte d'en conserver un intact et de créer sur le deuxième fichier ce type de code pour supprimer tous les onglets contenant ou ne contenant pas un mot clé.

    exemple dans un premier temps tu veux conserver un fichier contenant Toto, ce code supprimera tous les onglets ne contenant pas le mot Toto dans le nom de l'onglet. Ne reste plus qu'à enregistrer ton fichier sous pour le renommer et l'archiver

    réouvrir le fichier dupliqué et changer le mot clé dans le code et en 2 minutes tu auras tes fichiers scindé suivant ton choix par date ou nom.

    Bien sur il est possible de tout intégrer dans le code, mais ne connaissant pas la structure de ton fichier ou construire un code complexe, autant travailler avec un code simple de trois lignes 

    Sub Supprime_les_Onglets()
    Dim ws As Object
    Application.DisplayAlerts = False
    For Each ws In Sheets
       If ws.Name Like "*Toto*" = False Then ws.Delete
    Next ws
    Application.DisplayAlerts = True
    End Sub

    0
    1. merci mike

      0