fichier csv et pilotage OLE

bonjour,
J'ai un fichier cvs a ouvrir pour y reprendre des informations
en m'appuyant sur la faq et le tutoriel:
http://lfe.developpez.com/Excel
J'ai ce petit bout de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

void __fastcall TForm_menu::ImporterdesdonnesdORCAD1Click(TObject *Sender) { OpenDialog1->Execute();   Variant vMSExcel , vFileName, vNotUsed, vSeparator, vXLWorkbooks, vXLWorkbook ;   vMSExcel = Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("Visible", true);   vFileName = "c:\\Documents and Settings\\stage\\Mes documents\\BOMCVSTESTCPP.csv"; vNotUsed = Unassigned; vSeparator = 4; vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); ShowMessage(vFileName); vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed, vNotUsed,vSeparator); }

---

Avec ca, je parviens a ouvrir excel mais quand le fichier csv devrai etre ouvert j'ai une erreur "Une exception s'est produite"
Et meme en essayant avec un autre csv, meme erreur.
Qu'est ce que j'ai mal fait?

merci de votre aide.

Bonjour,

Je me suis confronté à la même erreur.

Le problème vient peut-être du séparateur ? J'utilise le point-virgule dans mon fichier CSV et je n'ai pas trouvé de doc me permettant de savoir à quoi correspond le vSeparator = 4;.

Essayez simplement:

Code:

---

1 2 3 4 5 6 7

String FileName("c:\\Documents and Settings\\stage\\Mes documents\\BOMCVSTESTCPP.csv"); Variant vMSExcel=Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("Visible", true);   Variant vXLWorkbooks=vMSExcel.OlePropertyGet("Workbooks"); Variant vXLWorkbook=vXLWorkbooks.OleFunction("Open", FileName.c_str());

---

Chez moi ce code fonctionne parfaitement.

Cordialement,
Sylvain

nickel, ca marche. :D

en fait le (un) pb avait l'air de venir du vFileName definit comme Variant et en le mettant en string puis lui appliquant .c_str() comme tu m'as indiqué, plus de pb.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

OpenDialog1->Execute();   Variant vMSExcel , vNotUsed, vSeparator, vXLWorkbooks, vXLWorkbook ; String vFileName;   vMSExcel = Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("Visible", true);   vFileName = fichier_ouvrir; //nom du fichier select ds opendialog vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName.c_str());

---

Peux tu me dire ce que ca change d utiliser vFileName ainsi plutot que comme je l'avais fait, car je vois pas trop pourquoi ca a été necessaire?

J'abuse un peu: sais tu lancer une macro excel depuis bcb?

Merci bcp Sylvain

dans la FAQ
auteur : Ricky81
Considérons l'instance d'Excel représentée par le Variant vMSExcel.


vMSExcel.OleProcedure("Run", "monClasseur.xls!MaMacro");
Le code ci-dessus va donc lancer la macro "MaMacro" définie dans le classeur ouvert nommé "monClasseur".


Remarques :


Les éventuels paramètres de la macro sont à ajouter comme paramètres à la suite du nom de la macro dans l'appel précédent
Il vous est bien sûr possible d'appeler une macro définie dans une module en adaptant votre code ("monClasseur.xls!monmodule.MaMacro")

Citation:

---

Envoyé par mike600river

nickel, ca marche. :D

---

:ccool:

Citation:

---

Envoyé par mike600river

Peux tu me dire ce que ca change d utiliser vFileName ainsi plutot que comme je l'avais fait, car je vois pas trop pourquoi ca a été necessaire?

---

J'ai l'impression que le type Variant avec une String/AnsiString n'est pas du gout de la fonction OLE. Par contre le char * fonctionne. Il y a donc un problème de type mais je ne saurai expliquer lequel... Peut-être qu'un expert pourra nous éclairer ?

Citation:

---

Envoyé par mike600river

J'abuse un peu: sais tu lancer une macro excel depuis bcb?

---

Je crois que blondelle a déjà répondu :D

Citation:

---

Envoyé par mike600river

Merci bcp Sylvain

---

De rien :)

@+
Sylvain

G pas assez expliqué ni détaillé ce que je veux faire, dsl.

en fait il y aura n fichiers cvs dans lesquels on a un en tete et une liste, je veux donc appliquer une macro0 qui vire la 1ere ligne pour qu'il me reste plus que les listes brutes.
du coup j'ai ma macro dans un classeur independant.
comment dire au programme applique a fichier1.cvs la macro0 du classeur0?

