Ouvrir la boite de dialogue "Insérer un lien hypertexte" sur événement clic

cs_Fabi1 Messages postés 8 Date d'inscription lundi 13 mai 2002 Statut Membre Dernière intervention 8 juin 2005 - 8 juin 2005 à 11:35
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 8 juin 2005 à 14:10

Bonjour,

je voudrai juste ouvrir la boite de dialogue "insérer un lien hypertexte" à partir de l'événement clic par exemple.

Ce code fonctionnait sous Access 97 mais ne passe plus sous Access 2003:

Private Sub lien_DblClick(Cancel As Integer)
Dim Lien As CommandBarControl
Dim cbrmenu As CommandBar

Set cbrmenu = CommandBars("menu bar")
Set Lien = cbrmenu.Controls("insertion").CommandBar.Controls("lien hypertexte...")
If Lien Is Nothing Then
MsgBox ("impossible de trouver la commande menu")
Else
If Lien.Visible Then
Lien.Execute
End If
End If

End Sub

Cela ne semble pas compliqué mais je n'ai pas trouvé la solution!!!
Merci de votre aide.

A voir également:

Vba ouvrir lien hypertexte
Doevents vba - Conseils pratiques -Visual Basic / VB.NET
Byval vba - Conseils pratiques -Visual Basic / VB.NET
Vba formular1c1 - Forum Visual Basic
Vba ouvrir un fichier csv ✓ - Forum VB.NET
Vba modulo - Forum Visual Basic

1 réponse

Réponse 1 / 1

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
8 juin 2005 à 14:10

Bonjour,

Set cbrmenu = CommandBars(1)

jpleroisse

Discussions similaires

Excel : récupérer lien hypertexte

[VBA/EXCEL] Recuperer le lien hypertext contenu dans une cellule

Affichage du userform dès l'ouverture du fichier excel

ouvrir un UserForm à condition que ..

Ouvrir un classeur Excel par macro sans l'afficher