1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
Sub imprimer_quickstart()
Dim langue As String
langue_quickstart = Range("'Fiche broyeur'!B14") 'cellule avec les langues via une liste
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Fichier As String
Select Case langue_quickstart
Case Is = "Allemand"
Fichier = "S:\Service technique\Quick Start\quick start ALL.docx"
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.DisplayAlerts = True
Set docWord = appWrd.Documents.Open(Fichier)
docWord.PrintOut 'impression
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesionWord
Case Is = "Anglais"
Fichier = "S:\Service technique\Quick Start\quick start ANG.docx"
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.DisplayAlerts = True
Set docWord = appWrd.Documents.Open(Fichier)
docWord.PrintOut 'impression
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesionWord
Case Is = "Espagnol"
Fichier = "S:\Service technique\Quick Start\quick start ESP.docx"
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.DisplayAlerts = True
Set docWord = appWrd.Documents.Open(Fichier)
docWord.PrintOut 'impression
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesionWord
Case Is = "Français"
Fichier = "S:\Service technique\Quick Start\quick start FR.docx"
Set appWrd = CreateObject("Word.Application") 'creation session Word
appWrd.DisplayAlerts = True
Set docWord = appWrd.Documents.Open(Fichier)
docWord.PrintOut 'impression
docWord.Close 'fermer le document Word
appWrd.Quit 'fermer la seesionWord
Case Else
End Select
End Sub |
Partager