Discussion :

[laurent27530]

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.

[Invité]

Bonjour,
très beau Zip apparemment complet.

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

[Nico Chg]

[...]
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 )

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

[laurent27530]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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