Publipostage

Bonjour

J'ai un problème de publipostage de Excel à Word "erreur serveur distant"

Pourriez vous m'aider?

Sub CommandButton6_Click()

nom = Me.TextBox2.Value

prenom = Me.TextBox3.Value

Docname = _

" du " & VBA.Format(Me.DTPicker1, "DD") & "-" & _

VBA.Format(Me.DTPicker1, "MM") & "-" & _

VBA.Format(Me.DTPicker1, "YYYY") & _

" au " & VBA.Format(Me.DTPicker2, "DD") & "-" & _

VBA.Format(Me.DTPicker2, "MM") & "-" & _

VBA.Format(Me.DTPicker2, "YYYY")

n_resa = Me.TextBox10

If n_resa = "" Then: MsgBox "Aucune réservation enregistrée...", , _

"Réservation non enregistrée": Exit Sub

Application.ScreenUpdating = False

chemin = ThisWorkbook.Path & "\"

nom_fichier = ThisWorkbook.name

FileMailing = chemin & "PUBLI_CONTRAT LOCATION.docx" 'Application.GetOpenFilename("Fichiers Word (*.docx), *.docx", , "Ouvrir le document Word pour le contrat...")

' Ouverture de Word

Set appWord = New Word.Application

appWord.Visible = True 'False 'True

appWord.Documents.Open (FileMailing)

Set Appli = GetObject(, "Word.Application")

Set objDoc = Appli.Documents(FileMailing)

objDoc.MailMerge.OpenDataSource name:=chemin & nom_fichier, _

Connection:="Driver={Microsoft Excel Driver (*.xlsm)};" & _

"DBQ=" & chemin & nom_fichier & "; ReadOnly=True;", _

SQLStatement:="SELECT * FROM [Feuil2$] WHERE [N°résa] = " & n_resa & ""

objDoc.MailMerge.Destination = wdSendToNewDocument

objDoc.MailMerge.Execute

objDoc.Close

Set objDoc = Nothing

Set objDoc = Appli.Documents("Lettres Types1")

objDoc.Activate

objDoc.SaveAs _

chemin & nom & " " & prenom & "_" & "Contrat de location" & Docname & ".docx"

Set Appli = Nothing

Set objDoc = Nothing

Set appWord = Nothing

Bonjour dam08,

j'peux pas t'répondre car j'y connais rien en réseaux, mais j'espère qu'un autre intervenant pourra t'répondre !

surtout s'il est pas fâché avec les serveurs qui prennent leurs distances !!!

(moi, j'préfère les serveurs des restaurants qui apportent de bons plats à manger)

dhany

Rechercher des sujets similaires à "publipostage"