Microsoft 365 nombre à 24 caractères n'apparaît pas correctement

riton00

XLDnaute Impliqué

• 19 Avril 2021

• #2

Bonjour,
Une possibilité c'est de mettre le guillemet-apostrophe à l'avant du chiffre '232972011335650145590027
Slts

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Avril 2021

• #3

Bonjour apfwl.87, riton00,

riton00 à dit:

Une possibilité c'est de mettre le guillemet-apostrophe à l'avant du chiffre '232972011335650145590027

Cliquez pour agrandir...

As-vous testé ? Chez moi l'apostrophe n'a pas d'effet.

Le plus simple est de ne pas utiliser de fichier CSV

A+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 19 Avril 2021

• #4

Bonjour à tous,

Si vous utilisez la conversion via le menu Données/Convertir, définissez le format de la colonne concernée à "Texte" dans la boite de dialogue "Convertir".

Si vous ouvrez le fichier .csv (via Excel - Fichier Ouvrir - type "Fichier Texte" et non pas en double-cliquant sur le fichier dans l'explorateur), il se peut qu' Excel vous place immédiatement en mode "Convertir".
Dans ce cas, définissez le format de la colonne à 14 chiffres comme du texte.

edit : Bonjour @job75

 

Dernière édition: 19 Avril 2021

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 19 Avril 2021

• #5

Bonjour job75, le forum

En effet j'ai testé l'apostrophe mise à part que l'apostrophe je l'ai mise dans la barre de formule puis le chiffre avant de validé sur Entr

Slts

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Avril 2021

• #6

La lecture séquentielle du fichier CSV permet de restituer le texte de 24 chiffres :

VB:

Sub Import_CSV()
Dim texte, a(), n&, b()
Open ThisWorkbook.Path & "\Fichier CSV.csv" For Input As #1 'accès au fichier
Do While Not EOF(1) 'EndOfFile: fin du fichier
    Line Input #1, texte 'récupère la ligne
    ReDim Preserve a(n) 'tableau VBA, base 0
    a(n) = texte 'stocke le texte dans le tableau a
    n = n + 1
Loop
Close #1 'fermeture du fichier
'---transposition---
ReDim b(1 To n, 1 To 1)
For n = 1 To UBound(b)
    b(n, 1) = a(n - 1)
Next
'---restitution---
With [A1]
    .EntireColumn.NumberFormat = "@" 'format texte
    .Resize(n - 1) = b
End With
End Sub

Téléchargez les fichiers zippés joints dans le même dossier.

Salut mapomme.

 

Pièces jointes

• Dossier(1).zip

  14.5 KB · Affichages: 18

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 19 Avril 2021

• #7

Bonjour à tous,

Merci pour vos réponses.

Malheureusement avec l'apostrophe cela ne fonctionne pas. J'ai également essayé d'ouvrir le fichier via Excel - Fichier Ouvrir - type "Fichier Texte" mais là aussi sans succès. je vais essayer le code envoyé par mapomme. mais là j'ai besoin de temps. ça fait longtemps que je n'ai plus "programmé" en visual basic

Bonne soirée à tous

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 19 Avril 2021

• #8

apfwl.87 à dit:

je vais essayer le code envoyé par mapomme

Cliquez pour agrandir...

Rendons à César ce qui appartient à @job75.
Je ne suis pas l'auteur du code. C'est job75.

 

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 19 Avril 2021

• #9

ah ups pardon et merci Job75.

J'ai essayé d'utiliser la macro mais je suis trop nulle dans ce domaine et e n'y suis pas arrivée. En revanche, en cherchant justement à installer cette macro, je suis tombée tout à fait par hasard sur une solution:
J'ai ouvert un nouveau classeur Excel puis: ->registre données -> obtenir des données à partir d'un fichier texte/csv ->importer le fichier csv désiré ->une fenêtre s'ouvre -> sous "Détection du type de données" sélectionner ce que l'on veut (dans mon cas j'ai choisi "selon le jeu de données complet") - > cliquer sur "transformer les données" -> une nouvelle fenêtre s'ouvre -> cliquer sur "Fermer et charger" -> le nouveau classeur se rempli des données du fichier csv -> enregistrer le classeur au format .xlsx. Et voilà.

alors même si je n'ai pas réussi à utiliser ta macro, merci job75 car sans toi je n'aurais pas cherché aussi intensivement et donc je ne serai pas tombée sur la solution.

Bonne soirée à tous et restez en bonne santé

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Avril 2021

• #10

apfwl.87 à dit:

alors même si je n'ai pas réussi à utiliser ta macro, merci job75

Cliquez pour agrandir...

C'est pourtant bien simple :

- placer les 2 fichiers que j'ai déposés dans le même dossier

- ouvrir le dossier Fichier XL(1).xlsm

- cliquer sur le bouton.

 

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 19 Avril 2021

• #11

oui, ça j0y suis arrivée mais après pour reproduire cela avec mon fichier csv qui contient 949 lignes ..... là j'ai malheureusement pas su comment faire

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Avril 2021

• #12

Bonsoir apfwl.87, job75, le fil,

je crois que tu n'as pas besoin de modifier le fichier .csv ; tu dois juste mettre le fichier .xlsm et le fichier .csv dans le même dossier (celui de ton choix) ; ensuite, ouvre le fichier Excel .xlsm et clique sur le bouton ➯ la macro du fichier .xlsm traitera ton fichier .csv de 949 lignes comme il faut, et comme tout autre fichier .csv de même structure.​

soan

 

Vote positif 0 Vote négatif