Création de fichiers individuel par onglet

[jozerebel]

Bonjour à tous,

J’ai un fichier avec plein d’onglets, l’objectif est de créer en automatique autant de fichiers que d’onglets pour n’avoir des fichiers qu’avec l’onglet correspondant.

Je souhaiterais également que la macro de démarrage du fichier maître se reproduise sur les fichiers générés.

D’avance merci pour votre aide !

 

[jozerebel]

Re : Création de fichiers individuel par onglet

Bonjour,

en récupérant des codes ici et là, j'ai avancé dans mon pb.

Mais je n'arrive toujours pas à créer mes fichiers de manière à ce que ma macro de démarrage (dans wkbook)se duplique sur les fichiers créés...

je joins mon avancée et vous remercie pour votre aide!

 

[Guest]

Re : Création de fichiers individuel par onglet

Bonsoir,

Voici ta macro corrigée:

il faut mettre à 'moyen' le niveau de sécurité des macros dans les options de sécurité des macro et cocher 'faire confiance au projet visual basic' dans l'onglet 'sources fiables'

P.S. j'ai changé le dossier de destination pour mon test.

Sub CopieOnglets()
    Dim txtMacro As String
    Dim nbLignes As Integer
    Dim ceFichier As Workbook
    Set ceFichier = ActiveWorkbook
    Dim nouveauFichier As Workbook
    'Récupère le texte de la macro
    With ceFichier.VBProject.VBComponents("ThisWorkbook").CodeModule
        txtMacro = .Lines(1, .CountOfLines)
    End With
 
    For Each fSheet In ceFichier.Worksheets
        Workbooks.Add
        Set nouveauFichier = ActiveWorkbook
        fSheet.Copy Before:=nouveauFichier.Sheets(1)
 
        'copy le text de la macro dans le nouveau ThisWorkBook
        nouveauFichier.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromString txtMacro
 
        nouveauFichier.SaveAs Filename:=ThisWorkbook.Path & "\" & fSheet.Name, FileFormat:=xlNormal
    Next
End Sub

A+

 

[jozerebel]

Re : Création de fichiers individuel par onglet

Merci bcp!

Bonne soirée!