Transférer toutes les feuilles sauf une

[michel-nac]

Bonjour à tous,
je reviens vers vous pour demander votre aide à nouveau au sujet de ma nouvelle problématique.
au fait je cherche à exporter toutes les feuilles que j'ai dans mon exemple sauf l'onglet total de la manière suivante.
la feuille comptable se transfère vers un nouveau classeur qui sera nommé aussi Comptable et qui ne va contenir que cette feuille. (la même chose pour les autres feuilles gestionnaire, Auditrice, DAF, Commercial)
chaque feuille dans un classeur isolé mais toutes dans le même dossier que le classeur d'origine.

NB: le nombre de feuilles à exporter n'est pas constant je peux avoir d'autres feuilles dans le fichier Plan

Merci pour votre aide

 

[Lolote83]

Salut MICHEL-NAC,
Voir ton fichier en retour si cela convient
@+ Lolote83

 

[cp4]

Bonjour,

Je viens de terminer la macro, autant la communiquer bien que très similaire à celle de Lolote83.

Sub Macro1()
' Touche de raccourci du clavier: Ctrl+h
   Dim Sh As Worksheet, Chemin As String
   Chemin = ThisWorkbook.Path
   For Each Sh In ThisWorkbook.Worksheets
      If Sh.Name <> "Total" Then
         Sheets(Sh.Name).Copy
         ActiveWorkbook.SaveAs Chemin & "\" & Sh.Name & ".xlsx"
         ActiveWorkbook.Close
      End If
   Next
End Sub

@Lolote83 : Bonjour

 

[michel-nac]

Bonjour Lolote83, cp4

les deux codes fonctionnent très bien avec une préférence à celui de lolote83 même s'il prend presque 25 secondes vu que j'ai 30 feuilles à transférer dans le fichier principal.
merci beaucoup pour votre aide

michel