Discussion :

[Patrice.H]

Bonjour,

j'ai dans mon application un formulaire qui détecte la présence des fichiers et rends clicable le label utilisé pour signaler la présence de celui-ci.

Pour cela j'utilise la propriété .hyperlinkadress() de mon objet.

Ici le code qui me permet d'attribuer le lien :

Code :

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

1
2
3
4
5
6
7
8
If (Dir(CurrentProject.Path & "/samedis.xls") <> "") Then
    Me.samedis_out.Caption = "Ok"
    Me.samedis_out.ForeColor = vbGreen
    Me.samedis_out.HyperlinkAddress = (CurrentProject.Path & "/samedis.xls")
Else
    Me.samedis_out.Caption = "Non"
    Me.samedis_out.ForeColor = vbRed
End If

Cependant lorsque l'utilisateur clique sur l'objet lié, un message de confirmation apparaît précisant que l'ouverture de fichier peut éventuellement endommager l'ordinateur.

Ce message me dérange, comment m'en débarrasser?

[Tofalu]

En remplaçant l'hyperlien par un label dont le clic lancera la méhode ShellExecute (cf la FAQ Access)