lien hypertexte dans un USF

[GADENSEB]

Bonjour le Forum,

Je dois faire apparaitre, et activer, un lien hypertexte stocké dans un autre onglet

- l'usf s'appelle : "GESTIONPOSTE"
- la BDD : "BASE EMPLOI"
- Le lien hypertexte est dans la colonne "AN" DE LA BDD
- sur l'USF, le bouton "ANNONCE" sert à lancer le lien hypertexte

Je coince sur le code suivant ......

GESTIONPOSTE.ANNONCE = Application.VLookup(Cells(Target.Row, "I").Hyperlink.Follow NewWindow:=True, Worksheets("BASE EMPLOI").Range("A1:BB1000"), 40, False)
 
'Sheets("Feuil1").Range("A1").Hyperlink.Follow NewWindow:=True

QQn aurait une idée ?

Bonne aprem

Seb

 

[GADENSEB]

Re : lien hypertexte dans un USF

Un petit up dans le forum

j'ai avancé ...
Dans l'USF GESTIONPOSTE et le bouton ANNONCE, là où doit être actif le lien hypertexte, créer le code suivant

Private Sub ANNONCE_Click()

ActiveWorkbook.FollowHyperlink Address:=Application.VLookup(CODEBASE.Value, Worksheets("BASE EMPLOI").Range("A1:BB1000").Value, 40, False), NewWindow:=True


End Sub

J'ai une erreur d'éxécution 13


QQn aurait une idée pour résoudre l'erreur ?


Bonne journée

Seb

 

[job75]

Re : lien hypertexte dans un USF

Bonjour GADENSEB, le forum,

Si vous vous baladez sur le web vous verrez qu'activer un lien hypertexte en VBA est souvent problématique.

Vous pouvez essayer cette méthode :

Sub test()
Dim c As Range
Set c = [A1] 'à adapter
On Error Resume Next
c.Hyperlinks(1).Follow True
Application.Goto Range(c.Hyperlinks(1).SubAddress)
End Sub

A+

 

[GADENSEB]

Re : lien hypertexte dans un USF

Bonjour job75, le forum,

C'est clair que je galère pour activer le lien hypertexte.

Est-ce dans cette partie que je dois adapter ma recherche Vlookup
Pour rappel :
- A l'initialisation de mon USF "GESTIONPOSTE", je recherche la valeur "CODEBASE" (valeur unique) dans la colonne A de la sheet "BASE EMPLOI" et je cherche à renvoyer le lien hypertexte de la colonne "AN" , ligne correspondant à la recherche....
- et du coup, activer ce lien hypertexte dans le bouton "ANNONCE" de mon USF "GESTIONPOSTE"
.... pfiou ... compliqué....

Set c = [A1] 'à adapter

Vois-tu comment attaquer la chose ?

Merci
Bonne journée

Seb

 

[job75]

Re : lien hypertexte dans un USF

Re,

Essayez ceci :

Sub test()
Dim c As Range
On Error Resume Next
With Sheets("BASE EMPLOI")
  Set c = .Cells(Application.Match(CODEBASE, .[A:A], 0), "AN")
End With
c.Hyperlinks(1).Follow True
Application.Goto Range(c.Hyperlinks(1).SubAddress)
End Sub

Mais il faut bien sûr qu'il y ait effectivement des liens hypertextes dans la colonne AN !!!

A+

 

[GADENSEB]

Re : lien hypertexte dans un USF

Tout simplement Merveilleux
au poil
Ce code est magique.
Un grand merci à toi

Bonne journée
Seb