ou ya t il plus simple du style apres avoir ouvert le .cvs , une commande
DeleteLigne(i) de la feuille excel?

Merci a tous les deux :D

Si j'ai bien compris tu veux supprimer une ligne dans un feuille excel par macro excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 01/06/2006 par blondelle '   ' Rows("1:1").Select Selection.Delete Shift:=xlUp Range("A1").Select End Sub

---

si tu veux le faire dans plusieurs feuilles

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 01/06/2006 par blondelle '   ' Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select Sheets("Feuil1").Activate Rows("1:1").Select Selection.Delete Shift:=xlUp Range("A1").Select End Sub

---

ses fonction peuvent s'appeler avec la fonction de la FAQ
si tu veux ecrire tes propres macro excel
sous excel tu fait affichage -> barre d'outils ->visual basic
une petite barre d'outils s'affiche
tu a un bouton ou rond ou carre suivant ta version excel tu appuie dessus et tout ce que tu va faire dans ta ou tes feuilles va s'enregistrer pour arreter l'enrgeistrement tu reappuie sur le bouton

la macro c bon, elle est prête depuis un moment, la ou je suis dans le brouillard c'est que j'ai un classeur avec ma macro, et n classeur contenant chacun une feuille a traiter. Dans mon application bcb l'utilisateur choisi un classeur a traiter, il s'ouvre et c'est la que je ne sais pas comment faire pour dire au prog: "prend le classeur_choisi et applique lui la macro Macro_Traitement qui se trouve dans le classeur Classeur_Traitement"

Je sais pas comment faire un lien entre une feuille d'un classeur A et la macro du classeur Classeur_Traitement

Si ta macro est dupliquee dans chaque classeur avec le meme nom je pense qu'il n'y a pas de probleme pour l'appeler avec la fonction de la FAQ

les classeurs a traiter sont generés par d'autres utilisateurs, ils ne contiennent pas la macro.
Tu veux dire qu'il faudrait que pour chaque classeur traité j'ai un bout de code qui copie ma macro vers ce classeur? Parce que si oui ca m a bien traversé l'esprit mais pour le moment je vois pas comment faire ça non plus. :?

la je ne vais pas pouvoir t'aider je debute en bcb et j'ai aussi des difficultees il y aura certainement quelqu'un qui pourra t'aider avec les differents elements du post
bon courage

En tout cas merci pour tes réponses, et d'après ce que j'ai vu, si j'ai un pb avec excel je sais a qui m'adresser ;)

A bientot blondelle

Dans la FAQ C++ Builder il y a des choses interressantes

Code:

---

1 2 3 4 5 6 7 8 9

Comment récupérer un objet correspondant à la ligne/colonne complète à laquelle appartient un groupe de cellules ? [haut]   auteur : Superstivix Nous allons travailler sur le Variant vCell correspondant à la cellule.   Variant vCol, vRow; vRow = vRange.OlePropertyGet("EntireRow"); vCol = vRange.OlePropertyGet("EntireColumn");

---

ou

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Comment savoir si la suppression de lignes ou de colonnes est permise ? [haut]   auteur : Superstivix Nous allons travailler sur une feuillle, représentée par le Variant vWorksheet. Pour accéder à cette information, il faut interroger l'objet Protection de cette feuille :   bool supprLignePermis, supprColonnePermis; // vWorksheet est de type Variant supprLignePermis = vWorksheet.OlePropertyGet("Protection").OlePropertyGet("AllowDeletingRows"); supprColonnePermis = vWorksheet.OlePropertyGet("Protection").OlePropertyGet("AllowDeletingColumns");

---

ou

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Comment insérer ou supprimer une cellule ? [haut]   auteur : Ricky81 Agissons au niveau du Variant correspondant à un cellule.   Pour insérer :   vCell.OleProcedure("Insert", shift); Où shift correspond au décalage à effectuer. Il peut prendre les valeurs de la classe XlInsertShiftDirection :   xlShiftDown = -4121 xlShiftToRight = -4161 Pour supprimer :   vCell.OleProcedure("Delete", shift); Où shift correspond au décalage à effectuer. Il peut prendre les valeurs de la classe XlDeleteShiftDirection :   xlShiftUp = -4162 xlShiftToLeft = -4159 Remarque : ces opérations peuvent bien entendu également être réalisées sur un plage de cellules, et plus particulièrement une colonne ou une ligne.

---

merci

je suis en train de bosser avec la methode de suppression d une cellule
et sur une autre facon de faire qui prend le pb autrement

je post la reponse des que ya qqchose qui marche

a+