Discussion :

[DonKnacki]

Bonjour à tous

J'essaie d'exporter des données monétaires d'une de mes tables sous Excel
Mon souci est pour une colonne de type monétaire. En effet, une fois l'exportation effectuée, j'ai bien le nombre désiré mais avec un guillemet précédent (3.5 devient '3.5)
J'ai donc pensé ajouter une copie/collage spécial qui permet de retirer le guillemet seulement si j'ajoute une fonction somme par exemple, le résultat est 0 quelque soit les nombres sommés.
Je vous ai laissé un extrait de mon fichier Excel pour mieux comprendre
En A2, je devrai avoir la somme des lignes du dessous (soit A3:A7) mais le résultat est 0 et je ne vois pas pourquoi

Le code utilisé :

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'export les données dans une feuille "temp"
 DoCmd.TransferSpreadsheet acExport, 8, "facture", "c:\Classeur1.xls", True, "temp"
'ouverture du fichier
Set appExcel = CreateObject("excel.application")
Set oWkb = appExcel.Workbooks.Open("c:\Classeur1.xls")
'modification de la colonne concernée pour avoir un format manétaire
oWkb.Sheets("temp").Columns("AD:AD").NumberFormat = "#,##0.00"
'copy / collage spéciale
oWkb.Sheets("temp").Cells.Copy
    oWkb.Sheets("à payer").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'suppression de la feuille temporaire
oWkb.Sheets("temp").Delete
appExcel.Quit

[zoom61]

Salut,

Cela vient que ton poste est paramétré avec le point en décimal... et ce que tu envoies pour la création de ton fichier Excel est la virgule, donc, il ne trouve aucune valeur numérique...

[DonKnacki]

Tout d'abord, merci pour ta réponse

Si je comprend bien, il suffit que je modifie le format de ce qui est envoyé pour résoudre mon problème
Comme facture est une requête, je peux facilement modifier le format que j'envoie par contre j'ignore quel est le bon ?
Je te met la requête en version très simplifié:

Code sql :

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

SELECT Format([PrixUnitaire],"0.00") as PU from factureDetails

par contre, ce fichier a pour objectif d'être diffusé à d'autre personne et je ne peux pas m'assurer de la configuration de leurs postes. Du coup, est ce que ça va poser un problème ?

[zoom61]

Salut,

Normalement tu n'as rien à faire car l'exportation devrait coder que c'est un nombre décimal qu'il exporte. Donc Excel devrait l'ouvrir correctement.
Je pense que c'est la façon dont tu exportes qui pose problème.
Cela vient de la ligne :

Code :

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

oWkb.Sheets("temp").Columns("AD:AD").NumberFormat = "#,##0.00"

Essaye sans cette ligne...

[DonKnacki]

Cela ne change rien
Le plus étrange est que lorsque je "valide" les chiffres (je vais en A3, je vais dans la barre comme pour modifier la valeur mais sans la changer, je tape entrée) alors la somme fonctionne

[DonKnacki]

je pense avoir trouvé: c'est l'utilisation du Format dans la requête qui pose problème
Lorsque je le retire tous semble fonctionner normalement

merci pour ton aide