PLUSIEURS ONGLETS

barones4728 Messages postés 14 Date d'inscription mercredi 5 décembre 2018 Statut Membre Dernière intervention 13 décembre 2023 - 11 déc. 2023 à 15:43
barones4728 Messages postés 14 Date d'inscription mercredi 5 décembre 2018 Statut Membre Dernière intervention 13 décembre 2023 - 13 déc. 2023 à 10:56

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

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
11 déc. 2023 à 16:32

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
barones4728 Messages postés 14 Date d'inscription mercredi 5 décembre 2018 Statut Membre Dernière intervention 13 décembre 2023
12 déc. 2023 à 10:40

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
barones4728 Messages postés 14 Date d'inscription mercredi 5 décembre 2018 Statut Membre Dernière intervention 13 décembre 2023
12 déc. 2023 à 16:51

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

0
Raymond PENTIER Messages postés 58397 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 avril 2024 17 094
12 déc. 2023 à 01:38

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
barones4728 Messages postés 14 Date d'inscription mercredi 5 décembre 2018 Statut Membre Dernière intervention 13 décembre 2023
12 déc. 2023 à 10:38

bonjour mais mon fichier est trop important

0
dadout Messages postés 2934 Date d'inscription vendredi 25 février 2022 Statut Membre Dernière intervention 26 mars 2024 37
12 déc. 2023 à 09:34

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
barones4728 Messages postés 14 Date d'inscription mercredi 5 décembre 2018 Statut Membre Dernière intervention 13 décembre 2023
12 déc. 2023 à 10:37

merci dadout

0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
Modifié le 13 déc. 2023 à 10:57

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
barones4728 Messages postés 14 Date d'inscription mercredi 5 décembre 2018 Statut Membre Dernière intervention 13 décembre 2023
13 déc. 2023 à 10:56

merci mike

0