Discussion :

[gehera]

Bonjour à tous,

Je me suis créé une base de donnée afin de répertorier mes disques. Dans ma table, j'ai un champ de liens hypertextes. lorsque je clique dessus, mon explorateur s'ouvre sans problème. j'ai également créé un formulaire afin d'avoir accès plus lisiblement à mes informations.

Ce que j'aimerais c'est pouvoir créer un bouton (jusque là je sais faire) qui, en cliquant dessus, active lien lien hypertexte contenu dans le champ liens hypertextes et correspondant à la fiche active.

D'avance, merci de vos explication

Gehera

[madefemere]

Bonjour,

Tu as quelle version ?
Comment se présente ton champ en lien hypertexte dans ton formulaire, tu ne peux pas cliquer directement dessus ? (pour devoir créer un bouton).

Cordialement,

[gehera]

Merci pour ta réponse

J'ai access 2010,
pour ce qui est de la présentation, bah c'est un champs de type liens donc des cases ou cellules les unes en dessous des autres avec un lien par cellule

Pour ce qui est du pourquoi, c'est dans le formulaire que je souhaite créer ce bouton, non dans la table.

[paidge]

Bonjour,
Voici un exemple :

Code :

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

1
2
3
Private Sub monBouton_Click()
    ShellExecute 0&, vbNullString, "\\monServeur\monDossier\monFichier.xlsx", "", vbNullString, vbNormalFocus
End Sub

Mais il faut coller ce code dans l'en-tête d'un module

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
                       ByVal lpOperation As String, _
                       ByVal lpFile As String, _
                       ByVal lpParameters As String, _
                       ByVal lpDirectory As String, _
                       ByVal nShowCmd As Long) As Long

Source : Support Microsoft, Developpez.com

[gehera]

Merci pour la réponse,

cependant, mes liens hypertextes sont des liens vers des pages internet (une différente par enregistrement)

[paidge]

ça marche aussi avec les les URL

Code :

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

ShellExecute 0&, vbNullString, "http://www.google.fr", "", vbNullString, vbNormalFocus

[gehera]

Oui mais la ça renvoie à une adresse internet que tu entre toi même, comment faire pour qu'il aille chercher l'adresse internet dans le champ "lien" de la table.

Tant que j'y suis, je ne sais absolument pas de quoi tu me parles quand tu parles de module :s

[paidge]

Ah ok, on part de zéro
Donc tu as un formulaire basé sur une table. Dans cette table, il y a un champ qui s'appelle "monLien" (à toi d'adapter avec le nom du champ dans ta table ). Sur ton formulaire, tu places un bouton que tu appelleras "monBouton" par exemple. Et sur l'évènement Clic de ce bouton, tu places ce bout de code :

Code :

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

1
2
3
Private Sub monBouton_Click()
    ShellExecute 0&, vbNullString, Me.monLien, "", vbNullString, vbNormalFocus
End Sub

Mais pour que ce code fonctionne, il faut déclarer une référence à une bibliothèque. Pour ce faire, il faut aller dans l'éditeur de code en faisant ALT+F11. Puis aller dans le Menu "Insertion > Module". Là ça te crée un nouveau module (appelé par défaut Module1). Un module VBA contient des fonctions et procédures VBA. Enfin tu y places le code que je t'ai cité plus haut.

[gehera]

Merci beaucoup,

j'ai fait ce que tu m'a dis, mais il me renvoie un message d'erreur :

Code :

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

1
2
3
4
5
Erreur de compilation :
 
Le code contenu dans ce projet doit etre mis a jour pour pouvoir etre
utilisé sur les systemes 64 bits. Verifiez et mettez à jour les instructions
Declare, puis marquez les avec l'attribut PtrSafe.

[paidge]

C'est parce qu'apparemment tu utilises une version 64 bits d'access. Le premier résultat dans la recherche Google m'oriente vers ce topic qui pourra t'aider Tiens-nous au courant.

[gehera]

Yeah ! Cool, ca marche du tonnerre. Merci beaucoup