Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Comment faire fonctionner un lien internet avec un CommandButton dans un UserForme

Comment faire fonctionner un lien internet avec un CommandButton dans un UserForme

10 réponses
Avatar
Olivier
Bonjour à tous,
Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
ouvrir une page internet.
J'ai essayé

Private Sub internet_Click()
Worksheets("Démarrage").Range("C10").Hyperlink.Follow NewWindow:=True
End Sub

mais toujours le même message... erreur 438
Y aurait il quelqu'un pour me renseigner.
Merci d'avance.

Olivier
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Olivier,

Set ie = CreateObject("InternetExplorer.application")
ie.navigate "" & Worksheets("Démarrage").Range("C10")
ie.Visible = True

isabelle

Le 2010-03-04 05:26, Olivier a écrit :
Bonjour à tous,
Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
ouvrir une page internet.
J'ai essayé

Private Sub internet_Click()
Worksheets("Démarrage").Range("C10").Hyperlink.Follow NewWindow:=True
End Sub

mais toujours le même message... erreur 438
Y aurait il quelqu'un pour me renseigner.
Merci d'avance.

Olivier
Avatar
LSteph
Bonjour,

With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink .[c10]
End with
--
lSteph

On 4 mar, 11:26, Olivier wrote:
Bonjour tous,
Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
ouvrir une page internet.
J'ai essay

Private Sub internet_Click()
Worksheets("D marrage").Range("C10").Hyperlink.Follow NewWindow:=True
End Sub

mais toujours le m me message... erreur 438
Y aurait il quelqu'un pour me renseigner.
Merci d'avance.

Olivier
Avatar
Olivier
Merci Isabelle ça fonctionne.
Bonne journée


Le 04/03/2010 12:06, isabelle a écrit :
bonjour Olivier,

Set ie = CreateObject("InternetExplorer.application")
ie.navigate "" & Worksheets("Démarrage").Range("C10")
ie.Visible = True

isabelle

Le 2010-03-04 05:26, Olivier a écrit :
Bonjour à tous,
Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
ouvrir une page internet.
J'ai essayé

Private Sub internet_Click()
Worksheets("Démarrage").Range("C10").Hyperlink.Follow NewWindow:=True
End Sub

mais toujours le même message... erreur 438
Y aurait il quelqu'un pour me renseigner.
Merci d'avance.

Olivier
Avatar
Olivier
Désolé lSteph ta macro ne fonctionne pas.

Je l'ai écrite comme suit :
Private Sub internet_Click()
With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub

Mais toujours un message d'erreur.
Merci quand même

Olivier


Le 04/03/2010 12:29, LSteph a écrit :
Bonjour,

With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink .[c10]
End with
--
lSteph

On 4 mar, 11:26, Olivier wrote:
Bonjour tous,
Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
ouvrir une page internet.
J'ai essay

Private Sub internet_Click()
Worksheets("D marrage").Range("C10").Hyperlink.Follow NewWindow:=True
End Sub

mais toujours le m me message... erreur 438
Y aurait il quelqu'un pour me renseigner.
Merci d'avance.

Olivier



Avatar
LSteph
déma

On 4 mar, 13:52, Olivier wrote:
D sol lSteph ta macro ne fonctionne pas.

Je l'ai crite comme suit :
Private Sub internet_Click()
With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub

Mais toujours un message d'erreur.
Merci quand m me

Olivier

Le 04/03/2010 12:29, LSteph a crit :



> Bonjour,

> With Worksheets("Demarrage")
> ActiveWorkbook.FollowHyperlink .[c10]
> End with
> --
> lSteph

> On 4 mar, 11:26, Olivier  wrote:
>> Bonjour tous,
>> Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
>> ouvrir une page internet.
>> J'ai essay

>> Private Sub internet_Click()
>> Worksheets("D marrage").Range("C10").Hyperlink.Follow NewWindow:=Tru e
>> End Sub

>> mais toujours le m me message... erreur 438
>> Y aurait il quelqu'un pour me renseigner.
>> Merci d'avance.

>> Olivier- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
Avatar
LSteph
Re,
cela fonctionne nickel chez moi ;-)

Vérifie le nom de la feuille Worksheets("Demarrage")

Démarrage ou démarrage ou DEMARRAGE

.

