acces ->Excel probleme de retour a la ligne

re bonjour a tous voila j'ai un petit probleme
j'ais une basse acces dans laquelle j'enregistre des memo.

je rencontre un probleme lorsque que j'exporte les informations de ma base vers excel.

en effet les retours a la ligne qui sont dans ma basse arrive sous excel sous forme de carré
une idee pour corriger le probleme ?

voila le code utiliser

Code:

---

1 2 3 4 5

AnsiString valeurcellules; valeurcellules=DataModule1->Table1->FieldByName("Tache")->Value; vValue =valeurcellule.c_str(); vCell.OlePropertySet("Value", vValue);

---

merci par avance

Salut griffit:
Il te faut faire un traitement de la chaine que tu recupere de ton Memo et recuperer le retour chariot/saut de ligne et le transformer en quelque chose de comprehensible par Excel

Citation:

---

AnsiString valeurcellules;
valeurcellules=DataModule1->Table1->FieldByName("Tache")->Value;
vValue =valeurcellule.c_str();
vCell.OlePropertySet("Value", vValue);
String essai = vValue;

---

en vert ce que j'ai ajoute tu met un point d'arret et tu pointe le curseur sur essai tu verre les separateurs utilises par ton Memo

merci a 1er vu il s'agit des caractere "/R ou /N" que excel n'arrive pas a

comprendre mais commet les suprimés

merci par avance des reponce

Potiez ma aide il y a pas longtemps a ce sujet tu utilise la fonction StringReplace, J'utilise un TMemo pour l'essai a toi d'adapter ces lignes

Citation:

---

vValue = WideString(Memo1->Lines->Text);
String essai = vValue;
String monText = StringReplace(essai, "\r\n", " ", TReplaceFlags()<< rfReplaceAll << rfIgnoreCase); // dans la chaine essai on remplace les caracteres "\r\n", par " "
vValue = WideString(monText);
vCell = vWorksheet.OlePropertyGet("Range", "B2");
vCell.OlePropertySet("Value", vValue);

---

Ca fonctionne chez moi.
Je suis interresse de savoir comment tu a procede pour recupere dans ta table ces elements de texte, pour l'integrer dans la FAQ.

super super cela fonctionne apres une au deux modification du code

Code:

---

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

DataModule1->Table1->First(); // je me place en debut de table   while(!DataModule1->Table1->Eof)// Boucle de recherche {   if(DataModule1->Table1->FieldByName("Numero")->Value==Tableauresultat[i-2]) // Si N° de la table=numero rechercher {   vValue = WideString(DataModule1->Table1->FieldByName("NTABLE")->Value);//NTABLE=NOM DE TA COLLONE DANS TA TABLE String essai; essai= vValue; String monText = StringReplace(essai, "\r", " ", TReplaceFlags()<< rfReplaceAll << rfIgnoreCase); // dans la chaine essai on remplace les caracteres "\r\n", par " " vValue = WideString(monText);   vCell.OlePropertySet("Value", vValue);   } DataModule1->Table1->Next(); }

---

MERCI merci merci :)
parcontre je sais pas si j'ai repondu a ta demande blondelle hesite pas a me mail

C'est surtout comment tu a ouvert Access et comment tu a recupere ta table qui est interressant.

de sous windows j'ais cree un lein odbc qui pointe sur ma base acces

j'ais cree un module de donnée dans lequelle j'ais mis

1 une Database
qui pointe sur mon lien odbc

1 table
qui pointe sur ma database
et la session

1 Session


voila en gros et puis plus simle voila le lien :)
http://ricky81.developpez.com/tutori...ge=cas_odbc#L3

Perso pour ouvrir Access j'ai utilise Ole (comme pour Excel), cette fonction lancait une macro Access

Code:

---

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

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include <utilcls.h> #include "Ouvrir_exec_macro_fermer.h" //c'est le nom du projet //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { // ne pas oublier #include <utilcls.h> Variant vMSAccess, vFileName; // on ouvre Access vMSAccess = Variant::CreateObject("Access.Application"); // on rend visible Access vMSAccess.OlePropertySet("Visible", true); // on defini le chemin de la base a charger vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\UtilisationBDE\\fichiers\\maBdd\\maBdd1.mdb"; // ouverture de la table Access vMSAccess.OleFunction("OpenCurrentDatabase", vFileName, false); vMSAccess.OleFunction("OpenCurrentDatabase", vFileName, false, password); Variant password; password = "MotDePasse"; vMSAccess.OleFunction("OpenDatabase", vFileName, false, false, password); // on execute la macro "essai" contenue dans la base vMSAccess.OleProcedure("Run", "essai"); /* Il est possible d'intégrer le mot de passe au code lors de l'ouverture de la base de données : Dim db as Dao.DataBase Set db = DBEngine.OpenDatabase("C:\MaBase.mdb", False, False, ";pwd=password") 'Effectuer le traitement sur la base de données ici. db.Close */   // fermeture d'Access // on ferme la base vMSAccess.OleProcedure("CloseCurrentDatabase"); // on quitte Access vMSAccess.OleFunction("Quit"); // liberation des variants vMSAccess = Unassigned; } //---------------------------------------------------------------------------

---

mais je n'ai jamais eut l'occasion d'extraire les donnees d'une table d'ou ma curiosite

oui mais comment tu fais si le poste en question n'a pas acces :)
ce qui et le cas de la plupart des postes bureautique que j'installe sur la commune pour laquelle je travaille.

alors qu'avec des liens odbc j'ais pas le probleme.

Je n'utilise pas personnellement Access d'ou ma curiosite donc (je ne mourrais pas idiot ce soir) :mouarf: