Export de chiffre via un fichier texte

Bonjour,

J'utilise Excel depuis Access pour faire un export en fichier texte (et le réintegrer ensuite par import).
Mais mes chiffres dans mon export texte depuis Excel sont entourés de guillemets. Exemple

Citation:

---

"7257,12"

---

Je ne parviens pas à les passer en nombre même en spécifiant un format de nombre depuis l'Excel (dans Access) via :

Code:

---

1 2	.columns("E:E").select selection.NumberFormat="0.00"

---

Merci d'avance de vos idées.

Bonjour,

il faudrait donc corriger le code de l'export …

Voici le code de l'export :

Code:

---

oAppExcel.Activeworkbooks.SaveAs Filename:=chemin_enreg & "\data.txt", Fileformat:="xlText", createBackup:=False

---

Là, difficile de changer le code de l'export, c'est pour cela que j'ai donné le code Excel pour modifier avant d'exporter (je le repette depuis Access qui commande Excel) ...

J'ai listé les parametres de type "xlText", mais rien qui ne solutionne le probleme.

Déjà avec Activeworkbooks j'ai un doute …

Après correction, directement dans ma version d'Excel je n'ai pas de guillemet …

Essayer avec l'argument Local:=False …

N'ayant pas 2007 là sous le coude, si un autre intervenant en 2007 passe par là …

Toujours pas moyen de transformer mes chiffres Excel en vrai chiffres.

Lorsque je mets Excel en visible au sein d'Access, je parviens (à la main )à faire un copier coller special avec multiplication et ainsi obtenir des vrais chiffres sans guillemets. (par export en mode texte avec delimiteur tab)
Par contre lorsque je veux l'executer entierement par macro, je ne parviens pas à les mettre en chiffres.

Cette manip fonctionne dans Excel, mais pas dans Access qui pilote Excel.
Est ce que vous auriez des idées pour me mettre sur la voie ?

Je mets le code :

Code:

---

1 2 3 4

with appexcel.worksheets(feuille) .range("Z2")=1 .range("Z2").copy .range("E:E").PasteSpecial paste:=xlPasteAll, Operation:=xlMultiply,SkipBlanks:=False,Transpose:=false

---