1 classeur 10 feuilles = 10 classeurs 1 feuille

[christian]

Bonjour,

impossible de trouver l'outil ou le truc me permettant de transformer un classeur avec 15 feuilles par exemple en 15 classeurs avec 1 des 15 feuilles du doc original. je suis sous excel 2002 et je tourne en rond.
merci pour votre aide
christian

 

[Charly2]

Bonsoir Christian, bonsoir à toutes et à tous

Je te joins un fichier avec une procédure simple et à recopier telle quelle dans un module de ton classeur.

[file name=ExempleChristian.zip size=9226]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleChristian.zip[/file]

A+

 

[Temjeh]

Bonsoir à toi

Sub Macro1()
Dim chemin
chemin = ActiveWorkbook.Path
ChDir ActiveWorkbook.Path
For i = 1 To 10
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:= _
chemin & '\\' & i & '.xls'
ActiveWorkbook.Close
Next i
End Sub

Temjeh

 

[Temjeh]

Oups

Bonsoir Charly2

2 solution pour le même prix

Temjeh

 

[Charly2]

Bonsoir Temjeh

Et en plus, ce sont presque les mêmes

A+

 

[Temjeh]

Rebonsoir
Sauf la tienne n'avait pas d'euueurs


J'avais mal tester voici la bonne:

Dim chemin
chemin = ActiveWorkbook.Path
ChDir ActiveWorkbook.Path
For i = 1 To 10
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:=i & '.xls'
ActiveWorkbook.Close
Next i

Temjeh

 

[christian]

Alleluia!!
merci, quel gain de temps.