..../... ?? je vois pas, mais comme je sais pas ce qu'il faut trouver :o)
-- Pierre CFI Microsoft MVP Access
Pour mieux utiliser microsoft.public.fr.access... http://users.skynet.be/mpfa/charte.htm
"Clément Marcotte" a écrit dans le message de news: #
Lis la "nouvelle" de 15 h 57
"Pierre Fauconnier" a écrit dans le message de news:
Salut ,
Avec ton lien, je tombe sur boursorama.com ... C'est quoi le problème ??
Cordialement,
Pierre
"" a écrit dans le message de news:
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
Jean-François Aubert
un petit tour de passe-passe de notre ami
voici son astuce:
Set ie = CreateObject("internetexplorer.application") ie.Navigate ("http://www.boursorama.com") Do While ie.Busy wscript.sleep (100) Loop wscript.sleep (1000) Set dct = ie.Document num=0 for each anc in dct.getElementsByTagName("A") if instr(anc.href,"infos/actualites/detail_")>0 then num=num+1 if num=2 then anc.innertext="La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à une longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft" anc.href="javascript:alert(""accès réservé aux abonnés !"")" exit for end if end if next ie.Visible = True wscript.quit
set dct=nothing set ie=nothing set anc=nothing
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"" a écrit dans le message de news:
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
un petit tour de passe-passe de notre ami j@c
voici son astuce:
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://www.boursorama.com")
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (1000)
Set dct = ie.Document
num=0
for each anc in dct.getElementsByTagName("A")
if instr(anc.href,"infos/actualites/detail_")>0 then
num=num+1
if num=2 then
anc.innertext="La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à
une longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft"
anc.href="javascript:alert(""accès réservé aux abonnés !"")"
exit for
end if
end if
next
ie.Visible = True
wscript.quit
set dct=nothing
set ie=nothing
set anc=nothing
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de
news:O0ZBxJVdDHA.2332@TK2MSFTNGP11.phx.gbl...
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article
http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
Set ie = CreateObject("internetexplorer.application") ie.Navigate ("http://www.boursorama.com") Do While ie.Busy wscript.sleep (100) Loop wscript.sleep (1000) Set dct = ie.Document num=0 for each anc in dct.getElementsByTagName("A") if instr(anc.href,"infos/actualites/detail_")>0 then num=num+1 if num=2 then anc.innertext="La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à une longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft" anc.href="javascript:alert(""accès réservé aux abonnés !"")" exit for end if end if next ie.Visible = True wscript.quit
set dct=nothing set ie=nothing set anc=nothing
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"" a écrit dans le message de news:
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
Pierre CFI
bon, je recommence la manip, moi je vois rien du tout
-- Pierre CFI Microsoft MVP Access
Pour mieux utiliser microsoft.public.fr.access... http://users.skynet.be/mpfa/charte.htm
"Jean-François Aubert" <à a écrit dans le message de news:
un petit tour de passe-passe de notre ami
voici son astuce:
Set ie = CreateObject("internetexplorer.application") ie.Navigate ("http://www.boursorama.com") Do While ie.Busy wscript.sleep (100) Loop wscript.sleep (1000) Set dct = ie.Document num=0 for each anc in dct.getElementsByTagName("A") if instr(anc.href,"infos/actualites/detail_")>0 then num=num+1 if num=2 then anc.innertext="La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à
une longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft"
anc.href="javascript:alert(""accès réservé aux abonnés !"")" exit for end if end if next ie.Visible = True wscript.quit
set dct=nothing set ie=nothing set anc=nothing
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"" a écrit dans le message de news:
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
bon, je recommence la manip, moi je vois rien du tout
--
Pierre CFI
Microsoft MVP Access
Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news: 3f5b5c30_4@news.bluewin.ch...
un petit tour de passe-passe de notre ami j@c
voici son astuce:
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://www.boursorama.com")
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (1000)
Set dct = ie.Document
num=0
for each anc in dct.getElementsByTagName("A")
if instr(anc.href,"infos/actualites/detail_")>0 then
num=num+1
if num=2 then
anc.innertext="La nomination de Jean-Paul Sabatier au titre de Secrétaire
Général du MPFE met fin à
une longue période d'incertitude sur l'avenir du célèbre club parainé par
Microsoft"
anc.href="javascript:alert(""accès réservé aux abonnés !"")"
exit for
end if
end if
next
ie.Visible = True
wscript.quit
set dct=nothing
set ie=nothing
set anc=nothing
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de
news:O0ZBxJVdDHA.2332@TK2MSFTNGP11.phx.gbl...
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article
http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
bon, je recommence la manip, moi je vois rien du tout
-- Pierre CFI Microsoft MVP Access
Pour mieux utiliser microsoft.public.fr.access... http://users.skynet.be/mpfa/charte.htm
"Jean-François Aubert" <à a écrit dans le message de news:
un petit tour de passe-passe de notre ami
voici son astuce:
Set ie = CreateObject("internetexplorer.application") ie.Navigate ("http://www.boursorama.com") Do While ie.Busy wscript.sleep (100) Loop wscript.sleep (1000) Set dct = ie.Document num=0 for each anc in dct.getElementsByTagName("A") if instr(anc.href,"infos/actualites/detail_")>0 then num=num+1 if num=2 then anc.innertext="La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à
une longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft"
anc.href="javascript:alert(""accès réservé aux abonnés !"")" exit for end if end if next ie.Visible = True wscript.quit
set dct=nothing set ie=nothing set anc=nothing
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"" a écrit dans le message de news:
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
j
des explications sur http://jacxl.free.fr/cours_xl/cours_xl_jac.html#modif_web c'est du VBS, mais ça marche pareil en VBA
"Jean-François Aubert" <à a écrit dans le message de news:
un petit tour de passe-passe de notre ami
voici son astuce:
Set ie = CreateObject("internetexplorer.application") ie.Navigate ("http://www.boursorama.com") Do While ie.Busy wscript.sleep (100) Loop wscript.sleep (1000) Set dct = ie.Document num=0 for each anc in dct.getElementsByTagName("A") if instr(anc.href,"infos/actualites/detail_")>0 then num=num+1 if num=2 then anc.innertext="La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à
une longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft"
anc.href="javascript:alert(""accès réservé aux abonnés !"")" exit for end if end if next ie.Visible = True wscript.quit
set dct=nothing set ie=nothing set anc=nothing
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"" a écrit dans le message de news:
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
des explications sur
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#modif_web
c'est du VBS, mais ça marche pareil en VBA
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news: 3f5b5c30_4@news.bluewin.ch...
un petit tour de passe-passe de notre ami j@c
voici son astuce:
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://www.boursorama.com")
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (1000)
Set dct = ie.Document
num=0
for each anc in dct.getElementsByTagName("A")
if instr(anc.href,"infos/actualites/detail_")>0 then
num=num+1
if num=2 then
anc.innertext="La nomination de Jean-Paul Sabatier au titre de Secrétaire
Général du MPFE met fin à
une longue période d'incertitude sur l'avenir du célèbre club parainé par
Microsoft"
anc.href="javascript:alert(""accès réservé aux abonnés !"")"
exit for
end if
end if
next
ie.Visible = True
wscript.quit
set dct=nothing
set ie=nothing
set anc=nothing
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de
news:O0ZBxJVdDHA.2332@TK2MSFTNGP11.phx.gbl...
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article
http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
des explications sur http://jacxl.free.fr/cours_xl/cours_xl_jac.html#modif_web c'est du VBS, mais ça marche pareil en VBA
"Jean-François Aubert" <à a écrit dans le message de news:
un petit tour de passe-passe de notre ami
voici son astuce:
Set ie = CreateObject("internetexplorer.application") ie.Navigate ("http://www.boursorama.com") Do While ie.Busy wscript.sleep (100) Loop wscript.sleep (1000) Set dct = ie.Document num=0 for each anc in dct.getElementsByTagName("A") if instr(anc.href,"infos/actualites/detail_")>0 then num=num+1 if num=2 then anc.innertext="La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à
une longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft"
anc.href="javascript:alert(""accès réservé aux abonnés !"")" exit for end if end if next ie.Visible = True wscript.quit
set dct=nothing set ie=nothing set anc=nothing
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"" a écrit dans le message de news:
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
Philippe.R
Bonsoir la compagnie, Il était temps que MS se réveille !
18:13
Des Mercedes bientôt fabriquées en Chine - Presse 18:09 La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à une longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft 16:19 UE/Déficits - Rome va proposer d'assouplir le Pacte de Stabilité 16:00 La Lufthansa va faire une offre sur Swiss Air Lines/Presse
Bravo ;o))) -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"" a écrit dans le message de news:
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
Bonsoir la compagnie,
Il était temps que MS se réveille !
18:13
Des Mercedes bientôt fabriquées en Chine - Presse
18:09 La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à une
longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft
16:19 UE/Déficits - Rome va proposer d'assouplir le Pacte de Stabilité
16:00 La Lufthansa va faire une offre sur Swiss Air Lines/Presse
Bonsoir la compagnie, Il était temps que MS se réveille !
18:13
Des Mercedes bientôt fabriquées en Chine - Presse 18:09 La nomination de Jean-Paul Sabatier au titre de Secrétaire Général du MPFE met fin à une longue période d'incertitude sur l'avenir du célèbre club parainé par Microsoft 16:19 UE/Déficits - Rome va proposer d'assouplir le Pacte de Stabilité 16:00 La Lufthansa va faire une offre sur Swiss Air Lines/Presse
Bravo ;o))) -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"" a écrit dans le message de news:
la bonne presse parle de nous !
ouvrez le fichier et lisez le troisième article http://jacxl.free.fr/cours_xl/vbs/dernieres_nouvelles.vbs
Monique Brunel
:-D
Tout bon, Mais comment ce fait-il que nous ayons des heures différentes ? (19:10 pour moi)
-- Amicalement, Monique (la Wallonne) http://users.skynet.be/osga/ , pour les amateurs d'athlétisme
wrote:
des explications sur http://jacxl.free.fr/cours_xl/cours_xl_jac.html#modif_web c'est du VBS, mais ça marche pareil en VBA
:-D
Tout bon, J@C
Mais comment ce fait-il que nous ayons des heures différentes ? (19:10 pour
moi)
--
Amicalement,
Monique (la Wallonne)
http://users.skynet.be/osga/ , pour les amateurs d'athlétisme
j@c wrote:
des explications sur
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#modif_web
c'est du VBS, mais ça marche pareil en VBA
Après la x e manip, je vois enfin, 19h10 pour moi aussi, du Québec
Salutations,
Danielle "Monique Brunel" a écrit dans le message de news:
:-D
Tout bon, Mais comment ce fait-il que nous ayons des heures différentes ? (19:10 pour
moi)
-- Amicalement, Monique (la Wallonne) http://users.skynet.be/osga/ , pour les amateurs d'athlétisme
wrote:
des explications sur http://jacxl.free.fr/cours_xl/cours_xl_jac.html#modif_web c'est du VBS, mais ça marche pareil en VBA
j
la macro se contente de remplacer le texte du troisième lien de la page, sur le vrai site de Boursorama, qui continue à être mis à jour ; à chaque fois qu'un nouvel article est publié sur Boursorama, le troisième lien ne correspond plus au même article et donc plus à la même heure
"Monique Brunel" a écrit dans le message de news:
:-D
Tout bon, Mais comment ce fait-il que nous ayons des heures différentes ? (19:10 pour
moi)
-- Amicalement, Monique (la Wallonne) http://users.skynet.be/osga/ , pour les amateurs d'athlétisme
wrote:
des explications sur http://jacxl.free.fr/cours_xl/cours_xl_jac.html#modif_web c'est du VBS, mais ça marche pareil en VBA
la macro se contente de remplacer le texte du troisième lien de la page, sur
le vrai site de Boursorama, qui continue à être mis à jour ;
à chaque fois qu'un nouvel article est publié sur Boursorama, le troisième
lien ne correspond plus au même article et donc plus à la même heure
"Monique Brunel" <monique.brunel@skynet.be> a écrit dans le message de news:
OQkgdpWdDHA.2436@TK2MSFTNGP09.phx.gbl...
:-D
Tout bon, J@C
Mais comment ce fait-il que nous ayons des heures différentes ? (19:10
pour
moi)
--
Amicalement,
Monique (la Wallonne)
http://users.skynet.be/osga/ , pour les amateurs d'athlétisme
j@c wrote:
des explications sur
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#modif_web
c'est du VBS, mais ça marche pareil en VBA
la macro se contente de remplacer le texte du troisième lien de la page, sur le vrai site de Boursorama, qui continue à être mis à jour ; à chaque fois qu'un nouvel article est publié sur Boursorama, le troisième lien ne correspond plus au même article et donc plus à la même heure
"Monique Brunel" a écrit dans le message de news:
:-D
Tout bon, Mais comment ce fait-il que nous ayons des heures différentes ? (19:10 pour
moi)
-- Amicalement, Monique (la Wallonne) http://users.skynet.be/osga/ , pour les amateurs d'athlétisme
wrote:
des explications sur http://jacxl.free.fr/cours_xl/cours_xl_jac.html#modif_web c'est du VBS, mais ça marche pareil en VBA
