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
|
Private Sub CmdMarge_Click()
If IsNull(Me.Modifiable6) Then
MsgBox ("Il faut choisir un Fax")
Exit Sub
End If
Dim rs As Recordset
Dim db As Database
Dim SQL As String
Dim Wapp As Word.Application
'Dim AppW As Word.Application
Dim DocW As Word.Document
Dim chemin As String
chemin = "D:\Company Shared Folders\Secure BD"
Set Wapp = New Word.Application
'Set AppW = CreateObject("Word.Application")
'AppW.Visible = False
Wapp.Visible = True
Wapp.Documents.Add Template:=chemin & "\Fax.dot", NewTemplate:=False, DocumentType:=0
Wapp.Activate
'DocW.Documents.Add Template:=chemin & Me.Modifiable6.Column(1), NewTemplate:=False, DocumentType:=0
SQL = "SELECT * FROM Rq_Secure WHERE Réf_Sinistre=" & Chr(34) & Me.Réf_Sinistre & Chr(34) & "AND Ville=" & Chr(34) & Me.Ville & Chr(34)
Set db = CurrentDb
Set rs = db.OpenRecordset(SQL)
While Not rs.EOF
With Wapp
.ActiveDocument.Bookmarks("Sinistre").Range.Text = Nz(rs.Fields("Réf_Sinistre"), " ")
.ActiveDocument.Bookmarks("Contrat").Range.Text = Nz(rs.Fields("n°Police"), " ")
.ActiveDocument.Bookmarks("Conces").Range.Text = Nz(rs.Fields("Conces_Concessionnaire"), " ")
.ActiveDocument.Bookmarks("Fax").Range.Text = Nz(rs.Fields("Fax"), " ")
.ActiveDocument.Bookmarks("Nom").Range.Text = Nz(rs.Fields("Nom"), " ")
.ActiveDocument.Bookmarks("Client").Range.Text = Nz(rs.Fields("Client_Utilisateur"), " ")
.ActiveDocument.Bookmarks("Type").Range.Text = Nz(rs.Fields("Type_Machine"), " ")
.ActiveDocument.Bookmarks("Modele").Range.Text = Nz(rs.Fields("Désignation"), " ")
.ActiveDocument.Bookmarks("Serie").Range.Text = Nz(rs.Fields("N°_de_série"), " ")
.ActiveDocument.Bookmarks("Date_Appel").Range.Text = Nz(rs.Fields("Date_appel_en_GTI"), " ")
.ActiveDocument.Bookmarks("Nom_2").Range.Text = Nz(rs.Fields("Nom"), " ")
.ActiveDocument.Bookmarks("Interv").Range.Text = Nz(rs.Fields("Interventiuon"), " ")
End With
rs.MoveNext
Wend
Wapp.Selection.InsertFile _
Filename:="D:\Company Shared Folders\Secure BD\Bloc_Courrier_Fax\" & Me.Modifiable6.Column(1), _
Range:="", _
ConfirmConversions:=False, _
Link:=False, _
Attachment:=False
Set rs = Nothing
Set db = Nothing
End Sub |
Partager