Discussion :

[ninita]

bjr, je voudrai exporter 3 tables DB vers une feuille excel puis insérer une macro dans excel pour faire le cacul de la moyenne, je me perds

[Invité1]

salut
regardes ce code peut etre que ça t'aidera

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
29
30
31
32
33
var
vMSExcel,vXLWorkbooks, vXLWorkbook,  vWorksheet : variant ;
i,j:integer;
 
begin
// demarrer excel
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := true;
 
//creer un nouveau fichier xls
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Add;
 
//acceder a une feuil
vWorksheet := vXLWorkbook.WorkSheets['feuil1'];
 
 
//ecrire les titres des champs
for i:=0 to table1.FieldCount-1 do
vworksheet.cells.item[1,i+1].value:=table1.Fields[i].FieldName;
 
//ecrire les données
table1.First;
for j := 1 to table1.RecordCount do
begin
for i:=0 to table1.FieldCount-1 do
begin
vworksheet.cells.item[j+1,i+1].value:=table1.Fields[i].AsString;
end;
table1.Next;
end;  
 
end;

dans ton cas (3 tables) vaut mieux créer une procédure qui aura le nom de la table comme paramètre, pour la macro aucune idée
bonne chance

[ninita]

bonjour sami, j'ai ajouté un bouton et on click, j'ai copié ton code mais là l'execution s'arrête en me disant qu'il faut déclarer la fonction CreateOleObject, je ne comprends pas puisqu'elle est prédéfinie

[Fxg]

Tu as l'unité ComObj dans ton Uses ?

[ninita]

non je vais l'ajouter et je vais lancer l'execution pour voir

[ninita]

ça a fonctionné merci

[Fxg]

La méthode dans ce cas là est quasiment toujours la même :

un coup de F1 sur le mot clé et dans l'aide apparait l'unité dont il dépend.

[ninita]

reç 5/5 et merci encore!:-)

[NABIL74]

salut à toutes et à tous ,

ninita, pour lancer ta macro à Excel via delphi, ce lien peut t'aider:
http://www.developpez.net/forums/d76...l-vers-delphi/

pour faire la macro de calcul de la moyenne, tu as deux possibilités:
1- écrire ce code en VB eh oui!(dans l'exemple qu'il y a sur le lien).
2- ou traduire ce code en delphi.

Pourquoi pas calculer la moyenne directement sous delphi sans passer par Excel? ça sera plus facile non? parceque si tu exportes tes 3 tables,il faut créer la macro de calcul et puis il faut se positionner sur la cellule dans laquelle tu inséreras ton calcul.....

En tout cas, c'est à toi de voir.

Bonne chance.

NABIL74