Excel : faire un fichier par onglet Résolu

Question

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.

Polux31 · Accepted Answer

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)

loukoumeuh · Answer

Nickel, merci beaucoup.

bobleranger · Answer

Génial, c'est exactement ce que je cherchais!

Jpmaligne · Answer

Je suis vraiment nul, je dois faire la même chose mais je ne sais juste pas ou mettre le codage... Est-ce possible de m'aider ?

Merci

bigstyx · Answer

Je suis aussi totalement débutant, mais ça, je sais faire ;)

1) une fois ouvert le fichier .xls, faire Alt-F11 pour ouvrir l'éditeur VB
2) click droit n'importe où dans la zone porject en haut à gauche, puis Insert ==> Module
3) copier/coller le code ci-dessus dans la partie droite, le sauver et fermer l'éditeur
4) pour l'exécuter, faire Alt-F8 depuis l'.xls, sléectionner la macro, et cliquer sur le bouton Run (j'ai la version anglaise)
5) pour associer 1 raccourci à cette macro, au lieu de run, cliquer sur option

bon courage

Jpmaligne · Answer

Merci , 

J'ai tout réussi le seul défaut est que les feuille se sauvegarde dans mes documents mais bon, je les copie colle !

Polux31 · Answer

Bonjour Amandine,

Si le fichier d'origine est celui qui contient la macro, il suffit de changer cette ligne :

newWk.SaveAs (ws.Name & ".xls")

Par :

newWk.SaveAs (Thisworkbook.path & "\" & ws.Name & ".xls")

 ;0)

glamedril · Answer

parfait, merci beaucoup, très utile!

Excel : faire un fichier par onglet

8 réponses

Discussions similaires

Newsletters