[Delphi 7] Afficher données d'un classeur Excel dans grille

Bonjour,

J'ai trouvé comment piloter excel, ouvrir le fichier, manipuler ses données..., mais on ouvre excel. Là je ne veux pas ouvir excel; je veux juste afficher les données d'un fichier dans une gille.

Est ce que quelqu'un à une piste ou une solution ?
D'avance merci.

à priori le format de fichier excel est propriétaire et ce sera difficile de l'ouvrir sans passer par excel... sauf avec la nouvelle version Office 2007, dont les formats de fichiers sont maintenant des .zip avec du xml dedans.
je ne vois pas d'autre piste

Si c'est juste pour une lecture

Il y a un "viewver" Excel fournis par Microsoft (je me rapelle plus son nom).
Ca peut être une solution alternative.
Ce viewver est gratuit, et beaucoup plus "light"
et à la rigueur être intégré directement sur un panel de ton application.. ?

c'est juste une piste

Salut !

Citation:

---

je veux juste afficher les données d'un fichier dans une grille.

---

Tiens, j'ai trouvé ça sur le forum VB6, ça ne devrait pas être compliqué à adapter, et ça pourrait te donner des pistes :

Code:

---

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

Dim obExcelApp As Object ' Objet Application Dim obWorkSheet As Object ' Objet Feuille de calcul   Set obExcelApp = New Excel.Application obExcelApp.DisplayAlerts = False obExcelApp.Visible = False   ' Ajouter un nouveau classeur obExcelApp.Workbooks.Add   ' Référencer la feuille de calcul active Set obWorkSheet = obExcelApp.ActiveSheet   obWorkSheet.Cells(1, 1).Value = "TEST"   obExcelApp.Visible = True ....   'fermeture   obWorkBook.close 'ferme le classeur obExcelApp.quit 'ferme lapplication   set obWorkSheet = nothing set obExcelApp = nothing

---

HTH,
--
jp

Il faut utiliser OLE.

Un bout de code(à copier dans une procedure de ton code):
Il faut rajouté l'unité ComObj dans la partie "uses"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var MonObjOle,MonDocument : Variant; begin {Initialisation de l'objet COM Excel.Application} try MonObjOle := CreateOleObject ('Excel.Application'); except Application.MessageBox ('Impossible d''initialiser l''objet OLE Excel.Application', 'Erreur', MB_OK); Exit ; end; try MonDocument := MonObjOle.Workbooks.open('C:\toto.xls'); except Application.MessageBox ('Impossible d''initialiser l''objet OLE Excel.Workbook', 'Erreur', MB_OK); Exit ; end; {Placer ici le code de traitement} end;

---

PS:Remplaçer "C:\toto.xls" par le nom du fichier cible!
Pour plus d'informations sur OLE,voir ici8-)

ATTENTION:Ne PAS mettre "MonObjOle.Visible:=true" dans le code,car ces lignes affichent Excel.Mais si l'ordinateur affiche toujours Excel,taper
"MonObjOle.Visible:=false"après la zone "{Placer ici le code de traitement}"

Bonjour,


Merci à tous pour vos conseils. J'ai trouvé un composant (Formula One) qui permet de gérér des onglets et d'exporter au format excel sans avois excel sur le poste utilisateur.

Je vous souhaite également une bonne année.

Salut,
Je vois que tu utilises Formula One pour des grille Excel et je me demandais si tu pouvais m'aider un peu. :roll:
J'ai des données dans ma grille dans plusieurs onglet et je voudrais les imprimers.
Je sais qu'il existe un méthode FilePrint ou FilePrintEx mais je ne sais vraiment pas comment elle fonctionne (malgres l'aide).
Tu croix que tu peux m'aider, ou me conseiller? :oops:
Merci... :)