Discussion :

[wikimeta]

Bonjour a tous je voudrais remplir une ListBox avec les données stockées dans un fichier Excel, j'ai vu un peu ce qui est proposé mais j'ai pas reussi a en faire ce que je voulai, si quelqu'un pouvais m'éclairer...
merci

[defluc]

Tu renseignes les modules externes ComObj
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComObj, StdCtrls;


Tu déclares les Ole nécessaires

Var
ExcelApp, Range, Sheet :OleVariant;
Ligne, Col : Integer;


ExcelApp := CreateOleObject('Excel.Application');// création du lien OLE Excel dans la base de registre
ExcelApp.Workbooks.Open('MonClasseur.xls'); // Ouvre le classeur
ExcelApp.Sheets[1].Select; // Sélectionne la feuille requise

Enfin, pour chaque cellule dont tu veux transférer la valeur dans ta listbox

MaListBox.Items.Add(ExcelApp.Cells[Ligne ,Col].Value);

Good luck

[wikimeta]

le code a l'air impecable je le test, en tout cas merci
je mets resolu des que c'est bon

[wikimeta]

j'ai une erreur qui dit "Méthode 'Sheet' non supportée par l'objet Automation" !!!

[defluc]

C'est sheets

[wikimeta]

c'est bon ca marche nickel...maintenant faut juste que je mette plusieurs colonnes avec les infos dedans.
Ca marche pareil avec une TchekListBox?

merci beaucoup

[wikimeta]

heu en fait j'ai peut-etre été un peu présomptueux pour pour le "juste" avec les plusieurs colonnes, saurais-tu comment on fait pour avoir plusieurs colonne.
dans une autre discution j'ai cru voir des pointeurs ==> i^ mais ca je connais pas donc si tu avait un code plus facile a comprendre
merci

[defluc]

Le pointeur permet deux colonnes, pas plus.

A ta place, je choisirais plutôt un composant de type grid qui te permet de définir le nombre de lignes et de colonnes.

Et comme tu sais maintenant rapatrier les cellules excel, cela devient un jeu d'enfant de les affecter.

[wikimeta]

c'est bon ca marche impecable avec StringGrid pout toute les valeurs.
On peut mettre des icones ou des petites images dans ce type de colonne ou uniquement des Strings?

merci

[wikimeta]

je 'découpe' ma question

on peut mettre des images dans un TStringird ou faut-il utiliser un autre composant qui puisse afficher à la fois des images et des String??

merci d'avance

[wikimeta]

jusque la tout marche si ce n'est que a force de faire des tests j'ai bloqué les executions et quand je suis allé dans gestionnaire des taches j'avais plein de excel.exe donc je suppose qu'il faut fermer excel mais je sais pas comment faire!!!???

merci

[defluc]

if not VarIsEmpty(xlApp) then
begin
xlApp.DisplayAlerts := True; // Sauve le fichier
xlApp.DisplayAlerts := False; // ne sauve pas le fichier
xlApp.Quit;
xlApp := Unassigned;
end;

[wikimeta]

merci à tous
c bon ca marche très bien