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