Discussion :

[djeckelle]

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.

[denokan]

à 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

[TicTacToe]

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

[Jipété]

Salut !

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 :

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

[supersnail]

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 :

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

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}"

[djeckelle]

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.

[elfi-bey]

Salut,
Je vois que tu utilises Formula One pour des grille Excel et je me demandais si tu pouvais m'aider un peu.
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?
Merci...