Nota:au lieu du Name With Worksheets("Démarrage")
privilégier le CodeName With Feuil4


;-)



On 4 mar, 13:52, Olivier wrote:
D sol lSteph ta macro ne fonctionne pas.

Je l'ai crite comme suit :
Private Sub internet_Click()
With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub

Mais toujours un message d'erreur.
Merci quand m me

Olivier

Le 04/03/2010 12:29, LSteph a crit :



> Bonjour,

> With Worksheets("Demarrage")
> ActiveWorkbook.FollowHyperlink .[c10]
> End with
> --
> lSteph

> On 4 mar, 11:26, Olivier  wrote:
>> Bonjour tous,
>> Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
>> ouvrir une page internet.
>> J'ai essay

>> Private Sub internet_Click()
>> Worksheets("D marrage").Range("C10").Hyperlink.Follow NewWindow:=Tru e
>> End Sub

>> mais toujours le m me message... erreur 438
>> Y aurait il quelqu'un pour me renseigner.
>> Merci d'avance.

>> Olivier- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
Avatar
Olivier
Pas de chance, ça ne marche toujours pas

Voila mon message d'erreur :
"Erreur de compilation
Argument non facultatif"

Private Sub internet_Click()
With Feuil1 ' ou With Worksheets("Démarrage") le nom de ma page est bon
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub


Pour info j'ai la version 2003 d'Excel
:-(

Le 04/03/2010 14:43, LSteph a écrit :
Re,
cela fonctionne nickel chez moi ;-)

Vérifie le nom de la feuille Worksheets("Demarrage")

Démarrage ou démarrage ou DEMARRAGE

.

Nota:au lieu du Name With Worksheets("Démarrage")
privilégier le CodeName With Feuil4


;-)



On 4 mar, 13:52, Olivier wrote:
D sol lSteph ta macro ne fonctionne pas.

Je l'ai crite comme suit :
Private Sub internet_Click()
With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub

Mais toujours un message d'erreur.
Merci quand m me

Olivier

Le 04/03/2010 12:29, LSteph a crit :



Bonjour,



With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink .[c10]
End with
--
lSteph



On 4 mar, 11:26, Olivier wrote:
Bonjour tous,
Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
ouvrir une page internet.
J'ai essay





Private Sub internet_Click()
Worksheets("D marrage").Range("C10").Hyperlink.Follow NewWindow:=True
End Sub





mais toujours le m me message... erreur 438
Y aurait il quelqu'un pour me renseigner.
Merci d'avance.





Olivier- Masquer le texte des messages précédents -





- Afficher le texte des messages précédents -



Avatar
LSteph
Re,

En adaptant à ton code tu as zappé l'espace entre
ActiveWorkbook.followhyperlink et .[c10]

--
LSteph

On 4 mar, 15:42, Olivier wrote:
Pas de chance, a ne marche toujours pas

Voila mon message d'erreur :
"Erreur de compilation
Argument non facultatif"

Private Sub internet_Click()
With Feuil1 ' ou With Worksheets("D marrage")  le nom de ma page est bo n
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub

  Pour info j'ai la version 2003 d'Excel
:-(

Le 04/03/2010 14:43, LSteph a crit :



> Re,
> cela fonctionne nickel chez moi  ;-)

> V rifie le nom de la feuille Worksheets("Demarrage")

> D marrage ou d marrage ou DEMARRAGE

> .

> Nota:au lieu du Name With  Worksheets("D marrage")
> privil gier le CodeName    With Feuil4

> ;-)

> On 4 mar, 13:52, Olivier  wrote:
>> D sol lSteph ta macro ne fonctionne pas.

>> Je l'ai crite comme suit :
>> Private Sub internet_Click()
>> With Worksheets("Demarrage")
>> ActiveWorkbook.FollowHyperlink.[c10]
>> End With
>> End Sub

>> Mais toujours un message d'erreur.
>> Merci quand m me

>> Olivier

>> Le 04/03/2010 12:29, LSteph a crit :

>>> Bonjour,

>>> With Worksheets("Demarrage")
>>> ActiveWorkbook.FollowHyperlink .[c10]
>>> End with
>>> --
>>> lSteph

>>> On 4 mar, 11:26, Olivier    wrote:
>>>> Bonjour tous,
>>>> Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
>>>> ouvrir une page internet.
>>>> J'ai essay

