Discussion :

[Yolak]

Bonjour.

J'ai un problème lors d'un enregistrement d'un fichier en csv par VBA.
J'ai un champs qui contient des codes postaux et mon problème, c'est que la valeur réél des champs des départements qui commencent par 0 est transformée en nombre à quatre chiffres (le 0 est supprimé).

J'ai tenté de mettre ceci:

Code :

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

 Columns("C:C").NumberFormat = "00000"

Columns("C:C").NumberFormat = "00000"

Puis ceci:

Code :

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

 Columns("C:C").NumberFormat = "@"

Et enfin, désespéré, j'ai tenté:

Code :

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

Range("C" & i).Value = Range("C" & i).Text

Mais rien de tout ça ne fonctionne!
A chaque fois, mon code postal 01000 se transforme en 1000 !!
Quelque chose m'échappe!

[melouille56]

Une question d'abord et après on peut trouver la réponse, tu ouvres un csv via excel ou tu enregistres un excel en csv?
En gros, je pense que tu essaies de modifier le format de ta cellule une fois que les nombres 5 chiffres sont déjà transformés en 4 chiffres.
Et si jamais tu peux, mets un peu plus de code.
A +
M.

[ucfoutu]

"0####"

[melouille56]

hmmm
Moi j'aurais mis "0????"
Mais bon, sans doute que les deux fonctionnent.

[ucfoutu]

Bonjour, melouille58,

J'ai répondu ainsi (et ça fonctrionne, bien évidemment), car j'ai vu qu'il avait défini le format en numérique.
La vraie question était (mais une expérience récente me décourage d'insister...) : Pourquoi en numérique ? un code postal n'est pas un nombre, mais un numéro identificateur et donc une chaîne de caractères (format texte) tout simplement, et sans aucune spécification autre nécessaire

EDIT :
En outre : il lui aurait (avec la methode qu'il utilisait) suffi d'ouvrir son enregistreur de macros, de choisir mle format spécial CodePostal pour sa colonne, d'arrêter l'enregistreur, puis d'aller voir la syntaxe utilisée dans un tel cas
Elle est celle qu'il utilise (celle essayée en 1er) et fonctionne bien ... (pour l a colonne choisie, bien sûr)

[Yolak]

Bonjour et merci pour ces réponses...
Alors: "0####" et "0????" ça ne fonctionne pas...
Pour répondre à ucfoutu: C'est une feuille escel que j'enregistre en csv.

Pourquoi en numérique ? un code postal n'est pas un nombre, mais un numéro identificateur et donc une chaîne de caractères (format texte) tout simplement, et sans aucune spécification autre nécessaire

Précision:

Code :

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

 Columns("C:C").NumberFormat = "@"

Ce code que j'ai essayé indique que le format demandé est une chaine

J'ai même tenté de stocker le code dans une variable string et de le replacer dans la cellule mais rien y fait, mon 0 disparaît!!!

En outre : il lui aurait (avec la methode qu'il utilisait) suffi d'ouvrir son enregistreur de macros, de choisir mle format spécial CodePostal pour sa colonne, d'arrêter l'enregistreur, puis d'aller voir la syntaxe utilisée dans un tel cas

C'est exactement la première chose que j'ai faite! L'enregistrement m'avais donnée ce code

Code :

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

 Columns("C:C").NumberFormat = "00000"

J'ai vérifié une chose: lorsque j'ouvre mon document excel, les 0 sont bien là.
dans la cellule, le texte est le code postal (01000 par ex) et dans la zone de formule le teste est le code postal précédé d'une apostrophe (par ex '01000)

Merci pour votre aide!

EDIT:J'ai executé mon code bout par bout et j'ai pu determiner a quel moment le code postal perd son zéro. C'est au moment ou je l'enregistre en csv

Code :

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

        ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\*****\Bureau\*****" & "\" & NewFile, FileFormat:=xlCSV, local:=True

Je ne comprend plus rien:/

EDIT2:
Mouarf....
J'ai trouvé, c'est le paramètre local:=true qui génère l'erreur...
Le problème c'est que si je l'enlève, le séparateur n'est plus le point virgule mais la virgule et ça c'est embêtant...
Enfin, je vais trouver une solution.

Merci a tous, je marque résolu

[Yolak]

Heuu en fait j'ai analysé un peu le truc...
J'avais utilisé le paramètre local:=true pour que mon séparateur soit le point virgule. Si j'enlève ce paramètre, le séparateur devient la virgule.

Si j'ouvre mon nouveau fichier csv avec excel, tous les champs s'affichent dans la première cellule alors qu'avec le séparateur ";", Excel reconnait les champs chaque cellule correspond à un champs... Du coup, il reconnait aussi les nombre et vire les zéros devant... Je pense que c'est ça mais corrigez moi si je me trompe...