Discussion :

[oliver75]

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 :

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

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

[Thomas69]

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

[oliver75]

voilà la pièce jointe...

merci de votre aide

[oliver75]

game over....les points restent toujours des points

[ouskel'n'or]

Dans ton txt, quels sont les séparateurs de données ? des ";", des Tabulations ? des Virgules ?
A+

[oliver75]

Les séparateurs sont des ';'

a+

[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+

[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 histoire

[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 ?

[oliver75]

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

[ouskel'n'or]

Essaie ce code

Code :

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

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+

[oliver75]

GREAT!!!!!!!!!!!!
merci ouskel'n'or you are definitly the best

[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

[ouskel'n'or]

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

Code :

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

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

A+