Imprimer Word depuis EXCEL

[JPM]

Boujour le forum
J'ai un petit soucis sur l'impression d'un document WORD depuis EXCEL
ça bugg à la ligne * Le message est Non gérer par l'objet ????
Si quelqu'un a déjà eu le prb je suis preneur de solutions
Dim Wrd As Object
Dim AppWord As Object
Chem = Range("Q89")
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = True
Set AppWord = Wrd.Documents.Open(Chem)
Set Sel = Wrd.Selection
Sel.MoveDown Unit:=wdLine, Count:=3
Sel.TypeText Text:=DTE
Sel.MoveRight Unit:=wdCell
Sel.MoveRight Unit:=wdCell
Sel.TypeText Text:=Code
Sel.MoveDown Unit:=wdLine, Count:=4
Sel.MoveLeft Unit:=wdCharacter, Count:=25
Sel.MoveRight Unit:=wdCharacter, Count:=5
Sel.MoveLeft Unit:=wdCharacter, Count:=1
Sel.TypeText Text:=Ville
Sel.MoveDown Unit:=wdLine, Count:=1
Sel.TypeText Text:=Ets
*ActiveDocument.PrintOut
Wrd.Documents.Close SaveChanges:=wdDoNotSaveChanges
Wrd.Visible = False

Merci d'avance

A+ JPM

 

[Zon]

Salut,

Essaies plutôt Wrd.activedocument.printout
Pour éviter d'autres soucis libères la mémoire à la fin de ton code par set Wrd=nothing.

A+++

 

[JPM]

Salut Zon

Merci beaucoup ça marche super bien !!!

A+ JPM