>>>> Private Sub internet_Click()
>>>> Worksheets("D marrage").Range("C10").Hyperlink.Follow NewWindow:=T rue
>>>> End Sub

>>>> mais toujours le m me message... erreur 438
>>>> Y aurait il quelqu'un pour me renseigner.
>>>> Merci d'avance.

>>>> Olivier- Masquer le texte des messages pr c dents -

>> - Afficher le texte des messages pr c dents -- Masquer le texte des me ssages précédents -

- Afficher le texte des messages précédents -
Avatar
Daniel.C
Bonjour.
ActiveWorkbook.FollowHyperlink .[c10]
Daniel

Pas de chance, ça ne marche toujours pas

Voila mon message d'erreur :
"Erreur de compilation
Argument non facultatif"

Private Sub internet_Click()
With Feuil1 ' ou With Worksheets("Démarrage") le nom de ma page est bon
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub


Pour info j'ai la version 2003 d'Excel
:-(

Le 04/03/2010 14:43, LSteph a écrit :
Re,
cela fonctionne nickel chez moi ;-)

Vérifie le nom de la feuille Worksheets("Demarrage")

Démarrage ou démarrage ou DEMARRAGE

.

Nota:au lieu du Name With Worksheets("Démarrage")
privilégier le CodeName With Feuil4


;-)



On 4 mar, 13:52, Olivier wrote:
D sol lSteph ta macro ne fonctionne pas.

Je l'ai crite comme suit :
Private Sub internet_Click()
With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub

Mais toujours un message d'erreur.
Merci quand m me

Olivier

Le 04/03/2010 12:29, LSteph a crit :



Bonjour,



With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink .[c10]
End with
--
lSteph



On 4 mar, 11:26, Olivier wrote:
Bonjour tous,
Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
ouvrir une page internet.
J'ai essay





Private Sub internet_Click()
Worksheets("D marrage").Range("C10").Hyperlink.Follow NewWindow:=True
End Sub





mais toujours le m me message... erreur 438
Y aurait il quelqu'un pour me renseigner.
Merci d'avance.





Olivier- Masquer le texte des messages précédents -





- Afficher le texte des messages précédents -
Avatar
Olivier
Merci LSteph

Ça marche maintenant.

:-)




Le 04/03/2010 15:47, LSteph a écrit :
Re,

En adaptant à ton code tu as zappé l'espace entre
ActiveWorkbook.followhyperlink et .[c10]

--
LSteph

On 4 mar, 15:42, Olivier wrote:
Pas de chance, a ne marche toujours pas

Voila mon message d'erreur :
"Erreur de compilation
Argument non facultatif"

Private Sub internet_Click()
With Feuil1 ' ou With Worksheets("D marrage") le nom de ma page est bon
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub

Pour info j'ai la version 2003 d'Excel
:-(

Le 04/03/2010 14:43, LSteph a crit :



Re,
cela fonctionne nickel chez moi ;-)



V rifie le nom de la feuille Worksheets("Demarrage")



D marrage ou d marrage ou DEMARRAGE



.



Nota:au lieu du Name With Worksheets("D marrage")
privil gier le CodeName With Feuil4



;-)



On 4 mar, 13:52, Olivier wrote:
D sol lSteph ta macro ne fonctionne pas.





Je l'ai crite comme suit :
Private Sub internet_Click()
With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink.[c10]
End With
End Sub





Mais toujours un message d'erreur.
Merci quand m me





Olivier





Le 04/03/2010 12:29, LSteph a crit :





Bonjour,







With Worksheets("Demarrage")
ActiveWorkbook.FollowHyperlink .[c10]
End with
--
lSteph







On 4 mar, 11:26, Olivier wrote:
Bonjour tous,
Je voudrais, en cliquant sur un bouton de commande dans un UserForm,
ouvrir une page internet.
J'ai essay









Private Sub internet_Click()
Worksheets("D marrage").Range("C10").Hyperlink.Follow NewWindow:=True
End Sub









mais toujours le m me message... erreur 438
Y aurait il quelqu'un pour me renseigner.
Merci d'avance.









Olivier- Masquer le texte des messages pr c dents -









- Afficher le texte des messages pr c dents -- Masquer le texte des messages précédents -





- Afficher le texte des messages précédents -