Mon fichier contient des devis en liens hypertexte dans la colonne A, lorsque je suis sur une cellule autre que la colonne A, je veux que quand je clic sur un bouton la macro sélectionne la cellule de la colonne A sur la ligne dans laquelle je suis, ouvre le lien et lance l'impression sur une imprimante pré-sélectionné.
Re : Faire une macro qui ouvre un lien hypertexte et lance l'impression ????
Bonjour reno78840, bienvenue sur XLD,
Vous n'avez pas dû beaucoup chercher car c'est assez basique :
Code:
Sub Imprimer_Lien()
On Error Resume Next 'si le lien n'existe pas ou ne conduit à rien
With ThisWorkbook
.FollowHyperlink Cells(ActiveCell.Row, 1)
If ActiveWorkbook.Name <> .Name Then ActiveSheet.PrintOut
End With
End Sub
Re : Faire une macro qui ouvre un lien hypertexte et lance l'impression ????
Re,
Si en colonne A on a des textes quelconques au lieu des adresses des liens :
Code:
Sub Imprimer_Lien()
On Error Resume Next 'si le lien n'existe pas ou ne conduit à rien
With ThisWorkbook
.FollowHyperlink Cells(ActiveCell.Row, 1).Hyperlinks(1).Address
If ActiveWorkbook.Name <> .Name Then ActiveSheet.PrintOut
End With
End Sub