probleme format cellule

Question

bonjour, je ne suis pas un expert en macro excel, pourtant je souhaiterais pouvoir modifier le format des cellules d&#180;un tableau. j&#180;esplique le contexte.

je veux importer une liste de donn&#233;es que j&#180;ai au format txt dans excel, ma macro excel ouvre le document txt et envoir les differentes donn&#233;es dans les cellules. le probleme est que je dois avoir normalement une colonne entiere avec des donn&#233;es 1.4125 ou 2.2351  mais lors du transfert je me retrouve avec 14.125 ou 22.351. je voudrais donc faire en sorte que j&#180;obtienne ma donn&#233;e comme initialement.
y a t&#180;il un moyen d&#180;initialiser le format des cellules de mon tableau en format texte avant l&#180;exportation des donn&#233;es

j&#180;ai tent&#233; ...

 ' Choix d&#180;un fichier de base de donn&#233;es &#224; ouvrir
  FichierAOuvrir = Application.GetOpenFilename("All Files (*.*),*.*)
  
  ' Modification du format des cellules d'Excel
  With Application
         .ReferenceStyle = xlR1C1
        .UserName = "Ludo"
        .StandardFont = "Univers"
        .StandardFontSize = "10"
        .Cells.NumberFormat = "@"
  End With 

mais sans grand r&#233;sultat.
quelqu&#180;un peut il me proposer une solution.

jpleroisse · Answer

Bonjour,

Je viens de placer des chiffres dans un fichier texte, 1.250, 3.274
ect..., et j'ai bien ces donn&#233;es correctement import&#233;es dans ma feuille
du classeur.Si tu pouvais donner un apr&#231;u de ton fichier texte, et ton
code pour importer les donn&#233;es dans les cellules, parce que chez moi si
les chiffres son identiques que dans le fichier texte, toutes mes 
lignes sont dans une seule cellule, (1ere ligne en A1, 2&#232;me en A2, etc
...



jpleroisse

ludo_wob · Answer

voila a quoi resemble mon fichier Texte

W 311 X12CrNi26-5  1.4820 30.03.2000 0,000 1.1.2 0 1
I 311 Phosphor 0,015000
I 311 Schwefel 0,012500
I 311 Chrom 26,000000
I 311 Kohlenstoff 0,070000
I 311 Mangan 0,700000
I 311 Eisen 67,502500
I 311 Silicium 0,700000
I 311 Nickel 5,000000
N 311 DIN 17145
W 312 GX40CrNi24-5  1.4822 30.03.2000 7,600 1.1.2 0 1
I 312 Phosphor 0,022500
I 312 Schwefel 0,015000
I 312 Chrom 24,000000
I 312 Kohlenstoff 0,400000
I 312 Mangan 0,750000
I 312 Eisen 68,812500
I 312 Silicium 1,500000
I 312 Nickel 4,500000

mon probleme se trouve pour les donn&#233;es 1.4820 qui devient ensuite dans excel 14.820

ma macro ressemble a ca

Sub AutoOpen()
        
  ' cr&#233;ation de variables
  Dim FichierAOuvrir As String
 
  ' Choix d&#180;un fichier de base de donn&#233;es &#224; ouvrir
  FichierAOuvrir = Application.GetOpenFilename("All Files (*.*),*.*,Data Files (*.dat),*.dat,Excel Files (*.xls), *.xls")
  
   ' Modification du format des cellules d'Excel
  With Application
  
        .ReferenceStyle = xlR1C1
        .UserName = ""
        .StandardFont = "Univers"
        .StandardFontSize = "19"
        .Cells.NumberFormat = "@"
  End With

jpleroisse · Answer

Bonsoir,

J'ai cr&#233;&#233; un fichier texte  (que j' appel&#233; Test.txt) et j'y ai
placer tes donn&#233;es, je l'ai ouvert avec ce code et je n'ai pas d'erreur
avec 1.4820.



Sub ImporterFichier()

Dim r, Data

Range("A1").Activate

Open "C:\Test.txt" For Input As #1

r = 0

Do Until EOF(1)

 Line Input #1, Data

ActiveCell.Offset(r, 0) = Data

r = r + 1

Loop

Close #1

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

ludo_wob · Answer

salut
merci pour ta reponse, effectivement j&#180;ai test&#233; mon code chez moi avec Excel 2004 et je n&#180;ai pas de probl&#232;me, alors ce probleme est peu etre caus&#233; uniquement avec excel 2002....en tout cas c&#180;est assez bizarre de ne pas trouver le meme resultat.
merci pour tout

Probleme format cellule

4 réponses

Discussions similaires