Liens + bouton

[tf1]

Bonjour

Je souhaite associer le bouton au liens Google
voir exemple sur le fichier attacher

merci d'avance

 

[tf1]

Re : Liens + bouton

est 'il possible?

 

[tf1]

Re : Liens + bouton

j'ai fait cette macro

mais elle reste toujours sur le non du dernier site ouvert

Sub VIA()
Range("B13").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Qui a une idée

 

[tf1]

Re : Liens + bouton

qui pourrait m'aider

merci

 

[job75]

Re : Liens + bouton

Bonjour tf1,

Pas bien compliqué, affectez cette macro au bouton :

Sub Lien()
ThisWorkbook.FollowHyperlink "http://www.google.fr", , True
End Sub

A+

 

[job75]

Re : Liens + bouton

Re,

Bien entendu vous pouvez mettre toutes les adresses dans des cellules.

Alors affectez cette macro au bouton :

Sub Lien()
On Error Resume Next
ThisWorkbook.FollowHyperlink ActiveCell, , True
End Sub

Il suffit de sélectionner une cellule puis de cliquer sur le bouton.

A+

 

[tf1]

Re : Liens + bouton

merci
mais je souhaite que le non du site soit en A1 et que la macro part chercher le nom du site etant dans A1

 

[job75]

Re : Liens + bouton

Re,

Vous plaisantez, ou faut tout vous mâcher ?

Sub Lien()
On Error Resume Next
ThisWorkbook.FollowHyperlink [A1], , True
End Sub

A+

 

[tf1]

Re : Liens + bouton

Bizare sa marche pas ????

 

[tf1]

Re : Liens + bouton

qui aurait une reponsse

merci

 

[tf1]

Re : Liens + bouton

SA marche pas ............

 

[job75]

Re : Liens + bouton

Re,

La macro du post #8 suppose qu'en A1 il y ait l'adresse complète (et exacte) http://etc...

Le post #8 et le post #5 suivent le même principe...

A+

 

[tf1]

Re : Liens + bouton

oui mais sa marche pas desole

 

[job75]

Re : Liens + bouton

Re,

Je ne peux rien faire de plus pour vous car toutes ces macros fonctionnent sur Excel 2003 et 2010.

A+

 

[tf1]

Re : Liens + bouton

et sur 2007 alors sa marche pas?