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 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
|
Option Explicit
Private Sub UserForm_Initialize()
CBModeles.AddItem "lettre.dotx"
CBModeles.AddItem "rapport.dotx"
CBSoci?t?.AddItem "Société1"
CBSoci?t?.AddItem "Société2"
End Sub
Private Sub BtOk_Click()
Dim VModeles As String
Dim VSociete As Bookmarks
Dim ObjWord As Object
Dim bmks As Bookmarks
Dim bmRange As Range
Dim bmAdresse As Range
Dim bmCP As Range
Dim bmLocalit? As Range
Dim bmTelephone As Range
Dim bmFax As Range
Dim bmEmail As Range
Dim Dir As String
Dim DirModeles As String
Dir = "C:\Users\caro...\Test Developpement Word Modele\"
VModeles = CBModeles.Text
DirModeles = Dir & "Modeles\" & VModeles
'CHOIX DU MODELE
Documents.Add Template:= _
DirModeles, NewTemplate:=False, DocumentType:=0, Visible:=True
'CHOIX DE LA SOCIETE
Set bmks = ActiveDocument.Bookmarks
Set bmRange = ActiveDocument.Bookmarks("Societe").Range
bmRange.Text = Me.CBSociete.Value
If bmRange = "Société1" Then
Set bmAdresse = ActiveDocument.Bookmarks("Adresse").Range
bmAdresse.Text = "Adresse 1"
Set bmCP = ActiveDocument.Bookmarks("CP").Range
bmCP.Text = "CP 1"
Set bmLocalite = ActiveDocument.Bookmarks("Localite").Range
bmLocalite.Text = "Localite 1"
Set bmTelephone = ActiveDocument.Bookmarks("Telephone").Range
bmTelephone.Text = "Telephone 1"
Set bmFax = ActiveDocument.Bookmarks("Fax").Range
bmFax.Text = "Fax 1"
Set bmEmail = ActiveDocument.Bookmarks("Email").Range
bmEmail.Text = "Email 1"
Else
If bmRange = "Société2" Then
Set bmAdresse = ActiveDocument.Bookmarks("Adresse").Range
bmAdresse.Text = "Adresse 2"
Set bmCP = ActiveDocument.Bookmarks("CP").Range
bmCP.Text = "CP 2"
Set bmLocalite = ActiveDocument.Bookmarks("Localite").Range
bmLocalite.Text = "Localite 2"
Set bmTelephone = ActiveDocument.Bookmarks("Telephone").Range
bmTelephone.Text = "Telephone 2"
Set bmFax = ActiveDocument.Bookmarks("Fax").Range
bmFax.Text = "Fax 2"
Set bmEmail = ActiveDocument.Bookmarks("Email").Range
bmEmail.Text = "Email 2"
End If
End If
Unload Me
ActiveDocument.Close
End Sub |
Partager