macro pour impression d'une ligne excel sous word
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:
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 |
