Discussion :

[houssem1807]

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 :

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

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

[Matthieu76]

Je ne connais pas ce langage mais tu n'aurais pas besoin de caractères d’échappements pour tes '\' ?

[Jipété]

Salut,

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 ?

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 ?

[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 :

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

1
2
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
            "C:\Users\Houssem.Gharsalli\Desktop\" & TextBox5.Value & ".xls", TextToDisplay:=Selection

textbox5.value contient un texte (string)

[Jipété]

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 :

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

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

?

[kiki29]

Salut, à adapter au contexte

Code :

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

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