[XL2003] code VB impression tous les documents .doc d'un dosier

Un code permet de créer de nombreux documents .doc (10 environ ,crées par publispostage, modèle de document .dot...) et de les enregistrer tous au même endroit...

Cliquez pour agrandir...

Dim DocWord_SCM2 As Word.Document
Set AppWord_SCM2 = CreateObject("Word.Application")
Application.DisplayAlerts = True
AppWord_SCM2.ShowMe
AppWord_SCM2.Visible = True

Set DocWord_SCM2 = AppWord_SCM2.Documents.Open("\\angfs1\Data\TKAF\R11\A433\_Commun-Agence\Commun\MOD - TN - SAE\FICHES ISO TYPES\Suivi Chantier Mod2.doc", ReadOnly:=False)

Dim Texte_A_Afficher_01_SCM2 As String
Dim Texte_A_Afficher_02_SCM2 As String
Dim Texte_A_Afficher_03_SCM2 As String

Texte_A_Afficher_01_SCM2 = Worksheets("Feuil1").Cells(7, 3).Value
Texte_A_Afficher_02_SCM2 = Worksheets("Feuil1").Cells(9, 3).Value
Texte_A_Afficher_03_SCM2 = Worksheets("Feuil1").Cells(13, 3).Value

DocWord_SCM2.textbox2 = Texte_A_Afficher_01_SCM2
DocWord_SCM2.textbox3 = Texte_A_Afficher_02_SCM2
DocWord_SCM2.textbox1 = Texte_A_Afficher_03_SCM2

DocWord_SCM2.PrintOut Copies:=1, Collate:=True

AppWord_SCM2.ChangeFileOpenDirectory (MonRep)
AppWord_SCM2.ActiveDocument.SaveAs Filename:="Suivi de chantier mod2.doc"


AppWord_SCM2.Quit

Cliquez pour agrandir...

Dim DocWord_DIP As Word.Document
Set AppWord_DIP = CreateObject("Word.Application")
Application.DisplayAlerts = True
AppWord_DIP.ShowMe
AppWord_DIP.Visible = True

Set DocWord_DIP = AppWord_DIP.Documents.Open("\\angfs1\Data\TKAF\R11\A433\_Commun-Agence\Commun\MOD - TN - SAE\FICHES ISO TYPES\Dde identifiant PROXI.doc", ReadOnly:=False)

Dim Texte_A_Afficher_01_DIP As String
Dim Texte_A_Afficher_02_DIP As String
Dim Texte_A_Afficher_03_DIP As String

Texte_A_Afficher_01_DIP = Worksheets("Feuil1").Cells(15, 3).Value
Texte_A_Afficher_02_DIP = Worksheets("Feuil1").Cells(11, 3).Value
Texte_A_Afficher_03_DIP = Worksheets("Feuil1").Cells(13, 3).Value

DocWord_DIP.Txt_Site_Nom_Client = Texte_A_Afficher_01_DIP
DocWord_DIP.Txt_Site_Nom = Texte_A_Afficher_02_DIP

Dim Adresse_DIP() As String
Dim Temp_Adresse_DIP As String

Adresse_DIP = Split(ThisWorkbook.Sheets("Feuil1").Range("C17").Value, "~")

DocWord_DIP.Goto Txt_Site_Adresse_1

If Adresse_DIP(0) <> "" Then
Temp_Adresse_DIP = Adresse_DIP(0)
If Adresse_DIP(1) <> "" Then
Temp_Adresse_DIP = Temp_Adresse_DIP & " - " & Adresse_DIP(1)
End If
If Adresse_DIP(2) <> "" Then
Temp_Adresse_DIP = Temp_Adresse_DIP & " - " & Adresse_DIP(2)
End If
End If
DocWord_DIP.Txt_Site_Adresse_1 = Temp_Adresse_DIP

DocWord_DIP.Txt_Site_CP = Adresse_DIP(3)

DocWord_DIP.Txt_Site_Ville = Adresse_DIP(4)

DocWord_DIP.PrintOut Copies:=1, Collate:=True

AppWord_DIP.ChangeFileOpenDirectory (MonRep)
AppWord_DIP.ActiveDocument.SaveAs Filename:="Dde identifiant proxi.doc"


AppWord_DIP.Quit

Cliquez pour agrandir...