Creation des classeurs

biba78 · 21 Mars 2017

Bonjour à tous,
j'ai besoin de votre aide 🙂
j'ai la macro ci-dessous qui me permet de créer des classeurs de tous les onglets disponible dans mon fichier.
j'ai besoin de modifier le code, pour permettre la création des classeurs A, B, C, D .....( ect), mais pas la création des classeurs Menu et Liste .

En vous remerciant par avance
Cordialement

Sub classeurs()
For Each feuille In ActiveWorkbook.Sheets
feuille.Copy
With ActiveWorkbook
.Title = feuille.Name
.Subject = feuille.Name
.SaveAs Filename:=feuille.Name + ".xls"
End With
Next
End Sub

Robert · 21 Mars 2017

Bonjour Biba, bonjour le forum,

Essaie comme ça :

VB:

Sub classeurs()

For Each feuille In ActiveWorkbook.Sheets

    Select Case feuille.Name 'agit en fonction du nom de l'onglet "feuille"

        Case "Menu", "Liste" 'cas "Menu" et "Liste", ien ne se passe

        Case Else 'tous les autres cas

            feuille.Copy

            With ActiveWorkbook

                .Title = feuille.Name

                .Subject = feuille.Name

                .SaveAs Filename:=feuille.Name + ".xls"

            End With

    End Select

Next

End Sub

JCGL · 21 Mars 2017

Bonjour à tous,

Biba78 : il faut ajouter un espace derrière "Menu" dans le code ou l'enlever dans le nom de l'onglet

A+ à tous

job75 · 21 Mars 2017

Bonjour biba78, Robert, Jean-Claude,

Commencez par enlever l'espace superflu à la fin du nom de l'onglet "Menu ".

Ensuite vous pouvez lancer la macro :

Code:

Sub classeurs()
Dim feuille As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si un fichier a déjà été créé
For Each feuille In Sheets
  If feuille.Name <> "Menu" And feuille.Name <> "Liste" Then
    feuille.Visible = xlSheetVisible 'si la feuille a été masquée
    feuille.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & feuille.Name, _
      FileFormat:=IIf(Val(Application.Version) < 12, -4143, 56)
    ActiveWorkbook.Close
  End If
Next
End Sub

Le FileFormat pour obtenir un fichier .xls diffère suivant la version Excel utilisée.

A+

biba78 · 21 Mars 2017

Merci beaucoup pour vos réponses c'est ok 🙂

Creation des classeurs

biba78

XLDnaute Junior

Pièces jointes

Robert

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

biba78

XLDnaute Junior

Discussions similaires

Creation des classeurs

biba78

XLDnaute Junior

Pièces jointes

Robert

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

biba78

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency