Guillaume in Zevillage

Allez on reprend en douceur avec les liens en VBA.  Voici un petit bout de code, qui va vous permettre de créer une fonction pour afficher une page web ou un document (pdf, doc, xls...). Dans l'exemple ici, ce sera pour afficher la page web de notre contact. La procédure est simple, on commence par ajouter un bouton...

Puis on doucle clique dessus et on écrit le code suivant :

Private Sub CommandButton4_Click()

' L'adresse Internet que l'on souhaite se trouve dans le TextBox7

If UserForm1.TextBox7 = "" Then

' Si l'adresse n'est pas renseignée, alors message d'erreur

MsgBox ("L'adresse Internet du contact n'est pas renseignée...")

Else

' Sinon on suit le lien qui est renseigné dedans...

ActiveWorkbook.FollowHyperlink Address:=UserForm1.TextBox7.Text

End If

End Sub

Je vous l'avais dit, c'est pas bien compliqué, mais très utile. Pour un document, il suffit d'écrire le chemin du document à la place de l'adresse internet...

Voir aussi :

• Partage de connaissances VBA sur Excel
• Les UserForm sous Excel
• Utilisation des Intitulés et Zones de textes
• Utilisation des variables
• Charger les données d'un UserForm
• Faire une recherche dans un UserForm