Création plusieurs classeurs

[Gysmo]

Bonjour, j'ai un classeur qui contient 52 onglets....j'aimerais avoir un code vba pour creer et enregistrer des classeurs avec chacun des 52 onglet avec le nom

Merci

 

[camarchepas]

Re : Création plusieurs classeurs

Bonjour Gysmo,

Voici sous forme de procédure :

L'appel ce fera ainsi

call coupefichier(Nom du classeur, Chemin vers lequel du veux sauvegarder les fichiers)

Sub CoupeFichier(NomFiche As String, Chemin As String)
'Sauvegarde chaque onglets dans un fichier du même nom que l'onglet
Dim Onglet As Worksheet

  For Each Onglet In Workbooks(NomFiche).Worksheets
    Worksheets(Onglet.Name).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Chemin & Onglet.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True
    ActiveWindow.Close False
  Next
End Sub

 

[JBARBE]

Re : Création plusieurs classeurs

Bonjour,

Voici un code pour insérer 52 onglets et les nommer :

Sub InsérerNommerFeuilles()

Dim i As Integer
 For i = 1 To 52
   ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = InputBox(" A nommer")
Next

End Sub