ouvrir fichier à partir de textbox

Version imprimable

bonsoir,

j'ai une erreur sur ce code, pouvez vous m'aider svp,
enfaite c'est depuis que j'ai mis la variable textbox5.value dans le chemin d'accès que ca ne marche plus, je comprends pas pourquoi ???

Code:

1
2
3
4
5
6
7
8
Private Sub textBox5_dblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
   'Text = "D:\Documents\h.gharsalli\Desktop\" & TextBox5.Value & ".pdf"
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
             "D:\Documents\h.gharsalli\Desktop\" & TextBox5.Value & ".pdf", TextToDisplay:=Selection
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Unload Me
End Sub

27/07/2016, 07h09
Matthieu76

Je ne connais pas ce langage mais tu n'aurais pas besoin de caractères d’échappements pour tes '\' ?
27/07/2016, 08h04
Jipété

Salut,

Citation:

Envoyé par houssem1807

j'ai une erreur sur ce code, pouvez-vous m'aider svp,

Non, la boule de cristal pour les divinations étant en panne, il nous est impossible de savoir ce qui se cache sous "j'ai une erreur" : quelle erreur ? :roll:

Citation:

Envoyé par houssem1807

en fait c'est depuis que j'ai mis la variable textbox5.value dans le chemin d'accès que ça ne marche plus, je comprends pas pourquoi ???

Ça ne marche pas/plus n'est pas un message d'erreur valide/valable, combien de fois faudra-t-il le répéter ?

En attendant plus de précisions (le temps qu'on perd sur ces forums, c'est terrible...), que contient textbox5.value ?
27/07/2016, 08h35
houssem1807
Bonjour,

vous avez entierement raison, dsl.
alors j'ai un erreur d'execution 5 : argument ou appel de procédure incorrect.

ligne de code qui bug :
Code:

1 2 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "C:\Users\Houssem.Gharsalli\Desktop\" & TextBox5.Value & ".xls", TextToDisplay:=Selection
textbox5.value contient un texte (string)
27/07/2016, 08h46
Jipété

Citation:

Envoyé par houssem1807

textbox5.value contient un texte (string)

Oui, ça on s'en doutait sinon ça ne compilerait pas. Ça ne nous avance pas... C'est quoi, la valeur du texte ?

Ou, dit autrement, que renvoie

Code:

MsgBox "C:\Users\Houssem.Gharsalli\Desktop\" & TextBox5.Value & ".xls"

?

Salut, à adapter au contexte

Code:

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub Tst()
Dim sText As String
    sText = "Essai"
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
                               Address:="C:\Faq\Faq VBA\Exemples\PDF\" & sText & ".pdf", _
                               TextToDisplay:=sText
End Sub