Imprimer une feuille Word avec une macro Excel

[Tchingum]

Hello,

Je recherche comment imprimer une feuille Word avec une macro Excel mais avec une référence d'une cellule.

J'ai déjà cette macro:

Sub ouvrirDocWord_Impression()
'necesite 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 = "Cocument\word.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 'impression

docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesionWord

End Sub

Il faudrait juste aller chercher l'info dans une cellule:
Exemple: si la cellule contient:
"allemand" il m'imprime le document allemand
"français" il m'imprime le document français
"italien" il m'imprime le document italien

Merci d'avance

Tchingum

 

[Dull]

Re : Imprimer une feuille Word avec une macro Excel

Salut Tchingum le Forum

Essaye ce Code

Sub ImprimWord()

Dim Wrd As Object
Dim AppWord As Object
Chem = "TonChemin" & Range("A1") & ".Doc"[COLOR=Green] ' TonChemin = C:\Documents and Settings\... à adapter[/COLOR]
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = False
Set AppWord = Wrd.Documents.Open(Chem)
Set Sel = Wrd.Selection
Wrd.activedocument.PrintOut
Wrd.Documents.Close SaveChanges:=wdDoNotSaveChanges
Wrd.Visible = False
Set Wrd = Nothing
End Sub

Bonne Journée

 

[Tchingum]

Re : Imprimer une feuille Word avec une macro Excel

Un grand merci avec un peu de retard, Tchingum

 

[Dull]

Re : Imprimer une feuille Word avec une macro Excel

Salut Tchingum, le Forum

Vieux motard que jamais

Bonne Journée