Discussion :

[frouppy]

Bonjour !

Question toute bête : Comment fait-on pour modifier un lien hypertexte par VBA ?

Je suis dans un formulaire basé sur une table qui contient un champ Lien Hypertexte (MonLien).

Je crée un bouton sur lequel je clique, et j'aimerais simplement que le lien hypertexte de mon champ devienne : C:\truc\bidule.docx

J'ai bien essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonLien.Hyperlink.Address = "C:\truc\bidule.docx"

ou même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonLien.Hyperlink.Address = "#C:\truc\bidule.docx#"

Mais j'ai un message d'erreur m'informant que cette propriété est en lecture seule.

En fouillant sur le web, j'ai découvert HyperlinkPart, et j'ai pensé que je pouvais écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HyperlinkPart(MonLien, acAddress) = "C:\truc\bidule.docx"

Mais il parait que "Un appel de fonction dans la partie gauche de l'affectation doit renvoyer Variant ou Object"

Quelle est mon erreur sûrement très bête ?

[mumen]

Bonjour,

Mais j'ai un message d'erreur m'informant que cette propriété est en lecture seule.

Il me semble probable que ton jeu de données soit en lecture seule. Si tu essayes de le changer par le menu "Lien Hypertexte", cela fonctionne ?

[frouppy]

Si tu essayes de le changer par le menu "Lien Hypertexte", cela fonctionne ?

Oui, absolument...

[mumen]

Bonjour

Ne connaissant pas encore cette propriété je teste comme suit :

Sous Access 2010, je crée un formulaire. J'ajoute deux boutons Commande1 et Commande2

Sur l'évènement OnClic de Commande2 je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Me.Commande1.Hyperlink.Address = "http:\\www.google.fr"

ou ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Me.Commande1.HyperlinkAddress = "http:\\www.google.fr"

Et cela fonctionne. Et c'est pareil avec un fichier de mon disque dur.

[frouppy]

Sur l'évènement OnClic de Commande2 je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.Commande1.Hyperlink.Address = "http:\\www.google.fr"
Me.Commande1.HyperlinkAddress = "http:\\www.google.fr"

Et cela fonctionne.

Oui, je viens de tester, ça, ça fonctionne. Mais tout se gâte si ton formulaire est basé sur une table, et sur le clic de ton bouton Commande1 tu essaies d'attribuer un lien hypertexte à un champ de la table sur ton formulaire.

Evénement OnClick de ton bouton Commande1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ChampDeMaTable.Hyperlink.Address = "http:\\www.google.fr"

C'est là qu'est l'os...

Si j'essaie ta 2ème méthode (HyperLinkAdress - en un seul mot), j'ai carrément "Membre de données ou de méthode introuvable"

[mumen]

Salut,

Mais tout se gâte si ton formulaire est basé sur une table, et sur le clic de ton bouton Commande1 tu essaies d'attribuer un lien hypertexte à un champ de la table sur ton formulaire.

Bien. On avance.

La question, c'est de savoir si le lien hypertexte est déjà déclaré au niveau design de la table, dans le champ. Vérifie et si c'est le cas, enlève cette déclaration (EstHyperLien = Faux) pour voir si tu peux alors accéder à la propriété "Hyperlink.Address" du contrôle de ton formulaire. Si cela fonctionne, alors tu auras déjà trouvé une des deux solutions à ton problème.

a+

PS : on laisse tomber HyperlinkAddress, ça doit être un résidu de compatibilité.