Création fichier et onglets respectifs à partir d'une liste

[zeltron]

Bonjour à tout le forum;

Voilà ce que je cherche à faire:

J'ai un ficheir avec 3 onglets:
- 1 onglets " Pers", qui contient un tableau avec en 1ere colonne une liste de noms, en 2eme colonne une liste de codes (Fichiers) et en 3eme colonne une liste de codes (onglets)
- 1 onglet "Modèle"
- 1 onglet "Fixe"

Ce que je cherche à faire c'est de créer à partir de cette liste, c'est de créer les fichiers respectifs ayant comme nom les différents codes de la 2eme colonne, que chacun de ces fichiers aient les onglets avec comme nom les codes de la 3eme colonne et que chacun de ces onglets ait la liste de nom respectifs de la 3eme colonne et qu'enfin chacun des onglets crées soit fait sur le modèle du l'onglet "modèle" du fichier initial, et que chacun des fichiers crées ait en plus des onglets crées ayant les noms des codes de la 3eme colonne, que chacun de ces fichier ait également l'onglet "fixe" tel quel.

Cela est il techniquement possible? J'ai consulté pas mal de fils sur la création d'onglet et de fichier mais n'ai pas trouvé ce que je cherche.
Je vous joint un fichier schématisant mon besoin.

Qu'en pensez-vous? Pouvez vous m'aider?

Merci d'avance

Cordialement

Zeltron

 

[Pierrot93]

Re : Création fichier et onglets respectifs à partir d'une liste

Bonjour Zeltron,

J'avais fais il y a un certain temps une macro dont le code pourrait peut être t'inspirer.

Option Explicit
Public Const MonRepert = "C:\MesDocuments\DocXLS\"
Sub Test()
Dim MaPlage As Range, MesLignes As Integer, l As Integer
Dim NVclasseur As Workbook, ClasMacro As String, NouvClas As String

Application.ScreenUpdating = False

ChDir MonRepert

Sheets("repartition").Select

Set MaPlage = Range("A1").CurrentRegion
MesLignes = MaPlage.Rows.Count

ClasMacro = ActiveWorkbook.Name

Set NVclasseur = Workbooks.Add
NVclasseur.SaveAs Filename:=MaPlage(2, 2).Value

NouvClas = NVclasseur.Name

Workbooks(ClasMacro).Sheets("modele").Copy Before:=Workbooks(NouvClas).Sheets(1)
NVclasseur.Worksheets(1).Name = MaPlage(2, 1).Value

If MaPlage(2, 2).Value <> MaPlage(3, 2).Value Then _
    NVclasseur.Close SaveChanges:=True

For l = 3 To MesLignes
    If MaPlage(l, 2).Value = MaPlage(l - 1, 2).Value Then
        Workbooks(ClasMacro).Sheets("modele").Copy Before:=Workbooks(NouvClas).Sheets(1)
        NVclasseur.Worksheets(1).Name = MaPlage(l, 1).Value
        
        If MaPlage(l, 2).Value <> MaPlage(l + 1, 2).Value Then _
            NVclasseur.Close SaveChanges:=True
    Else
        Set NVclasseur = Workbooks.Add
        NVclasseur.SaveAs Filename:=MaPlage(l, 2).Value
        NouvClas = NVclasseur.Name
        Workbooks(ClasMacro).Sheets("modele").Copy Before:=Workbooks(NouvClas).Sheets(1)
        NVclasseur.Worksheets(1).Name = MaPlage(l, 1).Value
        
        If MaPlage(l, 2).Value <> MaPlage(l + 1, 2).Value Then _
            NVclasseur.Close SaveChanges:=True
    End If
Next l

Application.ScreenUpdating = True


End Sub

Bonne journée
@+

 

[zeltron]

Re : Création fichier et onglets respectifs à partir d'une liste

Merci Pierrot pour ton aide, je regarde ton code et n'hésiterai pas à revenir vers toi pour des question complémentaires

