Discussion :

[schwoby]

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

[mathieu44800]

Bonjour,

Quelles erreurs a tu ?

A+

[schwoby]

j'ai pas d'erreur qui s'affiche mais il ne se passe rien quand je clic sur la macro.

[Garuda]

Essaye déja en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
appWrd.Visible = True 'pour que word reste affiché pendant l'operation

pour voir ce qui se passe !

[schwoby]

Je commence à piger. une fois que j'ai sélectionner ma ligne, pour cliquer sur mon bouton impression, je déselectionne ma ligne forcement, et évidemment il ne se passe rien. Le truc je suppose c'est de faire ensorte qu'il imprime la dernière ligne de la feuille, mais ca je sais pas comment ca marche !