Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel xlDialog

xlDialog

6 réponses
Avatar
Setec Essarts
Bonjour,
existe-il sous Excel VBA la possibilité d'utiliser la fenêtre de connexion,
puis de lancer automatiquement "Se connecter". Au lieu d'avoir à le faire
manuellement quand j'écris un lien dans une cellule. Peut-être connaissez
vous une macro compélmentaire à télécharger? Pour XL2002.

Merci

Vincent
Signaler un problème avec ce contenu

6 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
papou
Bonjour Vicent
Sur le site de Frédéric Sigonneau :
http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/ConnectionOnOff.txt
Cordialement
Pascal

"Setec Essarts" a écrit dans le message de
news:40025ac2$0$1174$
Bonjour,
existe-il sous Excel VBA la possibilité d'utiliser la fenêtre de
connexion,

puis de lancer automatiquement "Se connecter". Au lieu d'avoir à le faire
manuellement quand j'écris un lien dans une cellule. Peut-être connaissez
vous une macro compélmentaire à télécharger? Pour XL2002.

Merci

Vincent





Avatar
Setec Essarts
Merci, mais ça marche pas très bien, qu'est ce que Attribute VB_name?
De plus, il ne me fait pas Autodial. est-ce une méthode?

Merci pour toute aide

Vincent

"papou" <nspm> a écrit dans le message de news:
O$xqI$
Bonjour Vicent
Sur le site de Frédéric Sigonneau :
http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/ConnectionOnOff.txt
Cordialement
Pascal

"Setec Essarts" a écrit dans le message de
news:40025ac2$0$1174$
Bonjour,
existe-il sous Excel VBA la possibilité d'utiliser la fenêtre de
connexion,

puis de lancer automatiquement "Se connecter". Au lieu d'avoir à le
faire


manuellement quand j'écris un lien dans une cellule. Peut-être
connaissez


vous une macro compélmentaire à télécharger? Pour XL2002.

Merci

Vincent









Avatar
papou
Re
Merci, mais ça marche pas très bien,
Je n'ai jamais testé mais je suis étonné !

qu'est ce que Attribute VB_name?
Tu peux supprimer cette ligne du code

De plus, il ne me fait pas Autodial. est-ce une méthode?
Je ne peux pas te répondre je n'ai pas moyen de tester là où je me trouve,

mais je pense que si tu patientes un peu (ou beaucoup) quelqu'un va venir
t'aider :-)

Cordialement
Pascal


"Setec Essarts" a écrit dans le message de
news:400271a5$0$28694$
Merci, mais ça marche pas très bien, qu'est ce que Attribute VB_name?
De plus, il ne me fait pas Autodial. est-ce une méthode?

Merci pour toute aide

Vincent

"papou" <nspm> a écrit dans le message de news:
O$xqI$
Bonjour Vicent
Sur le site de Frédéric Sigonneau :

http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/ConnectionOnOff.txt


Cordialement
Pascal

"Setec Essarts" a écrit dans le message de
news:40025ac2$0$1174$
Bonjour,
existe-il sous Excel VBA la possibilité d'utiliser la fenêtre de
connexion,

puis de lancer automatiquement "Se connecter". Au lieu d'avoir à le
faire


manuellement quand j'écris un lien dans une cellule. Peut-être
connaissez


vous une macro compélmentaire à télécharger? Pour XL2002.

Merci

Vincent













Avatar
Michel Pierron
Bonjour Setec Essarts;
Tu peux vérifier facilement si la connexion est effective:
If InternetAutodial(1, 0) Then MsgBox "Vous êtes connecté !",64
ou bien encore:
If InternetAutodial(2, 0) Then MsgBox "Vous êtes connecté !",64
MP

"Setec Essarts" a écrit dans le message de
news:400271a5$0$28694$
Merci, mais ça marche pas très bien, qu'est ce que Attribute VB_name?
De plus, il ne me fait pas Autodial. est-ce une méthode?

Merci pour toute aide

Vincent

"papou" <nspm> a écrit dans le message de news:
O$xqI$
Bonjour Vicent
Sur le site de Frédéric Sigonneau :

