Problème Export Excel

**blondelle** · 13/11/2006, 23h57

Xav++ a ecrit:

Re,

j'ai même fait le code suivant :

Code :
Variant vXLWorkbooks, vXLWorkbook, vMSExcel;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
et ça plante toujours sur la même ligne ??????

Voila ce que j'ai ecrit a partir de ton code et qui marche chez moi.
Le code est lance par appui d'un bouton.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//int NbParties = CalculNbParties();
// ProgressBar1->Max = NbParties;
// ProgressBar1->Position = 0;
 
// int Progression = 0;
// AnsiString Text = "Export des résultats en cours... Ligne "+IntToStr(Progression)+"/"+IntToStr(NbParties);
 
// AnsiString nf = nomfichier;
// int x = nf.Length();
// nf[x-2]='x';
// nf[x-1]='l';
// nf[x]='s';
 
 Variant vXLWorkbooks, vXLWorkbook, vWorksheet, vWorksheets, vMSExcel;
// AnsiString vFileName = nf;  //nom du fichier
 
// ouverture d'Excel
 vMSExcel = Variant::CreateObject("Excel.Application");
// on modifie l'option NB de feuilles (une seule feuille ouverte)
 vMSExcel.OlePropertySet("SheetsInNewWorkbook", 1);
// l'application est invisible pour l'utilisateur
 vMSExcel.OlePropertySet("Visible", true);
// on ouvre le classeur
 vMSExcel.OlePropertyGet("Workbooks").OleFunction("Add");
 
// il y a trois possibilites suivant ce que tu veu faire
//----
// a partir d'ici on renomme la feuille
// on active la feuille la seule feuille du classeur
 vWorksheet = vMSExcel.OlePropertyGet("ActiveSheet");
 ///////////
 // on renomme la nouvelle feuille
 vWorksheet.OlePropertySet("Name", "Tournoi");
 
//----
// a partir d'ici soit tu cree une nouvelle feuille dans ton classeur
 // on cree une nouvelle feuille
 //
 vXLWorkbook = vMSExcel.OlePropertyGet("Worksheets");
 vXLWorkbook.OleProcedure("Add");
// on active la feuille cree
 vWorksheet = vMSExcel.OlePropertyGet("ActiveSheet");
 ///////////
 // on renomme la nouvelle feuille
 vWorksheet.OlePropertySet("Name", "Tournoi1");
 
//----
// a partir d'ici soit tu cree un nouveau classeur
// on cree un nouveau classeur
//
vXLWorkbook = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook.OleProcedure("Add");
vWorksheet = vMSExcel.OlePropertyGet("ActiveSheet");
///////////
// on renomme la feuille du nouveau classeur
vWorksheet.OlePropertySet("Name", "Tournoi");
 
 
 Variant vRange, vValue;                                        //mise au bon format des colonnes
 vRange = vWorksheet.OlePropertyGet("Range", "A:A");            //format texte pour la colonne A
 vValue = "@";
 vRange.OlePropertySet("NumberFormat", vValue);
 vRange = vWorksheet.OlePropertyGet("Range", "B:B");            //format texte pour la colonne B
 vValue = "@";
 vRange.OlePropertySet("NumberFormat", vValue);
 vRange = vWorksheet.OlePropertyGet("Range", "C:C");            //format JMA pour la colonne C
 vValue = "jj/mm/aaaa";
 vRange.OlePropertySet("NumberFormat", vValue);
 
 Variant vCell, vL, vC, vValueCell;
 
 vL = 1; //on remplit la première ligne
 vC = 1;
 vValueCell = "LICV";
 vCell = vWorksheet.OlePropertyGet("Cells", vL, vC);
 vCell.OlePropertySet("Value", vValueCell);
 vCell.OlePropertySet("HorizontalAlignment",-4108);               //Centrer  horizontalement la cellule
 vC = 2;
 vValueCell = "LICD";
 vCell = vWorksheet.OlePropertyGet("Cells", vL, vC);
 vCell.OlePropertySet("Value", vValueCell);
 vCell.OlePropertySet("HorizontalAlignment",-4108);
 vC = 3;
 vValueCell = "DATE";
 vCell = vWorksheet.OlePropertyGet("Cells", vL, vC);
 vCell.OlePropertySet("Value", vValueCell);
 vCell.OlePropertySet("HorizontalAlignment",-4108);
 vL = 2;
}

A+

**Xav++** · 14/11/2006, 19h29

Re,

bon j'ai mis ton code et toujours le même problème sur les
lignes qui contiennent le "Add".

En gros, je peux ouvrir Excel mais aucun classeur ou feuille

Je vais essayer de virer tous les fichiers Borland puis faire une
recompilation totale du projet car je ne vois plus d'autre solution !!!!!!!!!!!
Ce code marche chez tous le monde et pas chez moi...

PS : je suis passé de BCB5 à BCB6 ? est ce un soucis. Seul chose, je compile
mon projet avec l'ancienne version de la STL (Roguewave : _USE_OLD_RW_STL)

En tout cas merci de ton aide et de ta patience

**blondelle** · 14/11/2006, 19h48

Salut Xav++.
A tu essaye juste le bout de code avec un bouton comme decrit dans mon poste precedent juste pour voir si le probleme ne vient pas d'ailleur on ne sait jamais

Si le probleme est toujours la peut etre devrait tu essayer une reinstallation de BCB6.

