OLE Excel - Problème d'enregistrement

**thithi54** · 15/06/2007, 11h43

Bonjour,

J'ai actuellement un problème pour l'enregistrement d'un fichier Excel (sous un autre nom), en essayant de récupérer une application Excel déja ouverte.

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
Variant Wb, vMSExcel, vFileName;
AnsiString FileName;
 
FileName = Form3->SaveAs->Text;
vFileName = ExtractFilePath(Application->ExeName)+ "Sauvegardes\\" + FileName;
 
vMSExcel = Variant::GetActiveObject("Excel.Application");
vMSExcel.PS("DisplayAlerts", false);
try
{
         Wb = vMSExcel.OlePropertyGet("ActiveWorkBook");
         Wb.OleProcedure("Saveas", vFileName);
        ShowMessage("Le fichier a été correctement enregistré sous: " + vFileName);
}
catch (Exception &exception)
{
       Application->MessageBox("Impossible d'enregistrer!!", "Erreur", MB_OK+MB_ICONERROR);
}

J'ai bien inclus au début du fichier: #include <utilcls.h>

D'avance, je vous remercie.

**blondelle** · 15/06/2007, 12h08

Salut thithi54:
Je pense que ceci va te permettre de resoudre ton probleme

Variants FileFormat, Mot_passe, Password, WriteResPassword, ReadOnlyRecommended;
Variants vFileName, CreateBackup, Nom_Du_Fichier;
FileFormat peut prendre differentes valeurs suivant le format de sauvegarde desire, ce qui
permet de charger un fichier sous un format et de le sauvegarder sous un autre format
FileFormat = 6; // fichier CSV (extension .csv)
FileFormat = -4158; //fichier Texte et separateur tabulation (extension .txt)
FileFormat = 36; //fichier Texte et separateur espace (extension .prn)
FileFormat = -4143; // valeur de xlNormal "sauvegarde sous format classeur excel"
// pour les autres format de sauvegarde faire un essai avec VBE
tous les parametres de la sauvegarde sont decrits
Mot_passe = Unassigned; //"Mon_Mot_De_Passe" pour la protection du fichier
Password = Mot_passe; // mot de passe pour proteger le fichier
WriteResPassword = Mot_passe; // confirmation du mot de passe
ReadOnlyRecommended = false; // fichier en lecture seule (False True Unassigned)
// creation d'une copie si le fichier existe deja
CreateBackup = false; // creation d'une copie (False True Unassigned)
Nom_Du_Fichier = le nom du fichier avec extension .csv ou .txt ou.prn ou .xls

Le code:

Code :

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

1
2
3
4
 
// sauvegarde du fichier sous le format desire 
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Nom_Du_Fichier";
vXLWorkbook.OleProcedure("Saveas", vFileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup);

**thithi54** · 15/06/2007, 13h52

Re, le problème persiste malgrès les modifications apportées.
Il n'arrive pas à enregistrer le fichier sous un autre nom (il va dans le catch() et m'affiche donc le message d'erreur.)

Peux-tu me dire ce que tu mets exactement dans vXLWorkbook ?

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
 
Variant vFileName, FileFormat, Mot_passe, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup;
FileName = Form3->SaveAs->Text;
vFileName = ExtractFilePath(Application->ExeName)+ "Sauvegardes\\" + FileName;
 
vMSExcel = Variant::GetActiveObject("Excel.Application");
vMSExcel.PS("DisplayAlerts", false);
try
{
         Wb = vMSExcel.OlePropertyGet("ActiveWorkBook");
         FileFormat = -4143;
         Mot_passe = Unassigned;
         Password = Mot_passe;
         WriteResPassword = Mot_passe;
         ReadOnlyRecommended = false;
         CreateBackup = false;
         Wb.OleProcedure("Saveas", vFileName, FileFormat, Password,                   WriteResPassword, ReadOnlyRecommended, CreateBackup);
         ShowMessage("Le fichier a été correctement enregistré sous: " + vFileName);
}
catch (Exception &exception)
{
         Application->MessageBox("Impossible d'enregistrer !", "Erreur", MB_OK+MB_ICONERROR);
}

Merci

**blondelle** · 15/06/2007, 17h30

Peux-tu me dire ce que tu mets exactement dans vXLWorkbook ?

vXLWorkbook represente le classeur.

Pour ton probleme essai de coder en dur le chemin

Variant vFileName = "c:/mon_chemin";

tu a peut etre un probleme de ce cote la il faut absolument passer les noms de chemin en Variant

**blondelle** · 15/06/2007, 22h24

J'ai teste comme ceci:
Une Form, deux bouttons

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSExcel, vFileName, vXLWorkbooks, vXLWorkbook, vWorksheet, FileFormat;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
 {
    vMSExcel = Variant::GetActiveObject("Excel.Application");
}
 catch(...)
 {
    vMSExcel = Variant::CreateObject("Excel.Application");
}
vMSExcel.OlePropertySet("Visible", true);
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Nouveau dossier\\path1\\path1.csv";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
// ici le fichier path1.csv est charge
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// sauvegarde du fichier sous le format desire
FileFormat = -4143;
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Nouveau dossier\\path1\\path1.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName, FileFormat);
}

**thithi54** · 18/06/2007, 09h19

Bonjour,

Merci blondelle pour ton aide. L'erreur venait bien du lien.
Il faut maintenant que je trouve une solution pour remplacer la fonction: ExtractFilePath(Application->ExeName).

++