ludo_wob
Messages postés18Date d'inscriptionlundi 30 janvier 2006StatutMembreDernière intervention12 avril 2006
-
1 févr. 2006 à 13:24
ludo_wob
Messages postés18Date d'inscriptionlundi 30 janvier 2006StatutMembreDernière intervention12 avril 2006
-
2 févr. 2006 à 08:35
bonjour, je ne suis pas un expert en macro excel, pourtant je souhaiterais pouvoir modifier le format des cellules d´un tableau. j´esplique le contexte.
je veux importer une liste de données que j´ai au format txt dans excel, ma macro excel ouvre le document txt et envoir les differentes données dans les cellules. le probleme est que je dois avoir normalement une colonne entiere avec des donné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´obtienne ma donnée comme initialement.
y a t´il un moyen d´initialiser le format des cellules de mon tableau en format texte avant l´exportation des données
j´ai tenté ...
' Choix d´un fichier de base de données à 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ésultat.
quelqu´un peut il me proposer une solution.
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 1 févr. 2006 à 14:17
Bonjour,
Je viens de placer des chiffres dans un fichier texte, 1.250, 3.274
ect..., et j'ai bien ces données correctement importées dans ma feuille
du classeur.Si tu pouvais donner un aprçu de ton fichier texte, et ton
code pour importer les donné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ème en A2, etc
...
ludo_wob
Messages postés18Date d'inscriptionlundi 30 janvier 2006StatutMembreDernière intervention12 avril 2006 1 févr. 2006 à 14:22
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ées 1.4820 qui devient ensuite dans excel 14.820
ma macro ressemble a ca
Sub AutoOpen()
' création de variables
Dim FichierAOuvrir As String
' Choix d´un fichier de base de données à 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
ludo_wob
Messages postés18Date d'inscriptionlundi 30 janvier 2006StatutMembreDernière intervention12 avril 2006 2 févr. 2006 à 08:35
salut
merci pour ta reponse, effectivement j´ai testé mon code chez moi avec Excel 2004 et je n´ai pas de problème, alors ce probleme est peu etre causé uniquement avec excel 2002....en tout cas c´est assez bizarre de ne pas trouver le meme resultat.
merci pour tout