Pïlotage Word depuis Excel / Imp Recto-verso
Salut à tous,
Désolé pour le double-post... Mais je n'ai reçu aucune réponse sur l'ancien peut être car s'était pas ma question à la base.
J'aimerai savoir s'il est possible, avec une ligne de code et sans ouvrir la fenêtre de configuration de l'impression de Word, d'imprimer en recto-verso ?
Je ne veux pas passer par l'ouverture de la fenêtre de mise en page, car ma macro imprime plusieurs documents (jusqu'à 37 GRAND GRAND maximum) et je ne voudrais pas que l'utilisateur ai à configurer 37 fois l'impression ^^.
En recherchant sur internet j'ai trouvé seulement des solutions pour ouvrir la fenêtre de configuration :/.
Pour info, le code :
Sub impression()
'Récupération de l'année
Dim ann As String
ann = Range("A1").Value
'Récupération du mois
Dim mois As String
mois = Range("C1").Value
'Récupération du rédacteur
Dim redacteur As String
'Chemin d'accès
Dim Chemin As String
Chemin = ("Z:\BIP SD Worx")
'nom de l'article
Dim art As String
'Destination du document
Dim dest As String
Dim typ As String
'Emplacement du fichier sur le réseau
Dim Txt As String
Dim i As Integer
For i = 6 To 37
If Range("H" & i) = True Then
art = Range("B" & i).Value
typ = Range("A" & i).Value & "_"
redacteur = Range("D" & i).Value
dest = (Chemin & "\" & ann & "\" & mois & "\" & redacteur)
Txt = Dir(dest & "\" & typ & art & ".docx")
If Txt = "" Then
Else
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docword = appWrd.documents.Open(dest & "\" & typ & art & ".docx")
appWrd.PrintOut
appWrd.ActiveDocument.Close
If i = 37 Then
appWrd.Quit
End If
End If
End If
Next i
End Sub