gestion des onglets

[polo]

Bonjour
Voici mon but : Automatiser une tache
J'ai un fichier Excel avec n Onglets
Je voudrais copier chaque onglet dans un fichier à part et le sauvegarder en format tabulation.
Chaque nouvel fichier devra porté le nom de l'onglet d'origine
Quelqu'un peut m'aider ?
Merci par avance

 

[myDearFriend!]

Bonsoir polo,

Ci-joint un exemple qui peut peut-être répondre à ta demande...

J'ai utilisé la procédure suivante :

Sub Traitement()
'myDearFriend! 23/01/06
Dim F As Worksheet
Dim Chemin As String
      Chemin = ThisWorkbook.Path & '\\'
      Application.ScreenUpdating = False
      For Each F In Worksheets
            F.Copy
            ActiveWorkbook.SaveAs Filename:=Chemin & ActiveWorkbook.Sheets(1).Name _
                  & '.txt', FileFormat:=xlText
            ActiveWorkbook.Close False
      Next F
      Application.ScreenUpdating = True
End Sub

Cordialement, [file name=PourPolo.zip size=10721]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourPolo.zip[/file]

 

[polo]

Merci beaucoup
Ta solution repond parfaitement au besoin


Merci Encore