Imprimer un fichier Word depuis Excel

[PierreLyon]

Bonjour à tous

Mon projet avance chaque jour un peu et je viens régulièrement sur le forum puiser des informations... Merci donc à tous.

Aujourd'hui je suis bloqué car je souhaite via un bouton dans une feuille Excel imprimer un fichier Word... 😱

Est ce possible ? Si oui pouvez vous me donner la solution ? 😉

D'avance merci

A+

Pierre

 

[ERIC S]

Bonjour

ouvrir un fichier word c'est faisable, de plusieurs manières, l'imprimer directement je ne sais pas

Ce lien n'existe plus


A+

 

[PierreLyon]

Bonjour ERIC

Merci de ton aide si rapide... C'est un bon début ! 🙂

@+

Pierre

 

[PierreLyon]

Je viens de regarder ton lien mais c'est pour faire du publipostage... 😉

Mon problème reste donc posé !

Merci quand même

Pierre

 

[ERIC S]

re

pour faire ce publipostage, dans mon exemple j'ouvre un fichier word

'Sélection de la lettre type utilisée pour le mailing
'ouverture de fichier .doc

' Ouvrir = Application.GetOpenFilename(filefilter:='Lettres type (*.doc),*.doc', Title:='Sélection d'une lettre type')
' If Ouvrir = False Then
' MsgBox 'aucun fichier sélectionné', vbOKOnly + vbCritical, 'fin de procédure '
' Sheets('Accueil').Select
' Exit Sub
' End If
' ThisWorkbook.FollowHyperlink Ouvrir
ThisWorkbook.FollowHyperlink 'rapport.doc'

si tu connais le nom du fichier, c'est la dernière ligne, si tu veux choisir ton fichier, c'est les autres (en commentaire)

A+

 

[Papaye]

Bonjour vous 2,

N'y aurait-il pas une solution en mettant dans ta macro des sendkeys ?

Si ton ficher word est ouvert :
SendKeys ('%'), True 'Alt
SendKeys ('F'), True 'F=Menu fichier
SendKeys ('I'), True 'I=imprimer
SendKeys ('~'), True 'Simule la touche entrer 'ok pour imprimer

C'est une suggestion...

Papaye

 

[ERIC S]

re

oui papaye je l'avais testé mais je coince sur la fermeture de word après impression qui n'a pas l'air de s'exécuter

sinon sur autre fil j'ai trouvé un code qui à priori Nécessite de faire référence à la Librairie 'Microsoft Word XX.0 Object Library
CE que je ne sais pas faire


Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Fichier As String

Fichier = 'rapport.doc'

'Set appWrd = CreateObject('Word.Application')appWrd.Visible = False
Set appWrd = CreateObject('Word.Application')
Set docWord = appWrd.Documents.Open(Fichier)

docWord.PrintOut

docWord.Close
appWrd.Quit

A+

 

[Papaye]

Ok, mais si tu continues en lui faisant faire Menu fichier et Q pour Quitter ?

 

[ERIC S]

re

j'ai dû lefaire mais j epense qu'entre temps j'ai eu une boite de dialogue qui perturbe peut-être la séquence

pour l'autre fil évoqué, il faut regarder en plus

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

le WIKI KIDITOU de Michel (validation de librairie)

a noter le chemin doit être complet
Fichier = thisworkbook.path & 'backslash rapport.doc'

Ah, se coucher moins idiot qu'on ne s'est réveillé....

Au fait, Pierre, toujours là?

A+

 

[PascalXLD]

Bonjour

A essayer

Dim WordApp 'As Word.Application
Dim WordDoc 'As Word.Document
PathFile='C:\\\\\\\\toto.doc'
Set WordApp = CreateObject('word.application') 'ouvre session word
Set WordDoc = WordApp.Documents.Open(PathFile) 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
WordDoc.PrintOut Copies:=1 'imprimer

WordDoc.Close False 'ferme le document word en ne sauvegardant pas les données
'WordApp.Quit 'ferme la session Word

 

[PierreLyon]

Merci a tous pour votre aide...

Bon week end

Pierre