Excel : faire un fichier par onglet

Résolu/Fermé
loukoumeuh - 9 sept. 2009 à 10:53
 Thelastboyscout - 23 sept. 2021 à 10:37
Bonjour,

Tout d'abord ce forum est une vraie mine d'info, merci à tous.

J'ai un fichier excel 2003 qui comporte beaucoup d'onglets (plusieurs dizaines), et je voudrais séparer tous les onglets et obtenir un fichier par onglet. A la main, c'est faisable (clique droit sur l'onglet, copier vers nouveau classeur etc ...) mais c'est lourd quand il y a beaucoup d'onglets. La cerise sur le gâteau serait que chaque nouveau fichier porte le nom de l'onglet d'origine.

Est-ce que je suis claire ?
Si vous pouviez me donner des pistes dans les menus excel ou pour faire une macro, je serais ravie.

Merci d'avance.
A voir également:

8 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
9 sept. 2009 à 12:21
Bonjour,

Copie/Colle ça dans un module en passant par l'éditeur VB :

Sub saveOnglet()
Dim ws
Dim newWk As Workbook

    For Each ws In Worksheets
        Set newWk = Workbooks.Add(xlWBATWorksheet)
        ws.Copy newWk.Sheets(1)
        newWk.SaveAs (ws.Name & ".xls")
        newWk.Close
        Set newWk = Nothing
    Next ws

End Sub


Ensuite affecte un raccourci à la macro.

;o)
17
Désolée pour le double post, je ne trouve plus le bouton "modifier" ...

Le seul souci, comme mon fichier est gros, excel plante et n'enregistre pas les fichiers sous prétexte qu'il n'a pas assez de ressources disponible .... bouh ou houhohuouh ....
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > loukoumeuh
9 sept. 2009 à 16:42
Désolée pour le double post, je ne trouve plus le bouton "modifier" ...

De quel bouton parles-tu ?

Pour ton souci, je ne peux malheureusement rien ...

;o)
0