Pilotage excel

Résolu
adjena Messages postés 41 Date d'inscription vendredi 7 mai 2004 Statut Membre Dernière intervention 4 juin 2007 - 24 févr. 2006 à 08:54
adjena Messages postés 41 Date d'inscription vendredi 7 mai 2004 Statut Membre Dernière intervention 4 juin 2007 - 24 févr. 2006 à 12:14
Depuis delphi j'aimerais formater une cellule et y mettre un lien hyper texte.
Le probleme c'est que je n'arrive pas à trouver la bonne syntax.
Ci dessous ce que j'essais d'écrire et qui provoque une erreur systématique :
XlApOle.ActiveSheet.Range['A1:A1'].Hyperlinks.add.address:='toto@wanadoo.fr'.
La syntax n'est pas bonne je sais mais quelqu'unpourrais-il m'aider.
l'avantage sera que d'un simple clic sur la cellule l'utilisateur se retrouvera dans sa messagerie, avec comme destinataire le nom contenu dans la cellule.

Merci chers delphinotes.

3 réponses

adjena Messages postés 41 Date d'inscription vendredi 7 mai 2004 Statut Membre Dernière intervention 4 juin 2007
24 févr. 2006 à 12:14
En creusant on a trouvé la solution pour ceux que çà interesse.

XlApOle.ActiveSheet.Range['B48'].Select;
XlApOle.Selection:='toto@wanadoo.fr';
XlApOle.ActiveSheet.Hyperlinks.Add(XlApOle.Selection,'mailto:toto@wanadoo.fr');

Merci pour votre aide.
3
yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017
24 févr. 2006 à 10:36
La syntaxe dépend de la version excel utilisé.

fait une macro sous excel, la visualiser sous excel.
Reprendre alors en partie la syntaxe.

i := XL.range['A1:A1'].Hyperlinks(1).count

si lien hypertexte, i<>0 , alors la lecture est possible

s := XL.range['A1:A1'].Hyperlinks(1).adress

Quelle version de excel et de delphi as-tu ?

yvessimon
0
adjena Messages postés 41 Date d'inscription vendredi 7 mai 2004 Statut Membre Dernière intervention 4 juin 2007
24 févr. 2006 à 10:44
Excel 97 et delphi 7
Le coup de la macro sous excel c'est ce que j'ai fait voila ce que j'obtien mais
que je n'arrive pas à interpréter sous delphi
Code récupéré dans la macro sous excel

Range("A8").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"[mailto:toto@wanadoo.fr mailto:toto@wanadoo.fr]", TextToDisplay:="[mailto:toto@wanadoo.fr toto@wanadoo.fr]"
0
Rejoignez-nous