Imprimer un pdf à partir d'un lien hypertexte
Fermé
TIZYX
Messages postés
1
Date d'inscription
jeudi 10 juin 2021
Statut
Membre
Dernière intervention
10 juin 2021
-
10 juin 2021 à 13:45
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 10 juin 2021 à 14:22
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 10 juin 2021 à 14:22
A voir également:
- Imprimer un pdf à partir d'un lien hypertexte
- Verifier un lien - Guide
- Comment signer un pdf sans l'imprimer - Guide
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment modifier un pdf - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 10 juin 2021 à 14:56
Modifié le 10 juin 2021 à 14:56
Bonjour,
voir ceci:
https://excel-malin.com/vba-astuces/imprimer-fichier-pdf-avec-vba-dans-excel/
et pour récupérer le chemin du lien hypertexte:
https://forums.commentcamarche.net/forum/affich-22238940-recuperer-une-adresse-de-lien-en-vba-excel#4
Se mettre sur la feuille qui contient les liens et faire Alt F11 pour accéder à l'éditeur
Mettre ce code dans le module de la feuille qui se déclenchera lors du clic droit sur le lien:
voilà
voir ceci:
https://excel-malin.com/vba-astuces/imprimer-fichier-pdf-avec-vba-dans-excel/
et pour récupérer le chemin du lien hypertexte:
https://forums.commentcamarche.net/forum/affich-22238940-recuperer-une-adresse-de-lien-en-vba-excel#4
Se mettre sur la feuille qui contient les liens et faire Alt F11 pour accéder à l'éditeur
Mettre ce code dans le module de la feuille qui se déclenchera lors du clic droit sur le lien:
Option Explicit
Dim lien As String
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "" Then Exit Sub
If Range(Target.Address).Hyperlinks.Count > 0 Then
lien = Range(Target.Address).Hyperlinks(1).Address
End If
ImpressionDeFichier
End Sub
Sub ImpressionDeFichier()
'par Excel-Malin.com ( https://excel-malin.com )
Dim FichierAImprimer As Variant
FichierAImprimer = lien '<-- chemin complet du fichier à imprimer
CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")
End Sub
Public Function ImprimerFichier(FichierAImprimer As Variant)
'par Excel-Malin.com ( https://excel-malin.com )
CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")
End Function
voilà
