récupérer le chemin hypertext lié à une cellule Excel ?

Version imprimable

06/03/2006, 18h01
gregcat

récupérer le chemin hypertext lié à une cellule Excel ?

Bonjour

Je travail avec delphi 7 et je souhaiterais récupérer le lien hypertext d'une cellule Excel via Ole

La liste des méthodes et propiérés d' "oleapplication" apparait de facon aléatoire...
et je ne sais pas quelle est la propiété à utiliser pour recupérer cette valeur?

OleApplication.Cells[y,x]. ?

merci
06/03/2006, 18h25
MFDev
Salut,
Tu peux:
Code:

1 2 // référence en n° ligne et colonnes, pour une cellule valueVariant := XlsPage.Cells.Item[Line, Col].Value;
ou bien:
Code:

1 2 3 // référence classique Excel aRange := 'A1'; vCell := vWorksheet.Range[aRange];
Il existe des tutoriel et FAQ sur le sujet...
http://lfe.developpez.com/PasExcel/#L8
http://delphi.developpez.com/faq/?page=excelplages
Plus l'étude de quelques sources, facilement trouvables sur le net.
@+
Fabrice
07/03/2006, 09h51
gregcat

en fait j'utilise déjà ce code pour lire la valeur de la cellule

Code:

valueVariant := XlsPage.Cells.Item[Line, Col].Value;

mais je voudrais récupérer le chemin du lien hypertext qu'il y a associé à cette céllule....
07/03/2006, 10h21
gregcat

Citation:

Envoyé par gregcat

en fait j'utilise déjà ce code pour lire la valeur de la cellule

Code:

valueVariant := XlsPage.Cells.Item[Line, Col].Value;

mais je voudrais récupérer le chemin du lien hypertext qu'il y a associé à cette céllule....

dans VBA c'est une ligne de ce genre ..

Code:

ActiveCell.Hyperlinks.Item.Range

mais sous delphi je ne trouve pas :cry: :help: ... sinon je vais faire mon traitement en vba...

En bien j'ai fini par faire mon traitement en VBA et ca fonctionne

avec cette procédure je fais ressortir les liens hypertexte dans les cellules:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub hyperlinks()
 
Dim NumLig As Integer
Dim NumCol As Integer
Dim html As String
 
ActiveWorkbook.Activate
 
 
Range("Y1").Select
NumLig = ActiveCell.Row
NumCol = ActiveCell.Column
Do Until (ActiveCell.Value = "FIN")
 
    'traitement
     NumLig = NumLig + 1
     ActiveSheet.Cells(NumLig, NumCol).Select
 
     If ActiveCell.hyperlinks.Count > 0 Then ActiveCell.Value =     activeCell.hyperlinks.Item(1).Address
 
Loop
 
End Sub

Salut,
Bien sûr que cela marche aussi avec Delphi, il n'y a pas de raison !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
TForm1 = class(TForm)
  ...
    Button1: TButton;
    Edit1: TEdit;
    XlsApp: TExcelApplication;
  ...
 end;
...
procedure TForm1.Button1Click(Sender: TObject);
 var
  XlsWk: _workbook;
  XlsPage: _Worksheet;
  vValue: variant;
 begin
  XlsApp.Connect;
  XlsWk := XlsApp.Workbooks.Open('F:\Classeur1.XLS', False,False, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,				EmptyParam, EmptyParam, EmptyParam,EmptyParam,EmptyParam,0);
  XlsPage := XlsWk.Worksheets['Feuil1'] as _worksheet;
  XlsPage.Range['A2', 'A2'].Select;
  vValue := XlsPage.Cells.Hyperlinks.Item[1].Address;
  Edit1.Text := vValue;
  XlsApp.Disconnect;
 end;

Et voilà...
@+
Fabrice

15/03/2006, 10h48
gregcat

ok c'est bon, merci Patrice pour ton aide

:bravo: