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

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #21312341
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
LSteph
Le #21312421
Bonjour,

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

On 4 mar, 11:26, 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
Olivier
Le #21313071
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
Olivier
Le #21313191
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
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



LSteph
Le #21313621
déma

On 4 mar, 13:52, 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 >> 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 -
LSteph
Le #21313611
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
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 >> 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 -
Olivier
Le #21313951
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
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
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 -



LSteph
Le #21314121
Re,

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

--
LSteph

On 4 mar, 15:42, 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 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 >> 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 >>>> 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 -
Daniel.C
Le #21314101
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
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
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 -
Olivier
Le #21314091
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
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
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
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 -



Publicité
Poster une réponse
Anonyme