Générer un document word par client
Bonjour,
j'ai deux fichiers : "info_SCPI" qui contient de nombreuses informations sur ces produits (nom, prix, fournisseurs...) et un fichier "suivi_client" qui contient le nom du client, son adresse et le nom de la SCPI que le client a acheté. Une ligne du fichier client représente l'achat d'une SCPI (un client peut donc être sur plusieurs lignes).
Je souhaite générer par client un rapport word (à partir d'un model) reprenant les informations du client (qui seront placé a l'aide de signet) et de la ou les informations des SCPI souscrites.
mon code pour le moment :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
| 'Déclaration des différentes variables
Dim appWord As Object
Dim docWord As Object
Dim Fichier As String
Dim chemin As String
Dim DossierRESUME As String
Dim DateJour As String
Dim FI As String
Dim Date as String
Dim NomClient as string
Dim numero as integer
Numero=1
On Error Resume Next
While numero = 1
Cells (numéro,2)= numero
'Création du libelle du fichier word
Date=
NomClient = «
FI = "LETTRE DE MISSION" & "_" & NomClient " & "_" & Date
'Enregistre le rapport word dans le dossier dans lequel le fichier excel est présent
DossierRESUME = ThisWorkbook.Path
'Vérifie si le répertoire existe
If Dir(DossierRESUME, vbDirectory + vbHidden) <> "" Then
'Vérifie que le dossier à créer n'existe pas déjà dans le répertoire
If Dir(DossierRESUME & "\" & FI, vbDirectory + vbHidden) = "" Then
MkDir DossierRESUME & "\" & FI
Else
MsgBox ("le dossier existe déjà")
End If
End If
'Ouverture du Resumé de l'activité
Set appWord = CreateObject("Word.application") 'Ouvre session Word
appWord.Visible = True
chemin = ThisWorkbook.Path 'Permet variabilité emplacement dossier
Set docWord = appWord.Documents.Open(chemin & "\" & "Mod006_Rapport de Mission_Alpha Phi – SCPI.docx", ReadOnly:=False) 'Ouvre document Word TEST
docWord.SaveAs DossierRESUME & "\" & FI
docWord.Close 'Ferme le document WORD TEST
Set appWord = CreateObject("Word.application") 'Ouvre session Word
appWord.Visible = True
chemin = ThisWorkbook.Path 'Permet variabilité emplacement dossier
Set docWord = appWord.Documents.Open(chemin & "\" & FI & ".docx", ReadOnly:=False)
ActiveWorkbook.SaveCopyAs DossierRESUME & "\" & FI & ".docx"
Application.CutCopyMode = False
End Sub
Wend |
