Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

camarchepas

XLDnaute Barbatruc

• 10 Juillet 2014

• #2

Re : Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

Bonsoir Nicaise ,

J'ai testé ceci qui fonctionne

Code:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:=TextBox1.Text
End Sub

 

Vote positif 0 Vote négatif

N

nicaise.b

Guest

• 10 Juillet 2014

• #3

Re : Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

J'ai trouvé moi même la réponse à ma question

le code est tout simplement

ActiveWorkbook.FollowHyperlink Address:=TextBox1.Text

ça fonctionne très bien, qu'importe le fichier du lien (pdf, avi, mp4, txt...)

 

Vote positif 0 Vote négatif

N

nicaise.b

Guest

• 10 Juillet 2014

• #4

Re : Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

Merci pour Ta reponse camarchepas

En fait Tu as trouvé le même code que moi.

Désolé nos postes ce sont croisés.

En fait ça marchait très bien avec cette ligne, mais plus maintenant.
Je ne sais pas pourquoi ???

J'ai une erreur 2147221014 impossible d'ouvrir le fichier spécifié

J'ai fermé Excel et qu'importe le lien mis dans le textbox1 l'erreur s'affiche.

As tu une idée de ce qui pourrait causer cette anomalie?

Je vais redémarrer l'ordi pour voir si l'erreur se poursuit.

Merci de m'aider

Amicalement

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Juillet 2014

• #5

Re : Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

ben , c'est peut être le contexte utilisé , mois ça marche toujours
je t'envoie mon fichier

 

Pièces jointes

• userform lien.xlsm

  17.4 KB · Affichages: 65

Vote positif 0 Vote négatif

N

nicaise.b

Guest

• 11 Juillet 2014

• #6

Re : Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

camarchepas

désolé de te dire ça mais même ton fichier ça marche pas (lol)

je ne comprends pas

cette capture d'écran m'interpèle

le lien de l'avis de sécurité est different de l'userform 😕😕

le problème doit venir de là

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 11 Juillet 2014

• #7

Re : Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

lol,
regardes , ton chemin , n'est pas valide , y'a une aborescence lecteur c puis une lecteur G, y'a comme un binse , non

 

Vote positif 0 Vote négatif

N

nicaise.b

Guest

• 11 Juillet 2014

• #8

Re : Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

oui effectivement y a un problème et c'est pas simple. 🙁

le lien du textbox de l'userform est bon mais sur l'avis de sécurité il fait référence au lien du classeur excel + lien du fichier souhaité

je t'assure qu'au début cela fonctionnait très bien 😕😕

il doit manqué un focus (ou un truc du genre) ou faut compléter le code pour être sûr qu'il va direct au lien indiqué et ne parte pas du répertoire du classeur.

tu vois pas comment résoudre ce problème ?

Il faudrait du renfort pour triompher de ce truc

En tout cas merci pour ton aide c'est sympa

 

Vote positif 0 Vote négatif

N

nicaise.b

Guest

• 11 Juillet 2014

• #9

Re : Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

J'ai remarqué quelque chose

quand je copie colle le lien dans le texbox1 = ça ne marche pas

quand j'écris le même lien dans le texbox1 = ça marche

😕😕
c'est fou ! non ?

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 12 Juillet 2014

• #10

Re : Aide code vba svp sur : ActiveWorkbook.FollowHyperlink Address:="TextBox1.value"

Bonjour ,
effectivement en faisant n'importe quoi et copiant des liens incorrects j'arrive à la même chose que toi .

Remplace le code de l'userform par celui ci, il est plus sécurisé et efface le texte aprés utilisation

Code:

Private Sub CommandButton1_Click()
If InStr(Dir(TextBox1.Text), ".") = 0 Or Dir(TextBox1.Text) = "" Then MsgBox "chemin incorrect " & TextBox1.Text: Exit Sub
ActiveWorkbook.FollowHyperlink Address:=TextBox1.Text
TextBox1.Text = ""
End Sub

 

Vote positif 0 Vote négatif