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
| 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 |
Partager