Modifier un lien hypertexte par VBA

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:

---

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

---

ou même

Code:

---

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:

---

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 ?

Bonjour,

Citation:

---

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 ?

Citation:

---

Envoyé par mumen

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

---

Oui, absolument...

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:

---

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

---

ou ça

Code:

---

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

---

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

Citation:

---

Envoyé par mumen

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

Code:

---

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:

---

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" :cry:

Salut,

Citation:

---

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é.

Citation:

---

Envoyé par mumen

Salut,
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.

---

Heuuu oui alors là j'ai quelques soucis : déjà, dans la table, quand je regarde les propriétés de mon champ MonLien, c'est bien un type Lien Hypertexte, mais par contre, je n'ai aucunement la propriété "EstHyperlien", ni même une propriété apparentée dans les propriétés (En bas de l'écran, donc)

Après, tu me parles de la propriété "Hyperlink.Address" du contrôle de mon formulaire... Là aussi je patauge... Bon j'ai Access 2010 en Français, et tout ce que je trouve comme propriété de mon champ MonLien au niveau de mon formulaire sont :

Is Hyperlink : Oui
Afficher comme lien hypertexte . Si lien hypertexte
Cible de lien hypertexte : Rien

C'est assez bizarre, d'ailleurs, cette dernière propriété, puisqu'il s'agit d'un champ en provenance d'une table, le lien change donc d'enregistrement en enregistrement 8O

Salut,

Désolé, je t'ai embrouillé avec mon "EstHyperlien" qui n'existe que dans ma tête.

La propriété Hyperlink que tu essayes de modifier est celle du contrôle, pas celle du champ. Comme il y a un champ associé à ton contrôle, il est logique que Access refuse de le faire.

En réalité, les informations que tu cherches sont dans la valeur du champ. Si tu veux comprendre, modifie un lien hypertexte et sur l'évènement clic de ton bouton, fais ceci :

Code:

---

1 2 3 4 5

With Me.lien Debug.Print .Value Debug.Print HyperlinkPart(.Value, acAddress) Debug.Print HyperlinkPart(.Value, acDisplayedValue) End With

---

Pour assigner l'adresse internet de ton champ fais comme ceci :

Code:

---

.Value = "google.fr#http:\\www.google.fr#"

---

Et pour les autres parties, aide toi de l'énumération de HyperlinkPart.

Citation:

---

Envoyé par mumen

En réalité, les informations que tu cherches sont dans la valeur du champ.

Pour assigner l'adresse internet de ton champ fais comme ceci :

Code:

---

.Value = "google.fr#http:\\www.google.fr#"

---

---

YESSSSSSSSSSS !!! C'était ça ! Oh merci ! A la nanoseconde ou je t'ai lu, je me suis dit . "Mais bien sûr ! Quel idiot ! Je n'ai jamais pensé à .value"

Tu me sauves la mise ! Merci mille fois !:ccool:

Superbe, quelle galère j'ai eu également avec Hyperlink.Address. Merci pour cette solution.

Et si l'on veut introduire en valeur d'adresse de notre champ hypertexte la valeur d'un autre champ ou objet string existant _LINK_ :
.Value = "Lien (ou tout autre texte)" & "#" & _LINK_ & "#"

Quelle galère pour moi aussi !!
Mais grâce à vous, j'y suis arrivé :D
Je répond 5 ans après ce post mais rassurez-vous, je n'ai pas cherché pendant 5 ans :lol: :lol:
Un tout grand merci

Eddie