Boite de dialogue Insérer lien hypertexte

Question

Bonjours à tous
Voila, j'ai un petit soucis. Je désire afficher la boîte de dialogue "Insérer un lien Hypertexte" lorsque je clic sur un bouton parcourir, présent dans un formulaire Access 2003.
Si quelqu'un pouvais m'aider,
Merci d'avance

kevinois2 · Answer

SLt à tous... J'ai le même problème que rhumanuss.. C serai sympa si kelkun pouvait nous donner l'astuce.. merci d'avance

acive · Answer

Bonjour,
J'ai testé ça sous excel, ça fonctionne, je pense que sous access ça devrait fonctionner aussi:


Dim Lien As String
Lien = InputBox("Tapez le lien", "Parcourir", "c:	emp\TonFichier.txt")
If Len(Lien) > 0 Then
Dim objLink As Hyperlink
Set objLink = ActiveSheet.Hyperlinks.Add(Range("A1"), Lien)
With objLink
    .SubAddress = "A1:C10"
    .Follow NewWindow:=True
End With
End If


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

kevinois2 · Answer

merci beaucoup Acive.. mias vu le temps que j'ai à disposition, je voudrais juste la commande pour ouvrir la boite de dialogue de création d'un lien hypertexte..

acive · Answer

Eh bien tu mets un CommonDialog sur ta feuille et puis:

CommonDialog1.ShowOpen
Dim objLink As Hyperlink
Set objLink = ActiveSheet.Hyperlinks.Add(Range("A1"), CommonDialog1.Filename)



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

kevinois2 · Answer

EN fait je ne reussi pas à mettre des commonDialog sur ma feuille.. Les fonctions supplémentaires ne marchent pas chez moi.. Est ce que tu pourrai monter cela sur une feuille et me l'expliquer?? merci

acive · Answer

Re:
Essaye ce fichier:
http://www.pixelvision.free.fr/Classeur1.xls


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Boite de dialogue Insérer lien hypertexte

6 réponses

Discussions similaires