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

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

Bonjour,

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

On 4 mar, 11:26, Olivier <nospam.olivier....@gmail.com> 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

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

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<nospam.olivier....@gmail.com> 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

déma

On 4 mar, 13:52, Olivier <nospam.olivier....@gmail.com> 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<nospam.olivier....@gmail.com>  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 -

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 <nospam.olivier....@gmail.com> 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<nospam.olivier....@gmail.com>  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 -

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<nospam.olivier....@gmail.com> 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<nospam.olivier....@gmail.com> 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 -

Re,

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

--
LSteph

On 4 mar, 15:42, Olivier <nospam.olivier....@gmail.com> 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<nospam.olivier....@gmail.com>  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<nospam.olivier....@gmail.com>    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 -

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<nospam.olivier....@gmail.com> 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<nospam.olivier....@gmail.com> 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 -

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<nospam.olivier....@gmail.com> 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<nospam.olivier....@gmail.com> 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<nospam.olivier....@gmail.com> 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 -