Problème d'automatisation publipostage vba

Problème d'automatisation publipostage vba - VB/VBA/VBS - Programmation

Marsh Posté le 21-06-2013 à 00:13:52    

Bonjour à tous !
 
Je suis une novice sur le forum. J'espère que vous seriez indulgent avec moi  
Et j'espère surtout que vous pourriez m'aider : j'ai cherché partout pour essayer de comprendre mon blocage mais je ne trouve pas de solution à mon problème.
 
Je souhaite automatiser mon publipostage depuis un fichier Excel.
Je commence à apprendre le vba seule mais c'est pas si simple...  
 
Avec mon code ci dessous, le fchier word s'ouvre mais le publipostage ne se fait pas, je ne comprend pas pourquoi...
Pour info, lorsque j'enregistre et je ferme mon fichier excel puis j'ouvre mon fichier word, le publipostage fonctionne.
 
Si quelqun pourrait m'aider à comprendre ma faute, ca serait sympa ! :)
 
Merci d'avance pour ceux qui prendront le temps de me lire et d'essayer de comprendre mon problème.  
 

Code :
  1. Sub commandButton1_Click()
  3. Dim NomBase As String
  4. Dim oWdApp As Object
  6. 'Lancer Word
  7. Set oWdApp = CreateObject("Word.Application" )
  8. With oWdApp
  9. 'Afficher Word si nécessaire...
  10. .Visible = True
  11. 'Ouvrir le document Word
  12. Set Wordoc = oWdApp.documents.Open("C:\Users\bws229\Desktop\dc1Test.docx" )
  13. End With
  15. 'fonctionnalité de publipostage pour le document spécifié
  16.     With docWord.mailMerge
  17.         'Ouvre la base de données
  18.         .OpenDataSource Name:=NomBase, _
  19.             Connection:="Driver={Microsoft Excel Driver (*.xlsm)};" & _
  20.             "DBQ=" & NomBase & "; ReadOnly=True;", _
  21.             SQLStatement:="SELECT * FROM [Réponses1$]"
  22.        'Prend en compte l'ensemble des enregistrements
  23.             With .DataSource
  24.                 .firstRecord = wdDefaultFirstRecord
  25.                 .lastRecord = wdDefaultLastRecord
  26.             End With
  27.         'Exécute l'opération de publipostage
  28.         .Execute Pause:=False
  30.     Application.ScreenUpdating = True
  32.     'Fermeture du document Word
  33.     docWord.Close False
  34.     appWord.Quit
  36. End Sub

Reply

Marsh Posté le 21-06-2013 à 00:13:52   

Reply

Marsh Posté le 21-06-2013 à 01:08:52    

 
           Bonjour !
 
           Ce code ne peut rien ouvrir du tout vu qu'il ne passe pas le stade de la compilation ‼
 
           Donc commencer par le corriger avant de pouvoir envisager de s'attaquer aux problèmes de conception
           comme par exemple une variable non définie ou non initialisée …
 
           De toute manière, chaque message d'erreur  - de compilation comme d'exécution -
           comporte une aide mettant sur la voie de la solution.
 

Reply

Marsh Posté le 21-06-2013 à 10:13:00    

 
           Suite ici …

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed