Transférer toutes les feuilles sauf une

michel-nac · 26 Novembre 2018

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 · 27 Novembre 2018

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

cp4 · 27 Novembre 2018

Bonjour,

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

VB:

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 · 27 Novembre 2018

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

Transférer toutes les feuilles sauf une

michel-nac

XLDnaute Nouveau

Pièces jointes

Lolote83

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

michel-nac

XLDnaute Nouveau

Discussions similaires