Discussion :

[griffit]

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 :

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

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

merci par avance

[blondelle]

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

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

[griffit]

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

[blondelle]

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

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.

[griffit]

super super cela fonctionne apres une au deux modification du code

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
 
 
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

[blondelle]

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