J’avance plus.. Help Fusion !

Question

Bonjour a tous 

J’ai crée un document Word de fusion qui prend ses donnée sur une requet. ensuit un bouton de commende sur un forms Access pour exécuter Word et le docu. Il renomment le nouveau docu et le place dons un nouveau dossier.
Jusque la pas de problème, la premier foi ! la second foi il plante et je vois pas pourquoi.
Avec un message  « le serveur distants n’existe pas ou n’es pas disponible »
 Il faut que je ferme Access 2000 et le réouvre pour qu’il me crée un second docu.
Voici un exemple du code .

Private Sub BoutPubliWord_Click()
On Error GoTo Err_BoutPubliWord_Click

    Dim wrd As Word.Application
    Dim MyMerge As Word.MailMerge
    
    Dim rstN As String, rstPR As String, strTous As String
    
    strN = Forms![Nouveau Contrat]![Nom]
    strPR = Forms![Nouveau Contrat]![Prénom]

    rstTous = rstN & " " & rstPR & " " & ".doc"

    Set wrd = CreateObject("Word.Application")
    wrd.Documents.Open FileName:="x:pat.dot"
    wrd.Application.Visible = True
    Set MyMerge = wrd.ActiveDocument.MailMerge
    If MyMerge.State = wdMainAndDataSource Then
        With MyMerge
            .DataSource.FirstRecord = 1
            .DataSource.LastRecord = 1
            .Destination = wdSendToNewDocument
            .Execute
        End With
        
        ChangeFileOpenDirectory _
        "x:Pat"
        ActiveDocument.SaveAs FileName:=rstTous, FileFormat:= _
        wdFormatDocument
    End If
    wrd.ActiveDocument.Close savechanges:=False
    wrd.Quit
    Set wrd = Nothing

Exit_BoutPubliWord_Click:
    Exit Sub

Err_BoutPubliWord_Click:
    MsgBox Err.Description
    Resume Exit_BoutPubliWord_Click
    

End Sub

cs_EBArtSoft · Answer

Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci

E.B.

J’avance plus.. Help Fusion !

1 réponse

Discussions similaires