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 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 28 août 2014 à 18:12
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 28 août 2014 à 18:12
A voir également:
- Macro imprimer un pdf avec un lien hypertexte
- Réduire la taille d'un pdf - Guide
- Telecharger pdf - Guide
- Lien hypertexte linkedin - Forum Internet / Réseaux sociaux
- Verifier un lien - Guide
- Macro logiciel - Télécharger - Organisation
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
25 août 2014 à 18:35
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
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
28 août 2014 à 18:12
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
28 août 2014 à 15:33
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