TStringGrid vers Excel

Bonjour,

J'utilise la méthode suivante pour exporter un TStringGrid vers une feuille Excel : http://delphi.developpez.com/faq/?pa...tringgridexcel

Le problème est qu'à l'ouverture du fichier généré, beaucoup de caractères parasites sont présents dans mes valeurs exportées (Ce sont des carrés).

Exemple : "Vide" est écrit dans Excel : V<carré>i<carré>

Je ne sais pas d'où peut venir le problème ?

Je suis sous Delphi XE.

Merci ;)

problème d'AnsiString et Unicode ?

Bonjour,

Merci pour ta réponse. Ce paramétrage peut se voir où ? Vous gérez l'encodage depuis le composant "TFileStream" ?

Merci ;)

J'ai trouvé la réponse.

Dans la procédure :

Code:

---

procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: string);

---

Remplacer :

Code:

---

XlsStream.WriteBuffer(Pointer(AValue)^, L);

---

par :

Code:

---

XlsStream.WriteBuffer(Pointer(AnsiString(AValue))^, L);

---

;)

De fait il faut remplacer

Code:

---

1 2	procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: string);

---

par:

Code:

---

1 2	procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: Ansistring);

---

Excel me donne toutefois un message d'avertissement à l'ouverture du fichier créé:calim2:

Citation:

---

Le processus Validation de fichier Office a détecté un problème à l ouverture de ce fichier. Son ouverture risque d être dangereuse.

---

???

Par ailleur si quelqu'un peut me dire comment sauver les données dans une autre feuille que la feuille1?

:ccool:

Merci,
PhilLu

C'est un vieux format d'excel (excel 5.0 je crois) qui compte des failles de sécurité. Donc pas possible d'enlever l'avertissement à l'ouverture (sauf peut-être en configurant Excel, mais déconseillé).

Par contre je n'ai pas de solution gratuite pour un export vers excel. (peut-être passer par du csv).

Citation:

---

Envoyé par Linkin

C'est un vieux format d'excel (excel 5.0 je crois) qui compte des failles de sécurité. Donc pas possible d'enlever l'avertissement à l'ouverture (sauf peut-être en configurant Excel, mais déconseillé).

Par contre je n'ai pas de solution gratuite pour un export vers excel. (peut-être passer par du csv).

---

Merci pour ta réponse :ccool:
...une idée comment envoyer vers la feuille 2?

A+