Discussion :

[Isa31]

Bonjour,

Je me demandais s'il était possible de trouver directement le numéro de la dernière ligne écrite dans un fichier Excel?


Merci d'avance pour votre aide.

Isa

[TicTacToe]

oui

je l'ai utilisé pour définir la zone imprimable de mes données générées.

Code :

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

WS.PageSetUp.PrintArea := WS.UsedRange[ lcid ].Address[ emptyParam, emptyParam, xlA1, emptyParam, emptyParam ];

Dans ce cas précis, Le UsedRange.Address renvoie sous forme "A1:B2"

Donc éventuellement se servir de la case 'BottomRight pour avoir le numéro de la derniere ligne.

Ou bien, j'ai pas cherché, regarder du coté de UserRange.xxxx

[Isa31]

Merci je vais essayer ...

[Isa31]

Heuu, je comprend pas comment ca marche.

Le UsedRange me fait une erreur :

Méthode 'UsedRange' non supportée par l'objet Automation.

[TicTacToe]

Pour être précis, mois j'ai exactement ceci:

Code :

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

1
2
3
4
5
6
7
8
9
 
var
WS : TExcelWorksheet; // composant de Delphi
 
à l'utilisation, ceci
WS.UsedRange[ lcid ].Address[ emptyParam, emptyParam, xlA1, emptyParam, emptyParam ];
 
me renvoie par exemple
'A1:F52'

est-ce que WS est du même type ?

[Isa31]

Moi j'ai "OleApplication : variant" que je défini comme suit :

Code :

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

OleApplication := CreateOleObject('Excel.Application');

[TicTacToe]

et le UsedRanged tu l'utilises comment, peut-tu poster ton code ?

[Isa31]

Ben j'ai juste écrit :

Code :

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

OleApplication.UsedRange[1].Address[ emptyParam, emptyParam, xlA1, emptyParam, emptyParam ]; ;

Mais bon ca ne doit pas être comme ca que cela fonctionne.

[TicTacToe]

Donc c'est normal, tu utilises UsedRange sur le Type Application.

Il faut l'utiliser sur le WorkSheet (sur ta feuille).

du style (je n'ai pas la syntaxe exacte sous la main car je n'utilise pas mes var. Excel comme variant)

Code :

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

OleApplication.WorkBook[ x].ActiveWorkSheet.UsedRange ....

La syntaxe c'est surement pas ca, mais du style...

[Isa31]

Bon je pense que j'en suis pas très loin mais j'ai toujours une erreur : 'Nombre de paramètres non valide'

mon code est :

Code :

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

OleApplication.ActiveWorkBook.ActiveSheet.UsedRange[1].Address(xlA1);

[TicTacToe]

Essaye de suivre la syntaxe:

Code :

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

UsedRange[ lcid ].Address[ emptyParam, emptyParam, xlA1, emptyParam, emptyParam ];

avec 1 pour lcid s'il vaut 1 pour toi.

[Isa31]

Au fait c'est quoi lcid???

Sinon ben ca ne change rien... J'ai toujours le même message.

[TicTacToe]

je ne sais pas exactement pour lcid, un identificateur. j'ai pas creusé la question, pour ma part je le récupère lorsque je me connecte à Excel et j'utilise toujours ce 'lcid' récupéré.

pour la syntaxe, tu fais donc bien:

Code :

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

1
2
3
4
5
6
7
 
var
  SResultat: string;
begin
...
SResultat := OleApplication.ActiveWorkBook.ActiveSheet.UsedRange[1].Address[ emptyParam, emptyParam, xlA1, emptyParam, emptyParam ];
...

??
Et tu as un msg d'erreur lors de l'execution ?
(Attention, il faut des crochets pour Address et non des parenthèses...)

Sinon, là je ne sais pas pourquoi ca ne fonctionne pas chez toi...

[Isa31]

J'ai bien tout noté comme tu l'as indiqué.

Je ne vois vraiment pas d'ou peut venir le problème...

[Frank]

tu peux aussi faire

Code :

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

         iDuBout:=XlApp.Worksheetfunction.counta(XlApp.range['H1'].EntireColumn);

iDuBout est un integer.
je compte le nombre de lignes sur la colonne H
J'ai au préalable crée un objet automation.

[Isa31]

Merci beaucoup, ca marche et c'est plus facile.

Un grand merci a vous deux pour votre aide!!

[TicTacToe]

Vu que ca marche chez moi, la seule différence c'est que tu utilises des variants.

Essaye de décomposer l'instruction en castant les types

Code :

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

1
2
3
4
5
6
7
8
9
var
  MonClasseur: _workbook;
  MaFeuille: _WorkSheet;
 
begin
  MonClasseur := OleApllication.ActiveWorkBook;
  MaFeuille := ActiveWorkBook.ActiveWorkSheet;
  MaFeuille.UsedRange............
end

et vue que c'est des erreurs à l'exec, peut être mets des ShowMessage() intermédiaire, pour voir si c'est bien la ligne en question qui plante

Bon courage !

EDIT:
Trop tard

[Isa31]

C'était bien la ligne qui plantais j'avais supprimé tout le code que j'avais autour....

Je testerais pour voir comme tu me dis.

Merci beaucoup.