Macro lien hypertexte

Bonjour !

'rt47' nous a écrit ...

J'ai un fichier Word XP de type .doc qui contient 2 lignes, la 1ère avec un
numéro à 11 chiffres et la 2ème avec un lien hypertexte à lancer avec
Ctrl+Click.
Je voudrais faire une macro, si possible à exécution automatique au
lancement du fichier qui ferait les opérations suivantes :
Sélectionner le chiffre, le copier dans le presse-papier et lancer l'appel
au site Internet par le lien hypertexte et ensuite si possible fermer Word.
J'arrive bien avec le clavier à sélectionner mais après ça ne marche plus.
Quelqu'un de sympa aurait-il une idée de macro de 4 ou 5 lignes qui ferait
tout ça ?

Nous on veut bien macroter (on adore ça ;-) )
Mais si une macro automatique au lancement ouvre
une page internet, place un code dans le presse-papiers
et referme Word ... à quoi vont servir les deux lignes
(le code et le lien) ? à quoi va même servir Word ???
Un script avec IE semblerait moins superfétatoire
d'autant que les anti-macroteurs (la ligue des AMIS)
ne ratent jamais une occasion de nous vilipender
:-D )))

Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES

Merci de me répondre mais j'avais déjà un fichier IE .htm qui faisait ça
mais depuis que j'ai installé SP2, Windows XP considère que ce script est
dangereux et il faut faire 2 opérations pour le débloquer et pendant ce
temps le lancement auto d'appel à un site Web est passé et l'opération
foire. SP2 est trop récent et personne n'a pu me dire comment éviter ça.
Cela marche manuellement avec Word mais à la main et si j'ai réussi à faire
une macro qui met le numéro en surbrillance, je n'arrive pas le copier dans
le presse-papier et à lancer automatiquement. C'est surtout ça qui me
manque.
J'ai déjà fait des macros internes à Word, mais là pour appeler un site je
n'y arrive pas.
Si tu adores macroter ;-), tu devrais bien arriver à me trouver ça.
Je te mets la page Word, elle est on ne peut plus simple :
01234567891

http://www.ca-pca.fr/

Je met le numéro en surbrillance, Ctrl C puis je clique sur le lien en
appuyant sur Ctrl et ça marche au poil. Je demande simplement une macro qui
me fasse ça automatiquement avec en prime si c'est possible lancement de la
macro auto à l'ouverture et fermeture de Word dont je n'ai plus besoin à la
fin.

Merci si tu peux me donner un peu de ton temps.
@+
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
uuMGrFuhEHA.2544@TK2MSFTNGP10.phx.gbl...

Bonjour !

'rt47' nous a écrit ...

J'ai un fichier Word XP de type .doc qui contient 2 lignes, la 1ère avec
un numéro à 11 chiffres et la 2ème avec un lien hypertexte à lancer avec
Ctrl+Click.
Je voudrais faire une macro, si possible à exécution automatique au
lancement du fichier qui ferait les opérations suivantes :
Sélectionner le chiffre, le copier dans le presse-papier et lancer
l'appel au site Internet par le lien hypertexte et ensuite si possible
fermer Word.
J'arrive bien avec le clavier à sélectionner mais après ça ne marche
plus.
Quelqu'un de sympa aurait-il une idée de macro de 4 ou 5 lignes qui
ferait tout ça ?

Nous on veut bien macroter (on adore ça ;-) )
Mais si une macro automatique au lancement ouvre
une page internet, place un code dans le presse-papiers
et referme Word ... à quoi vont servir les deux lignes
(le code et le lien) ? à quoi va même servir Word ???
Un script avec IE semblerait moins superfétatoire
d'autant que les anti-macroteurs (la ligue des AMIS)
ne ratent jamais une occasion de nous vilipender
:-D )))

Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES

Bonjour !

'rt47' nous a écrit ...

Si tu adores macroter ;-), tu devrais bien arriver à me trouver ça.
Je te mets la page Word, elle est on ne peut plus simple :
01234567891
http://www.ca-pca.fr/

Bon :-) Alors cette macro se lance toute seule,
place 01234567891 dans le presse-papiers
lance le navigateur sur http://www.ca-pca.fr/
et referme Word :

