Discussion :

[ash_rmy]

Bonjour,

Comment enregistrer chaque onglet d'un classeur Excel (de plusieurs onglets) dans un classeur qui n'aura que cette onglet avec pour nom du classeur le nom de l'onglet.

Merci de votre aide.

ash_rmy.

[pgz]

Bonjour.

Je pense que c'était déjà l'objet de cette discussion

Je te redonne le code proposé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub subSplitWorksheets()
Dim sh As Excel.Worksheet
 
For Each sh In Application.ThisWorkbook.Worksheets
    sh.Copy
    Application.ActiveWorkbook.Close True, Application.ThisWorkbook.Path & "\" & sh.Name
Next sh
 
End Sub

Cordialement,

PGZ

[ash_rmy]

merci !

ash_rmy.