Discussion :

[Lalanne]

Je cherche à transformer un fichier Excel (valeurs numériques)

- en un fichier texte sous C++ Borland
- avec un point comme séparateur décimal
- et des espace entre les colonnes.

J'ai trouvé quelques informations fort utiles chez "developpez.com", mais pas tout ce qui m'est nécessaire.
Voici ce que j'ai récupéré:

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
    Variant vMSExcel, vFileName, vXLWorkbooks, vXLWorkbook;
    //Ouverture d'une nouvelle instance
    vMSExcel = Variant::CreateObject("Excel.Application");
    vMSExcel.OlePropertySet("Visible", false);  // Application npn visible par l'utilisateur
    vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");

   // Modifie le séparateur décimal
    //La première ligne permet de spécifier la valeur que l'on veut pour nouveau séparateur décimal.                Mais comment choisir le point ?
    vMSExcel.OlePropertySet("DecimalSeparator", vText); 
    //La seconde ligne désactive l'utilisation des séparateurs systèmes.
    vMSExcel.OlePropertySet("UseSystemSeparators", false);
 
    //Ouverture d'un classeur existant
    vFileName = "C:\\toto.xls";
    vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
    vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

// c'est là que je ne sais plus faire

//
    //vFileName = "C:\\toto.txt";
    //vXLWorkbook.OleProcedure("Saveas", vFileName);

    vMSExcel.OleFunction("Quit"); // on ferme
    vMSExcel = Unassigned;

Quelqu'un peut-il m'aider à terminer cette fonction ?

Merci par avance

[blondelle]

Salut Lalanne:
Pour sauvegarder un fichier xls sous un autre format il ne suffit pas de changer l'extension car cela provoque une erreur il faut donc utiliser la fonction "sauvegarder sous" complete
Le code pour utiliser cette fonction complete

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
 
//FileFormat = 6; // fichier CSV (extension .csv)
//FileFormat = -4158; //fichier TXT et separateur tabulation (extension .txt)
FileFormat = 36; //fichier TXT 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
// creation d'un mot de passe protegeant l'ouverture du fichier
Mot_passe = Unassigned; //"jpb"; // pour la protection du fichier
Password = Unassigned; //Mot_passe; // mot de passe pour proteger le fichier
WriteResPassword = Unassigned; //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;  //Unassigned; // creation d'une copie (False True Unassigned)
// fermeture d'un fichier (ouvert au format csv) au format xls
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\essais.prn";
vXLWorkbook.OleProcedure("Saveas", vFileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup);

Pense a utiliser les balises de code # et ecrit ton code entre ces balises ce sera plus lisible

[Lalanne]

Salut Lalanne:
Pour sauvegarder un fichier xls sous un autre format il ne suffit pas de changer l'extension car cela provoque une erreur il faut donc utiliser la fonction "sauvegarder sous" complete
Le code pour utiliser cette fonction complete

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
 
//FileFormat = 6; // fichier CSV (extension .csv)
//FileFormat = -4158; //fichier TXT et separateur tabulation (extension .txt)
FileFormat = 36; //fichier TXT 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
// creation d'un mot de passe protegeant l'ouverture du fichier
Mot_passe = Unassigned; //"jpb"; // pour la protection du fichier
Password = Unassigned; //Mot_passe; // mot de passe pour proteger le fichier
WriteResPassword = Unassigned; //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;  //Unassigned; // creation d'une copie (False True Unassigned)
// fermeture d'un fichier (ouvert au format csv) au format xls
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\essais.prn";
vXLWorkbook.OleProcedure("Saveas", vFileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup);

Pense a utiliser les balises de code # et ecrit ton code entre ces balises ce sera plus lisible

Bonjour,

Merci pour cette réponse rapide . Excuse moi pour les balises. Je n'ai pas l'habitude.
Cela fonctionne très bien. Ma seule question restante: Puis-je éviter après la sauvegarde au format txt ou prn l'affichage de la boite demandant "Voulez-vous enregistrer les modifications apportées au classeur "toto" ?" (de façon à ce que l'opération soit complètement transparente pour l'utilisateur).

Merci encore

Lalanne

[blondelle]

Lalanne a ecrit:

Puis-je éviter après la sauvegarde au format txt ou prn l'affichage de la boite demandant "Voulez-vous enregistrer les modifications apportées au classeur "toto" ?" (de façon à ce que l'opération soit complètement transparente pour l'utilisateur).

C'est possible a condition que le fichier n'a pas deja ete cree.
Le code:

Code :

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

1
2
 
vXLWorkbook.OleProcedure("Close", false);

Puis tu ferme Excel
Le code

Code :

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

1
2
3
4
5
 
// fermeture d'excel
vMSExcel.OleFunction("Quit");
// liberation memoire
vMSExcel = Unassigned;

[Lalanne]

Lalanne a ecrit:

C'est possible a condition que le fichier n'a pas deja ete cree.
Le code:

Code :

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

1
2
 
vXLWorkbook.OleProcedure("Close", false);

Puis tu ferme Excel
Le code

Code :

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

1
2
3
4
5
 
// fermeture d'excel
vMSExcel.OleFunction("Quit");
// liberation memoire
vMSExcel = Unassigned;

Super. Merci pour tout.

Lalanne

[Lalanne]

Super. Merci pour tout.

Lalanne

Salut,

En cas de fichier déjà existant lors de la sauvegarde, est-il possible de gérer une réponse "Non" ou "Annuler" (sinon, ça plante)?

Merci

Lalanne

[blondelle]

Salut Lalanne:
La solution que j'avais adoptee ete de tester si le fichier existe si oui de le detruire puis de sauvegarder, au lieu de le detruire tu peu le renommer.

[blondelle]

La je viens de refaire l'essai, si le fichier existe tu a une boite de dialogue qui te demande si tu sauvegarde oui/non ou si tu annule.
Si tu ne veu pas cette boite de dialogue alors il n'y a que la solution de mon post precedent, detruire le fichier s'il existe, puis tu execute la sauvegarde.

[Lalanne]

La je viens de refaire l'essai, si le fichier existe tu a une boite de dialogue qui te demande si tu sauvegarde oui/non ou si tu annule.
Si tu ne veu pas cette boite de dialogue alors il n'y a que la solution de mon post precedent, detruire le fichier s'il existe, puis tu execute la sauvegarde.

C'est bon.

Merci encore

Lalanne