[VBA Access] Hyperlink ne s'ouvre pas ... [Fermé]

Signaler
Messages postés
18
Date d'inscription
jeudi 19 avril 2012
Statut
Membre
Dernière intervention
24 mai 2012
-
Bonjour, je suis en train de créer une base de données et chaque table contient un champ "File" de type lien hypertexte.
Dans un formulaire, j'ai donc ajouté un bouton permettant d'ouvrir la boîte de dialogue de sélection de fichier pour ainsi laisser l'utilisateur choisir un fichier dont je récupère ensuite le chemin d'accès pour l'ajouter au champ "File".

Private Sub cmdFile_Click()

Dim strchemin As String
Dim oFD As Object
 'Paramètre la fenêtre Ouvrir
Set oFD = Application.FileDialog(msoFileDialogOpen)

With oFD
     'Ajoute les filtres pour fichiers textes et tous
   With .Filters
        .Clear
        .Add "Tous", "*.*", 1
   End With
    ' Aucun nom de fichier par défaut
    .InitialFileName = ""
     'Interdit la multisélection
    .AllowMultiSelect = False
    ' Affiche la fenêtre et vérifie qu'un fichier a bien été choisi
    If .Show Then
        'MsgBox .SelectedItems(1)
        strchemin = oFD.SelectedItems(1)
        strchemin = Replace(strchemin, "I:\", "\\EUFRABFILE01\020GEFRA.D0\")
        txtFile.Value = strchemin
        
    End If
End With

End Sub


Tout marche à merveille sauf que lorsque j'essaye de cliquer sur lien hypertexte ainsi généré, il ne s'ouvre pas alors qu'il a bien la même syntaxe qu'un autre lien que j'avais rempli à la main et qui marche !
D'avance merci pour moi et tous les futurs utilisateurs de cette base.