Bonjour,
Je suis à la recherche d'une macro qui par inscription dans une cellule excel pour faire imprimer une feuille word
exemple: dans la cellule "DE" imprime le doc. allemand ou "FR" imprime le doc. français ou "E" imprime le doc. espagnol (~9 langues)
Voici la macro que j'ai mise, mais il me faut un bouton pour chaque langue.
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:\document\allemand.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
Je suis à la recherche d'une macro qui par inscription dans une cellule excel pour faire imprimer une feuille word
exemple: dans la cellule "DE" imprime le doc. allemand ou "FR" imprime le doc. français ou "E" imprime le doc. espagnol (~9 langues)
Voici la macro que j'ai mise, mais il me faut un bouton pour chaque langue.
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:\document\allemand.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