publipostage

Y compris Power BI, Power Query et toute autre question en lien avec Excel
d
dam08
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 28 juin 2018
Version d'Excel : 2016

Message par dam08 » 28 juin 2018, 07:52

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
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'980
Appréciations reçues : 696
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 28 juin 2018, 07:57

Bonjour dam08,

:bv:

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 !  :trfl:
surtout s'il est pas fâché avec les serveurs qui prennent leurs distances !!!  :P :lol:

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

dhany
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Publipostage
    par MJC55 » 22 mai 2016, 09:59 » dans Office
    1 Réponses
    916 Vues
    Dernier message par lauange
    22 mai 2016, 16:52
  • Publipostage
    par sl60 » 26 janvier 2018, 15:38 » dans Office
    2 Réponses
    2949 Vues
    Dernier message par Xmenpl
    4 février 2019, 10:23
  • Publipostage
    par fredbenoit » 18 juin 2019, 19:31 » dans Excel - VBA
    6 Réponses
    266 Vues
    Dernier message par fredbenoit
    19 juin 2019, 14:57
  • Publipostage
    par Archi-plans.com » 13 mai 2014, 14:42 » dans Office
    1 Réponses
    989 Vues
    Dernier message par Benead
    14 mai 2014, 18:19
  • Publipostage
    par SISSI4676L » 7 avril 2015, 12:22 » dans Office
    2 Réponses
    2379 Vues
    Dernier message par ultra_dell
    27 février 2018, 20:32
  • publipostage
    par st mar » 24 novembre 2016, 11:59 » dans Excel - VBA
    6 Réponses
    474 Vues
    Dernier message par AFEH
    26 novembre 2016, 16:12