Import fichier nombre scientifique csv

Version imprimable

24/07/2013, 22h51
wilcamp1

Import fichier nombre scientifique csv

Bonjour à tous,
Je voudrais garder le format 1E04 en type texte lors de l'import d'un fichier csv en automatique dans excel.
exemple
fichier import csv
code article designation
1E04 plat

fichier récupèré dans excel
code article designation
1E+04 plat

1E+04 n'est pas exploitable pour faire une recherche dans notre base excel
j'ai essayé par l'enregistreur de macro Selection.NumberFormat = "@"
mais cela ne fonctionne pas

si quelqu'un à une solution
merci
24/07/2013, 23h21
clementmarcotte

Bonjour,

As-tu essayé d'utiliser le transtypage automatique de VBA et de juste multiplier ton nombre en texte par 1 ?
25/07/2013, 01h11
Marc-L

Bonjour wilcamp1,

en joignant ton fichier csv à importer …

Tabernacle Clément ! Je crois bien que nous nous sommes croisés sur un autre forum dont l'évolution a en surpris plus d'un …
25/07/2013, 20h36
clementmarcotte

Bonjour,

On ne sait jamais...
25/07/2013, 21h36
wilcamp1

As-tu essayé d'utiliser le transtypage automatique de VBA et de juste multiplier ton nombre en texte par 1 ?

Bonjour clementmarcotte et Marc-L
je ne suis pas un spécialiste de VBA pouvez m'expliquer un transtypage automatique?
Oui je peux envoyer mon fichier CSV mais demain car je ne suis pas au bureau
25/07/2013, 22h05
clementmarcotte
Citation:

Envoyé par wilcamp1

pouvez m'expliquer un transtypage automatique?

C'est ce qui fait que, par exemple, le nombre 12 puisse être utilisée directement dans un texte sans conversion explicite. Cela fait que BASIC est très tolérant aux mélanges de types de données. Cela plait à prime abord, mais cela peut causer des erreurs difficiles à déceler. Par exemple, le bout de programme suivant va passer, justement parce que VBA va convertir automatiquement une donnée numérique en donnée texte, au lieu de générer une erreur. (Ou en terme plus techniques transformer (transtyper) un type de donnée Integer en type de donnée String.)
Code:

1 2 3 4 5 6 7 8 dim i as integer dim j as integer dim résultat as integer dim réponse as string i = 6 j = 9 résultat = i + j réponse = "Réponse = " & résultat
Bien des langages vont générer une erreur en voyant passer la dernière ligne, alors que VBA va la laisser passer.
26/07/2013, 06h55
wilcamp1

1 pièce(s) jointe(s)

bonjour, clementmarcotte

merci pour votre réponse mais nous avons plusieurs codes avec 1Exx
et dans votre code je crois que vous faite un calcul.
je joint des fichiers
le tmp_fichier_csv_recupere.txt : fichier extrait en csv
le Fichier_obtenu_apres_macro.xlsx : fichier obtenu après macro
je fait essayer de tourner autour de votre code pour compendre comment il fonctionne.
26/07/2013, 18h14
Marc-L

Il y a un gros souci avec le fichier texte en pièce jointe,
je ne sais si il est vérolé ou pas mais non importable directement !

Qui plus est tu n'as pas dedans un format 1E04 mais déjà 1E+04 donc Excel n'y est pour rien ‼ …
27/07/2013, 22h08
wilcamp1

Bonsoir Marc

Le fichier txt est l'enregistrement à partir excel du fichier export csv de notre logiciel (pour info entreprise pdm de chez soliworks) je ne pense pas qu'il soit vérolé.
C'est bien se que je pensé.
Il n'y a vraiment rien à faire pour récupérer et le transformer dans excel le code 1E+04 par une macro en 1E04 car nous avons plein de code en 1E suivie d'un nb.
S'il n'y a pas de solution je clore la discussion.

Bonjour,

Je t'ai bricolé cette fonction. Tu peux l'utiliser comme une fonction de feuille de calcul ordinaire, ou l'appeler d'une sub() en VBA.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Function EnNombre(entrée As String) As Double
    Dim laliste() As String
    Dim nombre As Single
    Dim EnPuissance As Double
    Dim converti As Double
    If InStr(entrée, "E") > 0 Then
       laliste = Split(entrée, "E")
       nombre = Val(laliste(0))
       EnPuissance = 10 ^ CDbl(laliste(1))
       converti = nombre * EnPuissance
       EnNombre = converti
    End If
End Function

28/07/2013, 05h19
Marc-L
Citation:

Envoyé par wilcamp1

Le fichier txt est l'enregistrement à partir excel du fichier export csv de notre logiciel (pour info entreprise pdm de chez soliworks) je ne pense pas qu'il soit vérolé.
Moi je parlais du vrai fichier "csv" d'origine, pas d'une bidouille post Excel …
Essayes alors d'importer ton fichier en pièce jointe et tu verras !

Pour rappel, car déjà expliqué sur ce site rien qu'en effectuant une recherche,
si le fichier d'origine n'a pas de "E+", il s'importe sans souci dans Excel si
- on prend la peine dans l'Assistant Importation texte de spécifier la colonne en question au format texte !
- Si l'importation se fait par programme, il suffit de définir avant au format texte les cellules recevant ce type de données …
__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________
Quand on est mort, on ne sait pas qu'on est mort, c'est pour les autres que c'est difficile … Quand on est con, c'est pareil ‼
28/07/2013, 17h27
clementmarcotte

Bonjour,

Oupss! Là j'étais à l'envers. :)
28/07/2013, 18h06
Docmarti

Ton fichier texte a été produit pour être lu sur un ordinateur dont les paramètres régionaux utilisent le point comme séparateur décimal.
Tu dois modifier tes paramètres régionaux et linguistiques pour Anglais-USA avant de l'ouvrir avec Excel.
Rétablis tes paramètres régionaux à Français-France avant d'en faire une sauvegarde francisée (c-a-d avec la virgule comme séparateur décimal).
07/01/2014, 15h13
wilcamp1

résolu

Nous avons modifié notre code avec un _ devant
merci pour votre aide
07/01/2014, 18h18
Marc-L

Bien …

Mais normalement il n'y en a pas besoin …