Lien sur bouton

[Philippe68]

Bonjour le forum,

Comment accèder à une page web en cliquant sur un bouton ?
Ou
Quel code faut-il mettre à ce bouton ?

Merci d'avance

Windows 7
Excel 2010

 

[tototiti2008]

Re : Lien sur bouton

Bonjour Divers68,

Comme il s'agit d'une question Excel, tu aurais pu la poser sur le forum Excel : Forum Excel

Je te propose d'aller chercher dans l'aide VBA sur base du mot clé : FollowHyperlink, en choisissant "FollowHyperlink, méthode"

 

[dra72]

Re : Lien sur bouton

Bonjour,

Une suggestion:

Regarde la pièce jointe AccesWeb.xlsm

Bonne soirée.

 

[Philippe68]

Re : Lien sur bouton

Bonjour toto,

oui désolé, me suit aperçu trop tard que je me suis planté de forum.
si un modo passe par là, qu'il veuille bien le déplacer svp merci

 

[Philippe68]

Re : Lien sur bouton

Bonjour dra,

ça me donne un message d'erreur :
Erreur de compilation
Sub ou Fonction non définie

 

[dra72]

Re : Lien sur bouton

Bonjour à tous,

Je suis vraiment désolé mais je n'ai pas vérifié l'adresse WEB que j'ai mis dans ma macro.
Elle nous dirige vers un site peu recommandable. Ce n'était vraiment pas le but de la manoeuvre.
Milles excuses...

Voici un nouveau fichier:
Regarde la pièce jointe AccesWeb.xlsm
Il faut bien sûr rectifier l'adresse par celle désirée.

Divers68:
Tu as bien inséré cette ligne dans tes déclarations.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                            ByVal hwnd As Long, _
                            ByVal lpOperation As String, _
                            ByVal lpFile As String, _
                            ByVal lpParameters As String, _
                            ByVal lpDirectory As String, _
                            ByVal nShowCmd As Long _
                                                                              ) As Long

A+

 

[Philippe68]

Re : Lien sur bouton

oui c'est bien cette ligne et le message d'erreur met "Function" en surbrillance
j'ai essayé avec "Fonction" mais pareil, Erreur de compilation etc....

 

[dra72]

Re : Lien sur bouton

Tu essaies directement avec mon fichier ou tu a transposé le code sur un autre fichier.

Sinon, j'utilise Vista et Excel 2007, mais je pense pas que le problème vienne de là.

 

[tototiti2008]

Re : Lien sur bouton

Bonjour dra,
Re,

Si la version d'Excel 2010 utilisée par Divers68 est une version 64 bits, ça peut poser des problèmes pour toutes les déclarations de fonctions de dll
Sinon, tu as fait une recherche dans l'aide VBA sur FollowHyperlink ?

 

[Philippe68]

Re : Lien sur bouton

Re toto,

j'ai beau chercher l'endroit de l'aide VBA ici, je trouve pas 🙁
sinon, oui je suis sous excel 2010 et windows 7 en 64 bits

dra : j'ai fais les 2

 

[Philippe68]

Re : Lien sur bouton

Re à tous,

Bon j'avance de mon coté, j'ai trouvé une solution et j'ai mis ce code à mon bouton

Sub Bouton1_Clement()
ActiveWorkbook.FollowHyperlink Address:="http://www.monsite.fr"
End Sub

Maintenant, il me faut rajouter l'ouverture dans une nouvelle fenêtre avec _blank
et les dimensions de cette fenêtre 😕
je dois rajouter ça à quel endroit exactement ?

 

[Philippe68]

Re : Lien sur bouton

Re,

Pour l'ouverture dans une nouvelle fenêtre, que je rajoute ça :

NewWindow = True

ou pas, ça ouvre dans une nouvelle fenêtre.
maintenant que dois-je rajouter pour une dimension de fenêtre de 400 sur 200 ?

 

[Philippe68]

Re : Lien sur bouton

Bonjour dra,
Re,

Si la version d'Excel 2010 utilisée par Divers68 est une version 64 bits, ça peut poser des problèmes pour toutes les déclarations de fonctions de dll
Sinon, tu as fait une recherche dans l'aide VBA sur FollowHyperlink ?

Re toto, le forum

Je viens d'apprendre une astuce et je voudrais en faire profiter.
Donc pour éviter ce message d'erreur de compilation on rajoute PtrSafe après Declare etPtr après Long

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long _
) As LongPtr

Voilà

 

[dra72]

Re : Lien sur bouton

Bonjour Divers68,

Merci pour l'info, ça peut effectivement servir.

Bon Noël

 

[Philippe68]

Re : Lien sur bouton

Bonjour dra72, le forum,

de rien, pour une fois que je peux contribuer au forum lol