Lien hpertext

[Stefan_matlos]

Bonjour a tous et a toutes,

Voila mon petit souci,

J ai un formulaire , nommé suivi devis, renseigné par des textbox et qui alimente une sheet nommé suivi devis, je voudrais que la valeur de la textbox1 soit également un lien hypertext suivant le chemin ou le devis a ete enregistre.
un bouton de commande me permets avant de renseigner la feuille suivi devis d'enregistrer le devis sous c:\devis\"txtbox1.value"

Par exmple j enregistre mon devis 2001232 suivant ce chemin(ci dessus) et lorsque je valide le formulaire suivi devis, je souhaiterais qu automitiquemet dans la feuille suivi devi, la cellule ayant la valeur 2001232 ouvre par lien hypertext le fichier c:\devis\2001232 et ainsi de suite pour tout les enregistrements.
par avance merfci

 

[MichelXld]

Re : Lien hpertext

bonjour

Tu peux utiliser cette syntaxe

Private Sub CommandButton1_Click()
    'Crée un lien hypertexte dans la cellule A1 de la
    'feuille "suivi devis".
    With Worksheets("suivi devis")
        .Hyperlinks.Add Anchor:=.Range("A1"), Address:="C:\devis\" & TextBox1 & ".xls"
        .Range("A1").Hyperlinks(1).TextToDisplay = TextBox1
    End With
End Sub

Bonne journée
MichelXld