Macro imprimer un pdf avec un lien hypertexte

Fermé
dededudu Messages postés 16 Date d'inscription mercredi 30 juillet 2014 Statut Membre Dernière intervention 18 mars 2016 - 25 août 2014 à 12:16
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 28 août 2014 à 18:12
Bonjour,

Je cherche a faire une macro qui imprimerait le PDF dont le lien hypertexte serait dans une cellule défini de mon classeur
j'espère que c'est suffisamment claire ...
merci de votre aide.
A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
25 août 2014 à 18:35
Bonjour,

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 Dim NomFichier As String
Sub ImprimerFichier()
   Dim x As Long
     x = FindWindow("XLMAIN", Application.Caption)
  ShellExecute x, "print", NomFichier, "", "", 1
End Sub
Private Sub CommandButton1_Click()
 NomFichier = Cells(9, 2).Hyperlinks(1).Address 'lien dans la cellule B9 à adapter
ImprimerFichier
End Sub

0
dededudu Messages postés 16 Date d'inscription mercredi 30 juillet 2014 Statut Membre Dernière intervention 18 mars 2016
28 août 2014 à 15:33
merci

ca ne marche que su dans ma cellule a un lien hypertexte d'affecter...
alors que moi c'est le contenu de ma cellule qui a l'adresse du lien
je ne sais pas si c'est possible
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
28 août 2014 à 18:12
Mettre ceci:

Private Sub CommandButton1_Click()
NomFichier = Range("B9").Value 'lien dans la cellule B9 à adapter
ImprimerFichier
End Sub

0