Macro à améliorer

Bonjour à tous,

Je me permets de faire appel à vous car je bloque sur 1 macro.

En effet, je désire développer un fichier pour que celui-ci me crée une série de fichiers en version "final" pour chacun de mes clients.

explication du besoin :
Dans 1 fichier .xslm (summary des données client), j'ai une liste de client avec des données pour chacuns (1 ligne = 1 client avec 6 colonnes de données le concernant). En colonne A, le nom du client.
J'aimerais que la macro me sauve un fichier .xlsx par client en fonction d'un template spécifique.

Pour l'instant ce template est rempli via formules et j'y ai mis une macro qui le sauve dans le format désiré mais, comme ma liste de clients est longue, je perds bcp de temps à ouvrir chaque fichier et lancer la macro.

Mon idée serait donc de mettre dans mon fichier "summary des données client" mon template par client dans des onglets différents et de lancer ma macro pour que les fichiers "final" soient générés en 1 click.

Voici ma macro actuelle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub File_save_as_value() ' File_save_as_value Macro Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ChDir "C:\blablabla" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "C:\blablabla.xlsx" _ , FileFormat:=xlWorkbookDefault, CreateBackup:=False Application.DisplayAlerts = True Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Save ActiveWorkbook.Close End Sub

---

Merci pour l'aide que vous voudrez bien m'apporter
Cordialement
Doladonf

Salut

Le fichier transmis au client doit-il forcement être de type excel?
Si la réponse est non, le mieux serait d'utiliser la fonction publipostage de Word, c'est exactement ce que tu souhaites reproduire sur excel.
Dans le cas de Word (j'ai utilisé il y a longtemps mais ça doit toujours être d'actualité...)
Tu réalises ta trame avec des parties variables (nom client, code facture,....) correspondant aux différentes entête de ta base de données
Tu transmets à Word ta base de données
Word se charge de faire autant de page que de ligne dans ta base. En personnalisant les zones variables en fonction du contenu de la base.

++
Qwaz

Bonjour Qwazerty,

Malheureusement, je suis obligé d'envoyer 1 fichier Excel (.xlsx) sinon le publipostage aurait été parfait, en effet.

Bonjour,

Citation:

---

Pour l'instant ce template est rempli via formules et j'y ai mis une macro qui le sauve dans le format désiré mais, comme ma liste de clients est longue, je perds bcp de temps à ouvrir chaque fichier et lancer la macro.

---

Si vous avez réussi à le faire avec formule cela devrait être très simple de l'automatiser avec VBA.

Les étapes

1. Créer un modèle contenant la formule qui ferait référence à une ligne quelconque contenant les renseignements d'un client.
2. Dès que votre modèle correspond à ce que vous cherchez, il suffit d'effectuer une boucle parcourant chaque ligne de la liste des clients et remplissant la ligne unique alimentant le modèle (cette opération peut se faire également à l'aide du filtre avancé d'excel (une ligne de code), à l'aide de Power Query
3. Copier la feuille modèle vers un nouveau classeur
4. Copier/collage spécial-Valeur pour éliminer les formules
5. Sauver le nouveau classeur

Pensez à Comment le faire manuellement à l'aide d'Excel et ensuite le traduire en code

Le point 2, pourrait même être simplifié en utilisant dans la ligne unique, une formule utilisant INDEX et EQUIV où le numéro de la ligne de la liste des clients ferait référence à un n° présent sur la même ligne contenant la formule. Ce numéro serait alimenté par la boucle.

Bonjour,

Citation:

---

Pour l'instant ce template est rempli via formules et j'y ai mis une macro qui le sauve dans le format désiré mais, comme ma liste de clients est longue, je perds bcp de temps à ouvrir chaque fichier et lancer la macro.

---

Si vous avez réussi à le faire avec formule cela devrait être très simple de l'automatiser avec VBA.

Les étapes

1. Créer un modèle contenant la formule qui ferait référence à une ligne quelconque contenant les renseignements d'un client.
2. Dès que votre modèle correspond à ce que vous cherchez, il suffit d'effectuer une boucle parcourant chaque ligne de la liste des clients et remplissant la ligne unique alimentant le modèle (cette opération peut se faire également à l'aide du filtre avancé d'excel (une ligne de code), à l'aide de Power Query
3. Copier la feuille modèle vers un nouveau classeur
4. Copier/collage spécial-Valeur pour éliminer les formules
5. Sauver le nouveau classeur

Pensez à Comment le faire manuellement à l'aide d'Excel et ensuite le traduire en code

Le point 2, pourrait même être simplifié en utilisant dans la ligne unique, une formule utilisant INDEX et EQUIV où le numéro de la ligne de la liste des clients ferait référence à un n° présent sur la même ligne contenant la formule. Ce numéro serait alimenté par la boucle.

[EDIT]
Une image étant toujours plus parlante qu'une longue explication, voici en illustration

• la liste des clients (en bleu) tableau nommé t_Customer
• la ligne contenant les informations pour le modèle (en orange). Tableau nommé t_Formula
• l'une des formules pour renvoyer les informations du client en fonction du numéro de ligne (colonne Id)
  
  Code:

  ---

  =INDEX(t_Customer;[@Id];EQUIV(t_Formula[[#En-têtes];[Ref]];t_Customer[#En-têtes];0))

  ---

Il suffit donc à l'aide d'une boucle d'insérer le numéro de ligne correspondant au client à publier dans le modèle.

Pièce jointe 612845

Merci pour votre réponse très détaillée et claire.

J’ai su mettre en place ma macro et j’en suis fier !!!