remplissage lien hypertexte

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2011

• #2

Re : remplissage lien hypertexte

Bonjour,

J'ai donc besoin que l'adresse tappée dans le textbox par l'utilisateur soit "cliquable" après validation du formulaire.

Cliquez pour agrandir...

si par formulaire tu entends userform, et pour que le lien se résolve après un click sur un bouton, regarde le code ci-dessous si il peut t'aider, l'adresse dans le "textbox" doit bien sur être valide :

Code:

Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink TextBox1.Value
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

W

woofette

Guest

• 11 Juillet 2011

• #3

Re : remplissage lien hypertexte

Oui j'entends bien un userform, J'ai inséré votre ligne de code dans le code qui est effectué lorsque l'utilisateur clique sur le bouton "valider" du formulaire (remplissage du tableau avec les valeurs des textbox)

Mais cela ne fonctionne pas.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2011

• #4

Re : remplissage lien hypertexte

Re,

Mais cela ne fonctionne pas.

Cliquez pour agrandir...

cela veut dire quoi ? message d'erreur ou pas le résultat attendu... chez moi fonctionne très bien, une adresse valide de page internet dans la "textbox"....

 

Vote positif 0 Vote négatif

W

woofette

Guest

• 11 Juillet 2011

• #5

Re : remplissage lien hypertexte

J'obtiens un message d'erreur et l'outil de débuggage s'ouvre directement.

En fait je ne vois pas trop comment insérer ton code dans mon module..

 

Vote positif 0 Vote négatif

W

woofette

Guest

• 11 Juillet 2011

• #6

Re : remplissage lien hypertexte

En fait comme j'ai mis ton code au click sur le textbox ça m'affiche un message d'erreur dès la première lettre écrite en précisant que le lien n'est pas valide il me semble. Ca parait logique mais comment y remédier ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2011

• #7

Re : remplissage lien hypertexte

Re,

peut être mettre le code sur l'événement "exit" du textbox....

 

Vote positif 0 Vote négatif

W

woofette

Guest

• 11 Juillet 2011

• #8

Re : remplissage lien hypertexte

J'obtiens le message d'erreur : nom du fichier ou de la classe introuvable..

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2011

• #9

Re : remplissage lien hypertexte

Re,

dans le module de l'usf, nom du textbox à adapter :

Code:

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "" Then ThisWorkbook.FollowHyperlink TextBox1.Value
End Sub

 

Vote positif 0 Vote négatif

W

woofette

Guest

• 11 Juillet 2011

• #10

Re : remplissage lien hypertexte

Toujours un problème de classe.. Je pense que c'est à cause du "thisworkbook"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2011

• #11

Re : remplissage lien hypertexte

Re,

"thisworkbook" représente le classeur dans lequel est exécuté le code, si autre classeur, il faut le préciser :

Code:

Workbooks("nomclasseur.xls")

 

Vote positif 0 Vote négatif

W

woofette

Guest

• 11 Juillet 2011

• #12

Re : remplissage lien hypertexte

Non il s'agit bien du bon classeur, je ne vois pas d'où l'erreur peut venir alors...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2011

• #13

Re : remplissage lien hypertexte

Re,

tu as modifié partout le nom du textbox ????

 

Vote positif 0 Vote négatif

W

woofette

Guest

• 11 Juillet 2011

• #14

Re : remplissage lien hypertexte

J'ai bien mis Textbox6 partout et toujours ce problème de classe lorsque je valide la macro

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2011

• #15

Re : remplissage lien hypertexte

Re,

mets un tout petit fichier en pièce jointe représentant uniquement le problème posé....

 

Vote positif 0 Vote négatif