Creer 1 fichier par feuille

[allegro50]

Bonjour le Forum

J'ai éclaté un TCD par feuille (afficher les pages qui cree ne feuille pour chaque valeur de la variable ''Page'').
Je souhaite enregistrer chacune de ces feuilles dans un fichier .xls indépendant (qui porte le nom de la feuille)

Quelqu'un peut-il me fournir les qques lignes de code neécessaires?

Merci
PG

 

[CBernardT]

Bonsoir Allegro50,

Je te propose d'employer cette macro qui est à placer dans un module standard. Créer un bouton dans la feuille 'Accueil' de ton classeur pour la lancer :

Sub Transformation()
Dim Ws As Worksheet
Dim Nom As String, Chemin As String
Dim N As Integer

'Répertoire de l'archivage
Chemin = ThisWorkbook.Path
'Numéro du classeur en fonction du nombre de feilles
N = 1
'Boucle sur les feuilles du classeur
For Each Ws In Worksheets

If Ws.Name <> ActiveSheet.Name Then
'Nom du futur classeur
Nom = Chemin & '\\' & 'Relevé ' & N & '.xls'
'Création du classeur à partir de la feuille
Ws.Copy
'Enregistrement du classeur
ActiveWorkbook.SaveAs Filename:=Nom
'Fermeture du classeur
ActiveWindow.Close
N = N + 1
End If
Next Ws
End Sub

Cordialement

Bernard

Message édité par: CBernardT, à: 29/06/2005 17:31

 

[Allegro50]

Merci Bernard,

Je teste et te tiens au courant

Bonne soirée

PG