Public Sub AutoOpen()
Dim MonCompte As New DataObject
MonCompte.SetText ("01234567891")
MonCompte.PutInClipboard
ActiveDocument.FollowHyperlink _
Address:="http://www.ca-pca.fr/"
Application.Quit
End Sub

NB: Pour utiliser DataObject il faut que MS-Forms soit référencée,
il suffit pour ça d'insérer une UserForm bidon dans le projet.

Lancer l'usine Word pour ça : qu'est-ce que je vais prendre
de la part de mes AMIS !!!!!!!!!!

Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES

... parfois c'est plus fort que lui :
faut qu'il joue de sa cabrette ... :-D ))))

"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
u7wT2o3hEHA.636@TK2MSFTNGP12.phx.gbl...

Public Sub AutoOpen()
Dim MonCompte As New DataObject
MonCompte.SetText ("01234567891")
MonCompte.PutInClipboard
ActiveDocument.FollowHyperlink _
Address:="http://www.ca-pca.fr/"
Application.Quit
End Sub

NB: Pour utiliser DataObject il faut que MS-Forms soit référencée,
il suffit pour ça d'insérer une UserForm bidon dans le projet.

Merci pour la macro mais comme tu l'as dit elle coince sur DataObject.

Excuse mon inexpérience mais comment on fait pour référencer MS-Forms et
qu'est ce que c'est que ce projet où il faudrait insérer une UserForm bidon
et qu'est ce que c'est qu'une UserForm ? Je n'ai rien trouvé d'utilisable
dans l'aide de Word.
Excuse-moi encore d'abuser de ta patience.
@+

Rebonjour,
En remplaçant les 3 1ères lignes de ta macro par ce que j'ai obtenu dans
Word en créant une nouvelle macro Sélectionner et copier, ça marche au poil.
Cela marche tellement bien que je n'ai plus accès à mon fichier .doc pour y
faire des modifs car la page Web est lancée automatiquement.
Comment on fait pour arrêter l'exécution d'une macro AutoOpen ?
@+

"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
u7wT2o3hEHA.636@TK2MSFTNGP12.phx.gbl...

Bonjour !

'rt47' nous a écrit ...

Si tu adores macroter ;-), tu devrais bien arriver à me trouver ça.
Je te mets la page Word, elle est on ne peut plus simple :
01234567891
http://www.ca-pca.fr/

Bon :-) Alors cette macro se lance toute seule,
place 01234567891 dans le presse-papiers
lance le navigateur sur http://www.ca-pca.fr/
et referme Word :

Public Sub AutoOpen()
Dim MonCompte As New DataObject
MonCompte.SetText ("01234567891")
MonCompte.PutInClipboard
ActiveDocument.FollowHyperlink _
Address:="http://www.ca-pca.fr/"
Application.Quit
End Sub

NB: Pour utiliser DataObject il faut que MS-Forms soit référencée,
il suffit pour ça d'insérer une UserForm bidon dans le projet.

Lancer l'usine Word pour ça : qu'est-ce que je vais prendre
de la part de mes AMIS !!!!!!!!!!

Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES

... parfois c'est plus fort que lui :
faut qu'il joue de sa cabrette ... :-D ))))

Bonjour !

'rt47' nous a écrit ...

Comment on fait pour arrêter l'exécution d'une macro AutoOpen ?

On appuie sur la touche MAJ au lancement !

Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES

Un grand merci pour ton aide. Voici la macro que j'utilise maintenant :

Public Sub AutoOpen()
'
' Macro enregistrée le 21/08/2004 par RT
'
'Dim MonCompte As New DataObject
'MonCompte.SetText ("01234567891")
'MonCompte.PutInClipboard
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:, Extend:=wdExtend
Selection.Copy
ActiveDocument.FollowHyperlink _
Address:="http://www.ca-pca.fr/"
Application.Quit
End Sub

Tout marche au poil. Sur ma page, il n'y a plus que le numéro à 11 chiffres.
Sincères salutations.
R.T.

"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
%23y0xpJ6hEHA.632@TK2MSFTNGP12.phx.gbl...

Bonjour !

'rt47' nous a écrit ...

Comment on fait pour arrêter l'exécution d'une macro AutoOpen ?

On appuie sur la touche MAJ au lancement !

Anacoluthe
« Un gentleman, c'est quelqu'un qui sait jouer
de la cornemuse et qui n'en joue pas. »
- Pierre DESPROGES