**Xav++** · 14/11/2006, 21h31

Re,

bon je viens de créer un nouveau projet avec bouton et ton bout de code
et là même problème sur le "Add" ou plutôt dès que j'ai un OlePropertyGet ou Set

Chose bizarre : je compile sans pb même sans le :

Code :

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

#include <utilcls.h>

????? Le pb vient peut être de là ?

**Xav++** · 14/11/2006, 21h33

Envoyé par blondelle

Si le probleme est toujours la peut etre devrait tu essayer une reinstallation de BCB6.

Je viens juste de l'installer sur mon nouveau portable. L'install s'est déroulée
sans aucun pb !

Xav

**Xav++** · 16/11/2006, 18h23

Un petit up !

Si qqu'un pouvait avoir une idée de génie

Merci à tous

**blondelle** · 16/11/2006, 21h06

Xav++ a ecrit:

Je viens juste de l'installer sur mon nouveau portable. L'install s'est déroulée
sans aucun pb !

Xav

A tu reussi a executer ton programme?

**Xav++** · 17/11/2006, 10h22

Salut Blondelle !

toujours le même problème. Même avec un nouveau projet (ton code) j'ai le
problème.

Par contre si j'ouvre un fichier existant, je peux travailler dessus sans aucun
problème. Mais créer un fichier vierge : impossible

Merci pour ton aide

**blondelle** · 17/11/2006, 21h09

Salut Xav++:
Est ce que tu peut m'envoyer quelque chose que tu a programme et qui plante, mais complet .cpp et .h je testerais chez moi.
Si c'est trop volumineux je te passerais mon Email.

**Xav++** · 17/11/2006, 21h15

OK pas de problème !

je vais faire un petit prog car celui dans lequel ca plante est vraiment
volumineux

. Je vais profiter de ce we pour ca, j'ai rien de prévu. Je
te fais ça demain matin

Merci en tout cas

@+

**blondelle** · 17/11/2006, 21h43

Ok pas de probleme
Ca va etre interressant d'essayer de voir d'ou vient le probleme en general plus on galere plus l'erreur grosse.
A+

**Xav++** · 18/11/2006, 11h02

Salut Blondelle !

ci-joint le projet que j'ai créé et qui ne fonctionne pas chez moi !
Enfin, j'ai avancé car je l'ai lancé sur mon PC fixe (win xp pro + office2k)
et cela fonctionnne depuis mon passage en BCB6. Par contre, sur mon
portable (win xp pro + office 2003) plantage.... Donc cela viendrait de
la version de Excel. Y a t'il qqchose à rajouter dans BCB ?

Tiens moi au courant chez toi

@+

Projet Test.zip

**blondelle** · 18/11/2006, 11h18

Salut Xav++:
J'ai teste ton programme et il marche impecable chez moi, je suis sous XP PRO pack1 et office 2003.
Je n'ai pas a disposition une version plus vielle d'Excel malheureusement.
Une idee comme ca sous Excel de ton portable a tu configure l'utilisation des macro?

**Xav++** · 18/11/2006, 11h48

Les macros sont bien autorisées...
La je comprends rien du tout ??????????????????????????????
Ma version de Builder : BCB 6 Pro V10.161
Peut être as tu fait des mises à jour

**blondelle** · 18/11/2006, 12h04

Non je n'ai pas fait de mise a jour de BCB.
Dans les onglets securite d'Excel tout est autorise, il y a deux onglets sur ma version, la tienne est obligatoirement plus recente, verifie bien ce qui est autorise.

**Xav++** · 18/11/2006, 12h35

Oui tout est bien autorisé dans Excel ?

J'avance petit à petit. Je viens de m'apercevoir de qqchose. Si je lance juste
une instance de Excel, lorsque je vais dans le menu "Fichier", tout est grisé
("Nouveau"....) sauf "Ouvrir".
Comme si je n'ai pas les droits ?????????

Par contre si je lance Excel par son icone, tout va bien et je peux faire "nouveau"

Tiens tiens.... Y aurait il un argument à ajouter dans

Code :

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

1
2
3
 
 vMSExcel = Variant::CreateObject("Excel.Application");  
 vMSExcel.OlePropertySet("Visible", true);

du style

Code :

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

1
2
 
 vMSExcel.OlePropertySet("Admin", true);

???? Je cherche

**blondelle** · 18/11/2006, 12h47

Je ferais une comparaison des options sur les deux ordinateurs pour voir s'il y a une difference comme tu en a un qui fonctionne ce sera plus facile.

**blondelle** · 18/11/2006, 13h31

Sur ton XP tu a le pack2 surement, est ce que le parefeux ne pourrais pas t'ennuyer?

**Xav++** · 18/11/2006, 13h31

Ce sont pas les mêmes versions mais a priori le paramétrage est idem.

Si tu reprends le projet que j'ai posté et que tu modifies :

Code :

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

1
2
3
4
5
6
 
Variant vXLWorkbooks, vXLWorkbook, vMSExcel, vWorksheet;
 vMSExcel = Variant::CreateObject("Excel.Application");   // Création instance Excel
 vMSExcel.OlePropertySet("Visible", true);                // Affiche Excel
 vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");     // Travail par classeur
 //vXLWorkbook = vXLWorkbooks.OleFunction("Add");           // Ajout d'un classeur