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
| On Error GoTo ErrHandler
Dim OutPutStr As String
Dim ParamStr As String
Dim CheminMonFichier As String
Dim cheminDuDocWord As String
cheminDuDocWord = App.Path & "\model_ins.dot"
CheminMonFichier = App.Path & "\MonFichierPourLettreType.txt"
Open CheminMonFichier For Output As #1
' Exportation des Data Demandeur
OutPutStr = txtnum_fiche1.Text & "|" & txtnet_p.Text & "|" & txtmontant_p.Text & "|" & txtmontant_rest.Text & "|" & txtnom_eco.Text & "|" & txtprenom_eco1.Text & "|" & combo1.Text & "|" & Combo2.Text & "|" & txtprenom_p1.Text & "|" & txtadresse1.Text & "|" & txttel1.Text & "|" & txtsituation.Text & "|" & cmbmodep.Text & "|" & cmbnum_ins.Text & "|" & txtdate_ins1.Text
'Ecrit dans le fichier
ParamStr = "numéro_de_fiche|net_à_payer|montant_payé|montant_restant|nom_écolier|prénom_écolier|niveau|groupe|prénom_père|adresse|tél|etat_de_réglement|mode_de_payement|num_dinscription|date_dinscription"
Print #1, ParamStr
Print #1, OutPutStr
Close #1
' STEP 2 : FUSION
'Creation de la fusion
Dim mvarDocumentId As Variant
Dim ObjWord As Word.Application
Dim aaa As String
aaa = App.Path & "\doc_ins.doc"
Set ObjWord = CreateObject("Word.application")
Set mvarDocumentId = ObjWord.Documents.Add(cheminDuDocWord, False)
ObjWord.Visible = True
ObjWord.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ObjWord.ActiveDocument.MailMerge.OpenDataSource Name:=CheminMonFichier, ConfirmConversions:=False, ReadOnly:=True, LinkToSource:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto
With ObjWord.ActiveDocument.MailMerge
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
'.Execute pause = True
.Execute True
End With
' Sauvegarde automatique du document Word
ObjWord.ActiveDocument.SaveAs aaa
mvarDocumentId.Close False
Set ObjWord = Nothing
MsgBox "Votre document Word a été créé et sauvegardé à l'adresse " & aaa & ". Votre document est actuellement ouvert, pensez à sauvegarder les éventuelles modifications.", vbInformation
Exit Sub
Exit Sub
ErrHandler:
If Err.Description = "Permission refusée" Then
MsgBox "Veuillez fermer les documents Word relatifs aux fusions précédentes." & Err.Description, vbCritical
Exit Sub
End If
MsgBox "Une erreur s'est produite lors du processus de fusion. " & Err.Description, vbCritical |
Partager