Discussion :

[tom592007]

Bonjour,

Je possède un classeur avec 40 onglets nommés client 1, client 2....,client 40.
Je souhaite simplement créer une macro qui exporte chaque onglet vers un nouveau classeur excel et que ce classeur prenne le nom de l'onglet (et non pas classeur 1,2....

Au total je souhaite obtenir 40 classeurs nommés respectivement client 1, client 2...

Je pense que c'est possible mais je n'y arrive pas ( ca fait une semaine que j'essaye)

Pouvez-vous éclairer ma lanterne?

[pgz]

Bonsoir.

Je te propose ce code

Code :

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

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

Et encore pire :

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

.

PGZ

[Godzestla]

Salut PGZ,

ça marche vraiment ta version encore pire ????

C'est de la pure démence ce code...

[pgz]

Salut Godz'

Et oui, en plus ça marche.

Amitiés,

PGZ