VBA Fermé

Question

Bonjour,

Je suis en train d'utiliser du visual basic sous excel 2007 , lorsque j'effectue ma fusion avec mon ficher word et ensuite une impression en pdf , il ne s'arrete pas à la derniere ligne remplie.

J'aimerais avoir un peu d'aide , de plus je débute

Merci d'avance

kevv38 · Answer

Bonjour,

Serait-il possible d'avoir le code que tu as écris? ça rendrait les choses beaucoup plus simple pour t'aider

Cdlt,

rod · Answer

désolé, pour le retard voici le code

Private Sub Creer_Fichiers_Click()
    repartition
End Sub

Private Sub CommandButton1_Click()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
     Dim docWord As Word.Document
     Dim appWord As Word.Application
     
     Dim Chemin As String
     Dim NomFich As String
     Dim NomBase As String
    
     
     'Chemin localisation document
     Chemin = "C:\Users\HP_SI\Desktop\coco\" 'à changer pour local
     NomFich = "test.doc"
     NomBase = "test_V01.xls"
     
     Application.ScreenUpdating = False
         Set wdApp = CreateObject("word.application") 'ouvre une session Word
    wdApp.Visible = True
    Set WdDoc = wdApp.Documents.Open(Filename:=Chemin & NomFich)
    DoEvents
 
    With WdDoc.MailMerge
      
        
        'fonctionnalité de publipostage pour le document spécifié
     With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=Chemin & NomBase, _
        Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
        "DBQ=" & Chemin & NomBase & "; ReadOnly=True;", _
        SQLStatement:="SELECT * FROM [Import$]"
    
    
   'Spécifie la fusion vers l'imprimante
         .Destination = wdSendToPrinter
        
   'Prend en compte l'ensemble des enregistrements
          With .DataSource
             .FirstRecord = wdDefaultFirstRecord
             .LastRecord = wdDefaultLastRecord
             'End With
         .SuppressBlankLines = True
         .Execute Pause:=False
    End With
   
     'Fermeture du document Word
     docWord.Close False
     appWord.Quit
    Application.ScreenUpdating = True
End Sub

VBA

2 réponses

Discussions similaires