Impression d'un document Word en lien hypertexte sur Excel

Bonjour,

J'essai de faire une macro qui peut ouvrir et imprimer un document word intégré dans mon ficher excel en lien hypertexte, mais sans succès. Le lien se trouve en B26. Le document s'ouvre, mais c'est ma page excel qui imprime! Est-ce qu'il y aurait quelqu'un avec une solution? Merci d'avance pour votre aide

Voici mon code :

Sub Impression_Procedure_Grain()

'

' Impression_Procedure_Grain Macro

'

Range("B26").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Dim nb As Integer

nb = Val(InputBox("Donner un nombre de copie : "))

If nb = 0 Then Exit Sub

ActiveWindow.SelectedSheets.PrintOut Copies:=nb, Collate:=True

ActiveWindow.Close

End Sub

Bonjour,

après ouverture du document word, il faut faire un sendkeys avec les touches clavier correspondant au raccourci d'impression de word (Ctrl+P)

je pense que cela donnerait ceci

SendKeys "^P", True

Re :

Merci pour le renseignement. En écrivant "SendKeys "^P", True" cela ouvre le menu des polices.

J'ai corriger la chose en écrivant : SendKeys "^", True

SendKeys "P", True

Par contre cela me donne le même résultat qu'au départ, soit l'impression de ma page active excel.

Merci encore pour les renseignements.

Bonsoir,

Essayer ce code

Sub Impression_Procedure_Grain()
'
' Impression_Procedure_Grain Macro
'

    Dim wd As Object, nb As Integer

    Range("B26").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    nb = Val(InputBox("Donner un nombre de copies : "))
    If nb = 0 Then Exit Sub

    Set wd = GetObject(, "Word.application")
    wd.ActiveDocument.PrintOut Copies:=nb, Collate:=True
    wd.Quit

End Sub

Merci thev. Cela à résulu mon problème!

Bonne soirée!

ML83 a écrit :

Merci pour le renseignement. En écrivant "SendKeys "^P", True" cela ouvre le menu des polices.

J'ai corriger la chose en écrivant : SendKeys "^", True

SendKeys "P", True

ok

c'était p minuscule, juste après l'hyperlink

Range("B26").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
SendKeys "^p", True

Mais la procédure de Thev est plus pertinente !

Bonjour,

J'aimerais savoir comment faire l'impression de mes procédures si mes documents words sont en mode protégé pour éviter qu'un employé les modifies? Les boutons fonctionnent à merveille, sauf qu'aucune boite de dialogue pour choisir d'entrer le mot de passe ou lecture seul ne s'affiche lorsqu'on appui sur un des bouton d'impression et excel ne fait que tourner en rond.

Merci d'avance pour votre temps.