Bonjour,

Comme vous allez le remarquer je débute sur VBA.

Ma problématique :

J'ai créé sous excel plusieurs colonnes avec listes déroulantes.

Je complète ce tableau au jour le jour.

Je voudrais créer une macro qui m'exporte automatiquement les données de la ligne sélectionnée (dans un document word mis en forme par exemple) et qui me l'imprime, ceci sans avoir besoin d'ouvrir word.

J'ai créer un publipostage sous word puis tente de réaliser ma macro qui transfere et imprime ma ligne excel mais je plante...

Ci-dessous, ce que j'ai réaliser, mais c'est surement bourrés d'erreur puisque ça ne marche pas !!!

Merci de vos conseils éclairés.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ouvrirDocWord_Impression()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Fichier As String
 
Fichier = "C:\Documents and Settings\schwob-l\Bureau\essai qui va marcher.doc"
 
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.Visible = False 'pour que word reste masqué pendant l'operation
Set docWord = appWrd.Documents.Open(Fichier)
 
docWord.PrintOut ([ActiveLine]) 'impression
 
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesionWord
 
End Sub