Lien Excel 97

[Baz]

bonjour à tous,

Alors au boulot je suis sur excel 97, et je doit faire une base de donnée, celle base doit contenir tout les mails et doivent etre actifs, donc a chaque ligne je dois faire "Ctrl + K" (pour insertion lien) et tapé mailto: puis l'adresse.


J'ai voulu faire une macro qui ouvre insertion lien et qui marke mailto:

mais je n'y arrive pas car la fenetre se referme systematiquement donc il faut refaire la manip pour rerentré dedans etc ...

y a t'il une solution ?

Merci

 

[@+Thierry]

Salut Baz

Je travaille en ce moment sur ce genre de truc pour mailto: mais en VBA...
(voir ce fichier USF_XLD_ContactsV2.02.zip (si ça passe sous XL97)

Essaie aussi cette de macro :
Sub Email()
Dim Link As String
Dim Dest As String

Dest = ActiveCell.Value

Link = "mailto:" & Dest & "?Subject=Bonjour "

ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
End Sub

Tu remarqueras le NewWindow:=True...

En espérant que cela puisse t'aider... and Welcome to XLD Baz

@+Thierry

 

[Baz]

Sur 97 apparement ça bug,

erreur excecution 1004,

Bon tant pis et bien merci quand meme !!

il n'y a pa d'autre soluce ?

 

[Baz]

et sinon pour l'autre solution c pa ce que je recherche,

car après avoir fait tout les lien "VALIDE" (par mailto:xxx@xxx.fr) je fais un publipostage vers la messagerie electronique, et cela fonctionne que si g fait bien en mail.


Le seul truc reel que je recherche est evité de mettre ce mailto, (pour qu'il comme le 2000)


Merci quand c cool !