Discussion :

[laurentdepibrac]

Bonjour, j'aimerais savoir comment, en commande VBA, transformer une chaîne de caractères en lien hypertexte cliquable?
Merci de votre aide,

[pkrvz]

bonjour, que cherches tu a faire, peux tu être un peu plus précis? c'est pour utiliser dans un formulaire?

[Invité]

Bonjour

De plus, peux-tu indiquer dans quel contrôle se trouve ta chaine de caractères.
Quelle version d'Access ?

Starec

[laurentdepibrac]

Bonjour, désolé pour l'absence et merci de vos réponses,
En fait, je cherche à stocker plusieurs milliers de liens hypertextes dans une table de la base de données déjà existante de la société pour laquelle je travaille. Le problème, c'est que les informations que j'ai sont des chaînes de caractères et non des liens hypertexte.
J'utilise Access2007.

Merci à ceux qui peuvent m'aider,

[laurentdepibrac]

Bonjour, j'ai trouvé la solution à mon problème, je la mets au cas où il y aurait des gens qui rencontrent le même problème. En fait je ne pense pas que je puisse stocker un lien hypertexte en tant que tel dans une table. En revanche, il suffit de stocker une chaîne de caractères et de faire un bouton, qui, lorsque je clique dessus, transforme la chaîne de caractère en lien hypertexte et l'exécute.

Voilà la fonction que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function CreateHyperlink(ctlselected As Control, strSubAddress As String, Optional strAddress As String)
    Dim hlk As Hyperlink
    Select Case ctlselected.ControlType
       Case acLabel, acImage, acCommandButton
            Set hlk = ctlselected.Hyperlink
            With hlk
                If Not IsMissing(strAddress) Then
                    .Address = strAddress
                Else
                    .Address = ""
                End If
                .SubAddress = strSubAddress
                .Follow
                .Address = ""
                .SubAddress = ""
            End With
        Case Else
            MsgBox "The control '" & ctlselected.Name _
                 & "' does not support hyperlinks."
    End Select
End Function

et un exemple d'application de la fonction:

Code :

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

1
2
3
4
 
Private Sub Commande1_Click()
      CreateHyperlink Me!Commande1, "0", "c:\users\blablabla.pdf"
End Sub

Sinon, j'ai eu une mauvaise surprise car mes noms de fichiers contenaient le caractère "#". Et, les liens hypertextes ne supportent pas ce caractère!
Bon vent,