Excel : faire un fichier par onglet

Résolu
loukoumeuh -  
 Thelastboyscout -
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   Statut Membre Dernière intervention   1 204
 
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
loukoumeuh
 
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   Statut Membre Dernière intervention   1 204 > loukoumeuh
 
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