Bonjour le forum
Je reviens vers pour une question de boucle sur de la création de fichier word.

Ma boucle se passe bien:
Le premier fichier est généré( à partir d'un modèle) puis enregistré en word et pdf.....
Word se ferme
la boucle tourne, le modèle est ré ouvert.....
mais là problème... il ne se remplie plus

avec le pas à pas, j'ai cette erreur sur la ligne "Set WordDoc = ActiveDocument"
Nom : Capture.PNG Affichages : 153 Taille : 4,1 Ko


Je pige pas, je pense que ma boucle est correcte ...

on dirait que la "connexion" à word est coupé, ce qui est bizarre puisque le fichier modèle s'ouvre


j'ai bien trouvé cela https://www.google.fr/url?sa=t&rct=j...itW_cqBE1hARzQ

mai cela ne semble est en correspondance....


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
 
Sub FACTURES()
'necesite d'activer la reference Microsoft Word xx.x Object Library
 
Dim I As Integer
 
Dim Répertoire As String
Dim NomFichier As String, AnneeDossier As String
Dim EnregFichier As String
Dim Bien As String
 
 
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 
If Cells(I, 26) <> "OUI" Then
 
'Ouverture du fichier Modéle------------------------------------------------------------
Dim appWrd As Word.Application
Dim docWord As Word.Document
Set appWrd = CreateObject("Word.Application")
 
 
Set docWord = appWrd.Documents.Open("T:\xxxxL\xxxx\xxxxxx\xxxx\Modele Facture.docm", ReadOnly:=False)
Set WordDoc = ActiveDocument
 
With appWrd
             .Visible = True
             .Activate
             .WindowState = wdWindowStateNormal
End With
 
 
With WordDoc
 
'Execution de la procédure ......
 
 
    AnneeDossier = Cells(I, 12).Value
 
    NomFichier = Cells(I, 25).Value&
    Bien = Cells(I, 7).Value
 
 
End With
 
'With shL
'Validation dans la BDD-------------------------------------------------------------------
'.Range("Z2").Value = "OK"
Cells(I, 26) = "OUI"
'End With
 
 
'Enregistrement----------------------------------------------------------------------------
 
 
Répertoire = "T:\xxxxL\xxxx\xxxxxx\xxxx\"
EnregFichier = Répertoire & "\" & Bien & "\" & AnneeDossier & "\" & NomFichier
'MsgBox Répertoire & AnneeDossier & "\" & NomFichier
 
WordDoc.SaveAs2 Filename:=EnregFichier & ".docm"
WordDoc.ExportAsFixedFormat EnregFichier & ".pdf", 17
 
 WordDoc.Close False
 appWrd.Quit
Set appWrd = Nothing
Set WordDoc = Nothing
 
End If
 
Next I
 
 
 
 
End Sub

nb le fichier est sur un dd externe "T" que j'aimerais rendre variable---> est-ce possible

qqn aurait une idée ?