Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Bureautique

Access VBA Créér hyperliens dynamique actif

Dernière réponse le 5 aoû 2008 à 17:55:34 artamys, le 5 aoû 2008 à 15:57:17

Signaler ce message aux modérateurs

Bonjour,
je travailles sur une application.
J'ai une table qui a un champ qui est un hyperlien vers le WEB, plus exactement un intranet.
J'ai un formulaire.
En fonction de certains critères j'affiche les caractéristiques de telle ou tellle demande avec un hyperlien renseigné dans un champ.

Mon Problème est que l'hyperlien est dans une zone de texte chargée depuis VBA et que le fait de cliquer dessus n'a aucun effet.Pourtant c'est bien un hyperlien.

ISHyperlink : Oui.
Verouille : Non
Activé Oui .

La je ne comprends pas.
Au pire il faudrait que je remplace cet affichage par une macro qui ouvre une page web et qui colle la ligne hyperlien de la table. Quelqu'un aurait il un programme ou connaitrait il la correspondance VBA de la proprieté adresse lien hypertexte ?

Merci et bonne journée.

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Access VBA Créér hyperliens dynamique actif » dans :

Créer un bouton dynamiquement excel via VBA Voir

Creation d'une table sous access vb Voir

[Excel VBA] Créer des dossiers sous VBA Voir

VBA Un timer une seconde tout simple VoirEn VBA, il n'y a pas (du moins à ma connaissance) de composant Timer. On peut en créer un très facilement. Dans un module de feuille Activer/ dés activer le timer : Placer un bouton sur Feuil1 et mettre le code... Private Sub...

Access VBA et fichier pdf Voir

[vba] créer doc word sur base donnée XLS Voir

[ACCESS] pb création liste dynamique Voir

Posez votre question Répondre

CaPiT, le 5 aoû 2008 à 16:16:07

Bonjour, assez compliqué ton problème.

Au pire, tu fais une requête INSERT TO pour envoyer le lien depuis le VBA vers ta table (format: lien hypertexte).
Puis tu affiches une zone de texte qui reprend le lien inséré dans le champs de ta table.

Répondre à CaPiT

artamys, le 5 aoû 2008 à 17:11:10

Bonjour,
En fait j'arrive parfaitement a afficher l'URL dans la zone de texte.
MAis c'est une zone de texte et donc elle est saisissable. Même si le lien s'affiche souligné de bleu, il n'est pas actif.
Il faudrait peut être passer par une Etiquette. Mais alors il faudra modifier le Nom, Le lien hypertexte et l'adresse hypertexte.
Ce qui me manque c'est leur correspondance VBA pour automatiser.

Merci en tout cas.

Répondre à artamys

CaPiT, le 5 aoû 2008 à 17:14:55

Je vois ton problème. Chaud. Je ne pense pas pouvoir t'aider là dessus.
Bonne chance !

Répondre à CaPiT

artamys, le 5 aoû 2008 à 17:52:23

Trouvé !!!!

Sub TexteURLDEI_Click()
Dim Base_modifProjet As DAO.Recordset

Set db = CurrentDb()
Set Base_modifProjet = db.OpenRecordset("TB_DEI")

Base_modifProjet.Index = "primarykey"
Base_modifProjet.Seek "=", ListeNumDEI

If IsNull(Base_modifProjet("URLDEI")) Then Message = "Aucun lien enregistré pour cette DEI Merci de le Créér"
If IsNull(Base_modifProjet("URLDEI")) Then MsgBox (Message)
If IsNull(Base_modifProjet("URLDEI")) Then Exit Sub

TexteURLDEI.HyperlinkSubAddress = Base_modifProjet("URLDEI")
TexteURLDEI.HyperlinkAddress = Base_modifProjet("URLDEI")
End Sub

Répondre à artamys

CaPiT, le 5 aoû 2008 à 17:55:34

Super bien joué !

Mets ton post en "Résolu".

Bonne journée.

Répondre à CaPiT

Posez votre question Répondre