Merci encore
A+

Cordialement

Zeltron

 

[zeltron]

Re : Création fichier et onglets respectifs à partir d'une liste

Oulala! Là je galère grave!!

Je n'arrive pas à m'inspirer de ton code Pierrot.

Je voudrais essayé d'y aller pas à pas, pour bien tout comprendre.

Je pense essayer de faire la démarche suivante:

1-Identifier tous les codes différents de la 2eme colonne du tableau du fichier exemple joint), afin de créer les ficheirs correspondants.

2-Identifier tous les codes différents de la 3eme colonne du tableau du fichier exemple joint), afin de créer les onglets correspondants dans les fichiers respectifs.

Déjà comment puis je faire cela? Pour le reste du problème je le verrai une fois ces 2 premiers points maîtrisés

Avez vous une idée?

Je me permet de remettre le fichier schématisant mon besoin.

Je vous remercie d'avance pour votre aide.

Cordialement

Zeltron

 

[pierrejean]

Re : Création fichier et onglets respectifs à partir d'une liste

bonjour zeltron

salut pierrot93

voila un premier pas

par contre peux-tu reformuler tes demandes concernan les modeles de feuilles
je n'ais pas vraiment saisi

au besoin envoie un fichier tel que tu le desires (si ton explication par l'image n'avait pas été la je n'auraisr ien pu faire)

 

[Pierrot93]

Re : Création fichier et onglets respectifs à partir d'une liste

Re Zeltron, bonjour PierreJean,

une autre approche, moins bonne que celle de Pierrejean, mais le code est fait alors ... pourquoi ne pas le donner, à tester tout de même.

Par contre PierreJean bravo pour ton utilisation des collections, il va vraiment falloir que je me penche sur le sujet.

Bonne journée à tous
@+

 

[zeltron]

Re : Création fichier et onglets respectifs à partir d'une liste

Merci pierre jean et Pierrot pour votre aide.

Pierre jean, ton code bug chez moi, il me souligne en jaune la ligne suivante:

Workbooks(fichacreer(n) & ".xls").Sheets(i).Name = feuilacreer(i)

Pierrot je regarde ta proposition.

Je vous tiens au courant.

Nb: concernant les noms ,ils doivent se retrouver sur leur différents onglets respectif.
De plus, je souhaite que l'onglet "fix" du fichier source soit copié dans chaque fichier crée.

Je regarde tout çà et vous tiens au courant

Merci encore

A +

Zeltron

 

[pierrejean]

Re : Création fichier et onglets respectifs à partir d'une liste

re Zeltron

Salut Pierrot93

ta version est interessante !!

voila ma version avec ce que j'ai compris des feuilles Modèle et Fixe

A te lire

 

[zeltron]

Re : Création fichier et onglets respectifs à partir d'une liste

Rebonjour Pierrot et Pierre Jean, excusez moi pour cette réponse tardive.

Pierre Jean, ta solution réalise presque ce que je cherche à faire:

-l'onglet "Fixe" se retrouve bien tel quelsur chaque fichier crée
- chaque fichier crée reprends bien le nom de la colonne 2
-chaque onglet de chauqe fichier ont bien leur nom respectif conformément à la colonne 3

Cependant, concerant la liste des noms devant se trouver dans les onglets cela ne correspont pas tout à fait. En effet, pour répondre à ta question, je souhaite que les onglets crées reprennent les noms respectif, ta solution ne reprends qu'un seul nom; de plus la feuille "modèle" doit être la feuille qui doit recevoir les noms.

Je te joint un fichier + explicite, il contient en + trois onglet en jaune à titre d'exemple de ce que doit contenir le fichier F1 crée, et montre ainsi comment doit être utilisé la feuille "Modèle".

Vous remerciant encore de vous intérresser à mon problème

Cordialement

Zeltron

 

[pierrejean]

Re : Création fichier et onglets respectifs à partir d'une liste

bonjour zeltron

vois si j'ais bien compris