Autres Création classeurs de 3 feuilles avec une information à reporter.

[dhyeres]

Bonjour,
J'ai une macro qui me reproduit un classeur de 3 feuilles selon une liste comportant 2 colonnes.
Je n'arrive pas à trouver comment reporter au moment de la création l'information de la colonne B de ma liste dans la feuille "Compte comité 2023" en "E2" de façon à ce que chaque nouveau classeur comporte l'information individuelle qui est au regard du nom du classeur sur la feuille liste.
Merci pour votre aide
Cordialement,

 

[Jacky67]

Bonjour,
J'ai une macro qui me reproduit un classeur de 3 feuilles selon une liste comportant 2 colonnes.
Je n'arrive pas à trouver comment reporter au moment de la création l'information de la colonne B de ma liste dans la feuille "Compte comité 2023" en "E2" de façon à ce que chaque nouveau classeur comporte l'information individuelle qui est au regard du nom du classeur sur la feuille liste.
Merci pour votre aide
Cordialement,

Bonjour,
Quelque chose comme ceci peut-être

Sub CréerLesFichiers()
    Dim i&, nomf$
    Application.ScreenUpdating = False
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        nomf = Range("A" & i)
        Feuil4.[e2] = Range("b" & i)
        Sheets(Array("Comptes comité 2023", "Codification 2023", "Répartition des postes")).Copy
        Application.DisplayAlerts = False
        With ActiveWorkbook
            .SaveAs ThisWorkbook.Path & "\" & nomf & ".xlsx"
            .Close
        End With
    Next i
    Feuil4.[e2] = ""
End Sub

 

[job75]

Bonjour dhyeres, Jacky67,

Ou directement dans la feuille créée :

Sub CréerLesFichiers()
    Dim f As Worksheet, i&, nomf$
    Set f = Sheets("Liste")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For i = 1 To f.Range("A" & f.Rows.Count).End(xlUp).Row
        nomf = f.Range("A" & i)
        Sheets(Array("Comptes comité 2023", "Codification 2023", "Répartition des postes")).Copy
        With ActiveWorkbook
            .Sheets("Comptes comité 2023").Range("E2") = f.Range("B" & i)
            .SaveAs ThisWorkbook.Path & "\" & nomf & ".xlsx"
            .Close
        End With
    Next i
End Sub

A+

 

[dhyeres]

Bonjour dhyeres, Jacky67,

Ou directement dans la feuille créée :

Sub CréerLesFichiers()
    Dim f As Worksheet, i&, nomf$
    Set f = Sheets("Liste")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For i = 1 To f.Range("A" & f.Rows.Count).End(xlUp).Row
        nomf = f.Range("A" & i)
        Sheets(Array("Comptes comité 2023", "Codification 2023", "Répartition des postes")).Copy
        With ActiveWorkbook
            .Sheets("Comptes comité 2023").Range("E2") = f.Range("B" & i)
            .SaveAs ThisWorkbook.Path & "\" & nomf & ".xlsx"
            .Close
        End With
    Next i
End Sub

A+

Bonjour et merci beaucoup pour cette solution. Entre temps j'avais trouvé la suivante pour une liste à 4 colonnes. Je me compliquais la vie.

Option Explicit

Sub CréerLesFichiers()
    Dim f As Worksheet, i&, nomf$, value_$, avoir_$, compl_$
    Set f = Sheets("Comptes comité 2023")
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        nomf = Range("A" & i)
        value_ = Range("B" & i)
        avoir_ = Range("C" & i)
        compl_ = Range("D" & i)
        Sheets(Array("Comptes comité 2023", "Codification 2023", "Répartition des postes")).Copy
        With ActiveWorkbook
            .Sheets(1).Range("D1").Value = value_
            .Sheets(1).Range("G5").Avoir = avoir_
            .Sheets(1).Range("G6").Compl = compl_
            .SaveAs ThisWorkbook.Path & "\" & nomf & ".xlsx"
            .Close
        End With
    Next i
End Sub

 

[job75]

Bonjour le forum,

Je me compliquais la vie.

Pourquoi remplir D1 où se trouve une en-tête et G5/G6 où se trouvent des formules ?

A+

 

[dhyeres]

Bonjour le forum,

Pourquoi remplir D1 où se trouve une en-tête et G5/G6 où se trouvent des formules ?

A+

En fait j'ai modifié ma feuille entre temps. Merci de votre attention.

 

[job75]

D'accord mais que signifient ces .Avoir et .Compl sur G5 et G6 ?

 

[dhyeres]

D'accord mais que signifient ces .Avoir et .Compl sur G5 et G6 ?

En fait ma liste comprend à présent 4 colonnes, avoir correspond au budget restant de l'année et Compl au budget versé en début d'année.