Discussion :

[bvsud]

Bonjour à tous

En me référant à ceci : https://lfe.developpez.com/PasExcel/

Je n'arrive pas à savoir comment :
- insérer des lignes dans une feuille
- Sélectionner une plage dans une feuille
- Coller cette sélection dans une autre feuille.

Tout fonctionne chez moi à partir de cette FAQ (instancier Excel, ouvrir et fermer un classeur, lire une cellule, etc.) MAIS pas ce qui n'est pas décrit... Donc, ci-dessus.

Est-ce impossible avec ce type de syntaxe et d'objets COM ?

J'ai les TMS, mais je préfèrerais apprendre.
Merci

[SergioMaster]

Bonjour,

je n'utilise plus OLE depuis des années, nécessité d'avoir Excel installé sur le poste oblige.

- insérer des lignes dans une feuille

à ma souvenance

Code :

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

Excel.ActiveSheet.Rows[10].Insert;

- Sélectionner une plage dans une feuille

Là, depuis que j'utilise CData Excel je fait de simples requêtes.
De plus il me semble que les nouvelles versions de Delphi propose une version "améliorée" CoExcelApplication.Create

Code :

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

1
2
3
4
5
6
7
8
  Range :  ExcelRange;
 
..
  Range := Sheet.Range['A1', 'B2'];
  Range.RowHeight := 10;
.. 
// mais aussi 
 Range := Sheet.Range['d3:e4'];

- Coller cette sélection dans une autre feuille.

certainement quelque chose comme

Code :

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

RangeSheet2.Value := RangeSheet2.Value;

Je suis totalement rouillé sur ce genre de sujet

[bvsud]

OK. Merci
Je teste ça et donne le retour.

[bvsud]

Marche pas

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
24
25
 
Procedure Lire_Cellule_Bis;
Var
  Excel : variant;
  Classeur : variant;
  TabSheet : AnsiString;
  vXLWorkbook : variant;
 
begin
 
// Instancier
  Excel := CreateOleObject('Excel.Application');
  Excel.Visible := False;
 
// Ouvrir classeur
 
  Classeur := Excel.Workbooks;
  vXLWorkbook := vXLWorkbooks.Open(Nom_Cplt_Classeur_Patients);
 
 
// Fermer Excel
  Excel.Quit;
  Excel := unassigned;
 
end;

Delphi XE7 : il n'y a pas un composant, pour manipuler Excel ? Le TMS qui fait ça exige un fichier de configuration, mais... lequel, sous quel format ? Les Jedi ? Bizarre qu'il n'y ait pas de composant "naturel" pour ça, sous Delphi... Ou alors, je ne le vois pas. Et je n'ai pas les CDATA.


Il n'y a que deux techniques qui me manquent :
1- sélectionner une plage
2- insérer des lignes vers le bas.

L'unité Excel2000 a l'ai de faire ça, mais... où est le tuto ?

[blonde]

Marche pas

C'est à dire, pourrais-tu être un peu plus précis ? On dirait un client qui appelle...




Tiens, un exemple que je viens de rédiger qui te montre une façon d'insérer une ligne

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
24
25
26
27
28
procedure TForm1.MafonctionExcel;
Var
  Classeur: Variant;
  TabSheet: AnsiString;
  vXLWorkbook, vXLWorkbooks: Variant;
  Sheet: Variant;
  vCell: Variant;
begin
 
  FMyExcel := CreateOleObject('Excel.Application');
  FMyExcel.Visible := true;
 
  Classeur := FMyExcel.Workbooks;
 
  vXLWorkbooks := FMyExcel.Workbooks;
  vXLWorkbook := vXLWorkbooks.Add;
 
  Sheet := vXLWorkbook.ActiveSheet;
  vCell := Sheet.Range['A1'];
  vCell.Value := 'ligne 1';
 
  vCell := Sheet.Range['A2'];
  vCell.Value := 'ligne 2';
 
  // insérer la ligne
  vCell.EntireRow.Insert;
 
end;

[bvsud]

Pardon pour le ton qui a pu te froisser. Je ne voulais surtout pas... Je m'excuse.
Je vais tester ton code et te donne le retour.

C'est moi que l'on n'arrête pas d'appeler ce matin pour des prospections. Ca flingue les nerfs, ce machin !!! C'est même illégal !