Hi ,
i’m exporting lotus notes data , into a word document using a template … everything is going well , except the saveas option … i don’t know why i can’t save , word ask me to save when i use the cole option , but should already has been saved before with the name i’m giving … thanks in advance for the help.
Sub Click(Source As Button)
On Error Goto processerror
Dim ws As New NotesUIworkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim view As NotesView
Dim dc As NotesDocumentCollection
Dim docnotes As NotesDocument
Set db = s.currentdatabase
Set view = db.GetView ("Attente")
Set uidoc = ws.currentdocument
Set dc = view.GetAllDocumentsByKey("TCR",False)
Set docnotes = dc.GetFirstDocument
Dim wordObj As Variant
Dim word As Variant
Dim wordoc As Variant
Dim boxType As Long
Dim answer As Integer
Dim wordcontainer As String
Dim WordDoc As Variant
Dim doc As Variant
Dim Date_formulaire As Variant
Dim numseriejeton As Variant
C2=docnotes.GetItemValue("C2")
numsogique=docnotes.GetItemValue("numsogique")
Date_formulaire=docnotes.GetItemValue("date")
Numseriejeton=docnotes.GetItemValue("Numseriejeton")
Nometablissement=docnotes.GetItemValue("nometablissement")
Num_permis=docnotes.GetItemValue("num_permis")
Num_Administratif=docnotes.GetItemValue("Num_Administratif")
Num_Administratif1=docnotes.GetItemValue("Num_Administratif1")
RSAI=docnotes.GetItemValue ("RSAI")
RSAI_internet=docnotes.GetItemValue ("RSAI_internet")
boncommande=docnotes.GetItemValue ("bon_commande")
adresse=docnotes.GetItemValue ("adresse")
ville=docnotes.GetItemValue ("ville")
codepostal=docnotes.GetItemValue ("code_postal")
nomutilisateur=docnotes.GetItemValue ("nom_utilisateur")
courrielutilisateur=docnotes.GetItemValue ("courriel_utilisateur")
codeutilisateur=docnotes.GetItemValue ("code_utilisateur")
ritm1=docnotes.GetItemValue ("ritm_1")
ritm2=docnotes.GetItemValue ("ritm_2")
ritm3=docnotes.GetItemValue ("ritm_3")
ritm4=docnotes.GetItemValue ("ritm_4")
etab_nom_resp=docnotes.GetItemValue ("etab_nom_resp")
eta_tel=docnotes.GetItemValue ("eta_tel")
eta_courriel=docnotes.GetItemValue ("eta_courriel")
eta_date=docnotes.GetItemValue ("eta_date")
tcr_region=docnotes.GetItemValue ("tcr_region")
tcr_tel=docnotes.GetItemValue ("tcr_tel")
tcr_courriel=docnotes.GetItemValue ("tcr_courriel")
tcr_responsable=docnotes.GetItemValue ("tcr_responsable")
dateapprobdem=docnotes.GetItemValue ("tcr_date")
date_signature=docnotes.GetItemValue ("date_signature")
Set word = CreateObject("Word.Application") 'Create Word object
Call word.documents.add("Formulaire_Teleacces_Modele.dot") 'Create a new document based on the template "quote.Dot"
Set doc = word.activedocument 'Get a handle for the active document
word.Visible = False
Doc.FormFields("date").Result = Cstr(Date_formulaire(0))
Doc.FormFields("numseriejeton").Result = Cstr(numseriejeton(0))
Doc.FormFields("nometablissement").Result =Cstr(nometablissement(0))
Doc.FormFields("numpermis").Result = Cstr(Num_permis(0))
Doc.FormFields("numadministratif").Result = Cstr(num_administratif(0))
Doc.FormFields("Rsai").Result = Cstr(RSAI(0))
Doc.FormFields("Rsaiinternet").Result =Cstr(RSAI_internet(0))
Doc.FormFields("numadminsecur").Result = Cstr(num_administratif1(0))
Doc.FormFields("boncommande").Result =Cstr(boncommande(0))
Doc.FormFields("adresse").Result =Cstr(adresse(0))
Doc.FormFields("ville").Result =Cstr(ville(0))
Doc.FormFields("codepostal").Result =Cstr(codepostal(0))
Doc.FormFields("nomutilisateur").Result =Cstr(nomutilisateur(0))
Doc.FormFields("utilinternet").Result =Cstr(courrielutilisateur(0))
Doc.FormFields("codeutildmz").Result =Cstr(codeutilisateur(0))
Doc.FormFields("numadministratif1").Result =Cstr(ritm1(0))
Doc.FormFields("numadministratif2").Result =Cstr(ritm2(0))
Doc.FormFields("numadministratif3").Result =Cstr(ritm3(0))
Doc.FormFields("numadministratif4").Result =Cstr(ritm4(0))
Doc.FormFields("respacces").Result = Cstr(etab_nom_resp(0))
Doc.FormFields("telrespacces").Result =Cstr(eta_tel(0))
Doc.FormFields("respinternet").Result =Cstr(eta_courriel(0))
Doc.FormFields("dateapprob").Result =Cstr(eta_date(0))
Doc.FormFields("region").Result =Cstr(tcr_region(0))
Doc.FormFields("telresptcr").Result =Cstr(tcr_tel(0))
Doc.FormFields("resptcrinternet").Result =Cstr(Tcr_courriel(0))
Doc.FormFields("resptcr").Result =Cstr(tcr_responsable(0))
Doc.FormFields("dateapprobdem").Result =Cstr(dateapprobdem(0))
Doc.FormFields("datesignform").Result =Cstr(date_signature(0))
Doc.FormFields("teleacces").Checkbox.value = True
Doc.FormFields("clinique").Checkbox.value = True
Doc.FormFields("gmf").Checkbox.value = True
Doc.FormFields("sogique").Checkbox.value = True
Doc.FormFields("nouvelle").Checkbox.value = True
Doc.FormFields("annulation").Checkbox.value = True
Doc.FormFields("modification").Checkbox.value = True
Doc.FormFields("changutilisateur").Checkbox.value = True
Doc.FormFields("actuel").Checkbox.value = True
Doc.FormFields("nouveau").Checkbox.value = True
Doc.FormFields("francais").Checkbox.value = True
Doc.FormFields("anglais").Checkbox.value = True
Doc.FormFields("confirmrespacces").Checkbox.value = True
Doc.FormFields("confirmapprobdem").Checkbox.value = True
word.activate
doc.ActiveDocument.SaveAs ("C:\1235.doc")
word.ActiveDocument.SaveAs ("C:\1234.doc")
Call word.ActiveDocument.Close
Call uidoc.FieldSetText ("Check","No")
Call uidoc.close
word.quit
End Sub
