Discussion :

[69Pierre]

Bonjour.

J'ai un problème d'import de certaines données excel 1997/2003 vers access 365 avec la fonction :

Code :

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

DoCmd.TransferSpreadsheet acImport, 9, strTable, strChemin, blnNoms, strOnglet & "!"

Toutes les lignes sont remontées dans ma table Access mais certains champs sont à NULL.

Ces champs contiennent la valeur 119,8 et j'ai le message "Échec lors de la conversion de type"
Pour d'autres valeurs comme 0,15 je n'ai pas de soucis
Dans Excel les champs sont au format nombre avec 2 décimales et dans access au format texte court (50)

La seule différence semble donc être le nombre de décimale mais comment résoudre ce problème ?

[deedolith]

Salut,

Il peut y avoir plusieurs causes:

1) Si la table cible n'existe pas:
Lors de l'import, le moteur de base de données tente de déduire le type de chaque colonne, en se basant sur la majorité des 5 premières lignes.
Il est tout à fait possible qu'il déduise des nombres alors que ce sont des chaînes, ou des entiers alors que ce sont des flottants, ou des dates alors que ce sont des chaine ou (n'importe quelle autre combinaison de types en conflit).

2) Si la table cible existe:
Si ton fichier Excel à été saisit / modifié à la main, il est possible qu'il contienne des erreurs.


Dans ces cas, la meilleur chose à faire est de réaliser un import brut (tout en texte), faire tourner une fonction de vérification des données, et au choix:
- Tout importer vers la (ou les) table(s) cible (si aucune erreur).
- N'importer que les lignes valides (optionnellement, consigner les lignes en erreur dans un reporting).
- Ne rien importer si la moindre erreur est détectée.

[69Pierre]

Bonjour.

En fait cela est du au fait que l'utilisateur entre des nombres stockés sous forme de texte.
Du coup, j'essaie de traduire ce format texte en décimal, mais je n'y arrive pas :

Code VB :

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

1
2
3
4
5
6
Dim cell As Range 'Variable
For Each cell In Worksheets("Grille").Range("C5", [A65535].End(xlUp))
 
cell = CDec(cell)
 
Next

[deedolith]

Houla,

Ne bidouille pas la source des données malheureux !!
Comment veux-tu ensuite reproduire les anomalies ? Puisque tu les auras corrompues ?

[69Pierre]

Comment avoir des décimaux alors ?

[Thumb down]

Bonjour,

Code :

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

1
2
3
4
On error resume next
CurrentDb.Execute "Drop table NewTableAccess"
on error goto 0
CurrentDb.Execute "SELECT * INTO NewTableAccess FROM [Feulle1$] IN 'C:\Myrep\MyClasseur.Xlsx'[excel 12.0;HDR=Yes;ReadOnly=True;IMEX=1;];"

[deedolith]

Comment avoir des décimaux alors ?

Je te l'ai indiqué, utilises des tables intermédiaires, qui contiendrons tes imports brut.