Macro pour ouvrir un fichier excel avec des ','

Version imprimable

30/05/2007, 10h06
oliver75

Macro pour ouvrir un fichier excel avec des ','
bonjour ,

j'ai un pb avec le fichier ci-joint.

J'ai réalisé un macro pour que ce fichier s'ouvre en automatique avec des
"," . Petit pb. Ce fichier s'ouvre avec des chiffres avec des "." et des
",00" les nombres entiers.

Avez vous une idée de macro pour ouvrir ce fichier (en pièce jointe) avec des ',' pour les
nombres décimales?

Ma macro est la suivante :
Code:

1 2 3 4 Workbooks.Open Filename:=mpath & mfich4 Sheets("20070430-130504-esoura").Activate Range("E1:E40").Select Selection.NumberFormat = "#,##0.00"
Merci de votre aide.

Olivier
30/05/2007, 10h09
Thomas69

Citation:

Workbooks.Open Filename:=mpath & mfich4
Sheets("20070430-130504-esoura").Activate
Range("E1:E40").Select
Selection.NumberFormat = "#.##0,00"

essaye ca
tu inverse les . avec les ,
je sais que sur le GW basic ca inverse apres je ne suis pas un expert
30/05/2007, 10h10
oliver75

voilà la pièce jointe...:lol:

merci de votre aide
30/05/2007, 10h15
oliver75

game over....les points restent toujours des points :?
30/05/2007, 10h24
ouskel'n'or

Dans ton txt, quels sont les séparateurs de données ? des ";", des Tabulations ? des Virgules ?
A+
30/05/2007, 10h29
oliver75

Les séparateurs sont des ';'

a+
30/05/2007, 10h36
ouskel'n'or

Ok. Jète un oeil là, le dernier post.
Tu dis
A+

Edit
Désolé, la réponse de tomilena a disparu :(
Bon, j'ai une solution de rechange mais elle passe par le traitement du fichier texte. Open le fichier.txt for input as ... etc
Si tu ne trouves pas mieux, tu peux toujours demander
A+
30/05/2007, 10h51
oliver75

c'est toujours ko. une chose bizarre tout de meme . lorsque j'ouvre le fichier , ca semble etre de l'excel. Toutes les infos sont dans une meme cellule avec des ';' comme séparateur.

lorsque je referme le fichier , 'le type de fichier' est du '.txt'

C'est pas clair comme histoire8O
30/05/2007, 10h53
ouskel'n'or

Tu as essayé la version d'ouverture d'un txt qui correspond à ton cas dans l'adresse que je t'ai passée ?
30/05/2007, 11h01
oliver75

oui . Le fichier s'ouvre bien mais toujours en '.':?

Essaie ce code
Code:

1 2 3 Workbooks.OpenText Filename:="D:\xls\Classeur1.txt", StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _ :=True, Semicolon:=True, DecimalSeparator:="."
Comme je n'ai pas de txt avec "." comme séparateur, je n'ai pas pu tester.
Tu dis
A+

30/05/2007, 14h33
oliver75

GREAT!!!!!!!!!!!!
merci ouskel'n'or you are definitly the best:king:
30/05/2007, 17h53
oliver75

bon je suis gourmand......en plus de ma virgule, j'aimerais que la macro ouvre tous les montants en "valeur absolue".

Merci de votre aide:P
30/05/2007, 18h08
ouskel'n'or

Ce n'est qu'une question de format de cellule

Code:

Columns(1).NumberFormat = "#,##0.00;#,##0.00"

A+