Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Imprimer une feuille Word avec une macro Excel

  • Initiateur de la discussion Initiateur de la discussion Tchingum
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Tchingum

XLDnaute Nouveau
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 = "C😀ocument\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
 
Re : Imprimer une feuille Word avec une macro Excel

Salut Tchingum le Forum

Essaye ce Code

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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…