Discussion :

[gregcat]

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

[MFDev]

Salut,
Tu peux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gregcat]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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....

[gregcat]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveCell.Hyperlinks.Item.Range

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

[gregcat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MFDev]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gregcat]

ok c'est bon, merci Patrice pour ton aide