http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/ConnectionOnOff.txt


Cordialement
Pascal

"Setec Essarts" a écrit dans le message de
news:40025ac2$0$1174$
Bonjour,
existe-il sous Excel VBA la possibilité d'utiliser la fenêtre de
connexion,

puis de lancer automatiquement "Se connecter". Au lieu d'avoir à le
faire


manuellement quand j'écris un lien dans une cellule. Peut-être
connaissez


vous une macro compélmentaire à télécharger? Pour XL2002.

Merci

Vincent













Avatar
Setec Essarts
Le problème est qu'il m'ouvre la fenêtre de connexion mais ne lance pas
automatiquement la connexion.
Où puis-je avoir la liste des fonctions Wininet par ailleurs?

Merci


"Michel Pierron" a écrit dans le message de news:
#
Bonjour Setec Essarts;
Tu peux vérifier facilement si la connexion est effective:
If InternetAutodial(1, 0) Then MsgBox "Vous êtes connecté !",64
ou bien encore:
If InternetAutodial(2, 0) Then MsgBox "Vous êtes connecté !",64
MP

"Setec Essarts" a écrit dans le message de
news:400271a5$0$28694$
Merci, mais ça marche pas très bien, qu'est ce que Attribute VB_name?
De plus, il ne me fait pas Autodial. est-ce une méthode?

Merci pour toute aide

Vincent

"papou" <nspm> a écrit dans le message de news:
O$xqI$
Bonjour Vicent
Sur le site de Frédéric Sigonneau :

http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/ConnectionOnOff.txt


Cordialement
Pascal

"Setec Essarts" a écrit dans le message de
news:40025ac2$0$1174$
Bonjour,
existe-il sous Excel VBA la possibilité d'utiliser la fenêtre de
connexion,

puis de lancer automatiquement "Se connecter". Au lieu d'avoir à le
faire


manuellement quand j'écris un lien dans une cellule. Peut-être
connaissez


vous une macro compélmentaire à télécharger? Pour XL2002.

Merci

Vincent

















Avatar
Frédéric Sigonneau
Bonsoir,

Je suppose que tu n'as pas configuré ta connexion en cochant la case 'Connexion
automatique' de la boite de dialogue 'Connexion d'accès à distance'. Dans ce cas
esssaye :

'================ Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long

Sub Connecte()
SendKeys "~"
InternetAutodial 1, 0
End Sub
'===============
Si par contre cette case est cochée par défaut, ça doit marcher sans le
SendKeys.
(Testé ce soir avec Excel 2002 et Windows XP).

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Le problème est qu'il m'ouvre la fenêtre de connexion mais ne lance pas
automatiquement la connexion.
Où puis-je avoir la liste des fonctions Wininet par ailleurs?

Merci

"Michel Pierron" a écrit dans le message de news:
#
Bonjour Setec Essarts;
Tu peux vérifier facilement si la connexion est effective:
If InternetAutodial(1, 0) Then MsgBox "Vous êtes connecté !",64
ou bien encore:
If InternetAutodial(2, 0) Then MsgBox "Vous êtes connecté !",64
MP

"Setec Essarts" a écrit dans le message de
news:400271a5$0$28694$
Merci, mais ça marche pas très bien, qu'est ce que Attribute VB_name?
De plus, il ne me fait pas Autodial. est-ce une méthode?

Merci pour toute aide

Vincent

"papou" <nspm> a écrit dans le message de news:
O$xqI$
Bonjour Vicent
Sur le site de Frédéric Sigonneau :

http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/ConnectionOnOff.txt


Cordialement
Pascal

"Setec Essarts" a écrit dans le message de
news:40025ac2$0$1174$
Bonjour,
existe-il sous Excel VBA la possibilité d'utiliser la fenêtre de
connexion,

puis de lancer automatiquement "Se connecter". Au lieu d'avoir à le
faire


manuellement quand j'écris un lien dans une cellule. Peut-être
connaissez


vous une macro compélmentaire à télécharger? Pour XL2002.

Merci

Vincent