Pilotage excel [Résolu]

adjena 41 Messages postés vendredi 7 mai 2004Date d'inscription 4 juin 2007 Dernière intervention - 24 févr. 2006 à 08:54 - Dernière réponse : adjena 41 Messages postés vendredi 7 mai 2004Date d'inscription 4 juin 2007 Dernière intervention
- 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.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
adjena 41 Messages postés vendredi 7 mai 2004Date d'inscription 4 juin 2007 Dernière intervention - 24 févr. 2006 à 12:14
3
Merci
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.

Merci adjena 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Commenter la réponse de adjena
yvessimon 647 Messages postés mardi 22 avril 2003Date d'inscription 9 janvier 2017 Dernière intervention - 24 févr. 2006 à 10:36
0
Merci
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
Commenter la réponse de yvessimon
adjena 41 Messages postés vendredi 7 mai 2004Date d'inscription 4 juin 2007 Dernière intervention - 24 févr. 2006 à 10:44
0
Merci
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]"
Commenter la réponse de adjena

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.