XL 2019 Macro : remplir une fiche automatiquement à partir d'un tableau

_Thierry à dit:

Oui désolé le message est parti quand j'ai tapé "Ouh !" LoL !

Cliquez pour agrandir...

_Thierry à dit:

Ouh là là ça se complique...

Il a quelle "gueule" alors ce classeur :

Car là on s'écarte bien de la demande initiale ... Combien d'onglets seront à dupliquer etc ...
Je me perds maintenant...

@+Thierry

Cliquez pour agrandir...

_Thierry à dit:

En fait c'est dupliquer le Classeur entier que tu veux faire ? Mais le personaliser à une entreprise à chaque fois ? Right ?

@+Thierry

Cliquez pour agrandir...

_Thierry à dit:

Bonsoir ou Bonjour @Yana, le Forum

Je me suis penché sur ton problème... Je pense qu'il y a une solution pour ton idée "un peu trop ambitieuse par rapport à ce module dont je rêve"

Voici comme ça fonctionne :
1) le Classeur XLD_YANA_Données_Generator_Enterprise_Files_v01.xlsm ne contient plus que la "base de Données, que tu te chargeras de copier/coller ton extraction brute dedans et tu appuieras sur le bouton pour générer les Fiches Entreprises...

2) le Classeur XLD_florian333_Fichier_sources_Planning-1_v00.xlsm est uniquement là pour simuler un classeur multi-onglets, avec multi-macros, et même un USF, il ne sert qu'à simuler ton "Gros Fichier Source Fiche Entreprise"

Dans mon synopsis, en aucun cas le "Gros Fichier Source" n'est ouvert par mon code. Il n'y a donc aucun risque d'alération du fichier source. Je n'en fais que des copies à la volée avec "FileCopy" sans toucher l'original.
Par contre nous sommes bien d'accord, le "Gros Fichier Source" parmis tous ces 21 onglets contient bien celui qui nous interresse : "Matrice Fiche Entreprise", si il se nomme autrement, il faut corriger dans le code dans cette partie :

VB:

'================================================================================================================================
' Informations à remettre dans le context réel..... TOUT DOIT EXISTER
ThePath = ThisWorkbook.Path & "\"
Source = ThePath & "XLD_florian333_Fichier_sources_Planning-1_v00.xlsm"  'C'est pour simuler le gros fichier avec des macro......
Destination = ThePath
WSmatrix = "Matrice Fiche Entreprise"
Set WB = ThisWorkbook
Set WSData = WB.Worksheets("Base de données")
'================================================================================================================================

Idem pour le "Gros Fichier Source" qui ne se nommera pas "XLD_florian333_Fichier_sources_Planning-1_v00.xlsm" et que tu renommera à ta guise plus tard.

Pour tester, tu prépares un répertoire de Test sur ton disque dûr et tu dézippes les deux fichiers dedans. Tu ouvres le XLD_YANA_Données_Generator_Enterprise_Files_v01.xlsm et tu verra ce qui se passe...

Les fichiers doivent être vraiment Extraits/Décompressés (pas uniquement ouvert à l'intérieur du Zip) et donc les deux fichiers dans le même répertoire.

Tu me diras si celà correspond mieux à ce dont tu rêvais ...

PS j'ai fait aussi une gestion d'erreur qui devrait t'aider au cas où...

Bien à toi, à vous
@+Thierry

Cliquez pour agrandir...

Yana à dit:

Seule petite question : je ne trouve pas comment annuler le changement du nom de l'onglet de la Matrice (Matrice -> Nom Ent)?

Cliquez pour agrandir...

  Set WBnew = Workbooks.Open(Destination)
    Set WSNew = WBnew.Worksheets(WSmatrix)
        With WSNew 'on pourrait faire une boucle, mais pour que ca reste un peu lisible
        .Name = CellData.Offset(0, 1)
        .Range("B1") = CellData.Offset(0, 1)
        .Range("B2") = CellData.Offset(0, 2)
        .Range("B3") = CellData.Offset(0, 3)
        .Range("B4") = CellData.Offset(0, 4)
        .Range("B5") = CellData.Offset(0, 5)
        .Range("B6") = CellData.Offset(0, 6)
        .Range("B7") = CellData.Offset(0, 7)
        End With