automatisation report client

Bonjour

je fais un report de facon hebdomadaire (de nombreuses sources externes)

j'aimerai automatiser les reports en lancant les actions a partir du fichier suivi_clients.xlsx

Merci de commenter les lignes vba (pour me permettre d'adapter pour d'autres reporting.

Je vous remercie par avance.

Bonjour,
très beau Zip apparemment complet. :mouarf2:

ha si il manque le fichier XLSM mais je présume que c'est pas à toi de le faire ! :chin:

Citation:

---

Envoyé par laurent27530

[...]
j'aimerai automatiser les reports en lancant les actions a partir du fichier suivi_clients.xlsx

Merci de commenter les lignes vba (pour me permettre d'adapter pour d'autres reporting.

---

Bonjour,

Si tu veux lancer des macros depuis un fichier, il faut que ce soit un .xlsm. Je n'ouvre pas les pièces jointes, donc peux tu poster le code VBA ? (Bien que les commentaires de rdurupt semblent indiquer le contraire :mrgreen:)

Et pour finir, sans plus d'information dans ton message principal, on risque d'être dans l'impasse pour t'aider !

L 'idee est la suivante

J'ai une feuille1 dans un classeur suivi_client.xlsm

Dans cette feuille
Client Client A >> B4
Periode 2014-42 >> B5

Répertoire fichier source C:\temp (possibilité de choisir son répertoire) >> B7
Répertoire fichier Récapitulation client se serait C:\temp\Divers\ >> B8
Répertoire fichier semaine "se serait C:\temp\2014-42\CLIENT A\ >> B9
Le créer si nécessaire "

Le premier bouton doit créer le répertoire en tenant compte des éléments contenu dans les cellule
Puis créer un fichier word A partir du modele.docx se trouvant C:\temp\DIVERS\modele.dotx
C:\temp\2014-42\CLIENT A\Suivi- Client A-2014-42.docx et le fichier devra avoir sur ca première page nom du client et la période

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Bouton() Dim fso As Object Dim strFile As String Dim Chemin As B7 Dim Mois As B5   ' Créer un nouveau répertoire sauf s'il existe Set fso = CreateObject("Scripting.filesystemObject") If Not fso.folderexists(Chemin & " \ " & Mois & " \ ") Then fso.createfolder (Chemin & " \ " & Mois & " \ ")   End Sub

---