Discussion :

[BenoitM]

Bonjour,

J’ai du créer un fichier Excel qui génère des graphiques sur bases d’un fichier csv.
Ce fichier tourne sur plusieurs machines mais le problème c’est que les paramètres régionaux ne sont pas identique sur toutes les machines…
Donc j’ai décidé de paramétrer l’ouverture du CSV.

Code :

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

1
2
3
4
5
6
7
 
Workbooks.OpenText Filename:="C:\TEMP\suivcoul.csv", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlTextQualifierDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, _
        FieldInfo:=Array(Array(1, xlDMYFormat)), DecimalSeparator:=".", _
        ThousandsSeparator:=" "

Mais Excel n’a pas l’air de se soucier des paramètres quand mon fichier est sous l’extention csv. Lors de la lecture de mes nombres aux format scientifique (Exemple : 3.999993e-03 devient 3999.999).
Si je renomme le fichier en .bak ça marche !
Vous avez une idée comment je pourrais forcé l’ouverture avec les bons paramètres sans renommer le fichier ?

De plus quand je renomme mon fichier via le VBA

Code :

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

1
2
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile(source,destination,true)

J’ai une erreur sur une des machines ou il me dit que le module est introuvable…
Si vous avez aussi une idée pour ce problème...

Merci

[SfJ5Rpw8]

pour renomer un fichier voir tous simplement l'instruction Name :

Code :

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

Name OldName As NewName    ' Renomme le fichier.

[BenoitM]

Name n'a pas l'air d'aimer si NewName si le fichier existe déjà

[SfJ5Rpw8]

Name n'a pas l'air d'aimer si NewName si le fichier existe déjà

oui tu as kill pour effacer un fichier...

[BenoitM]

merci ca arrange +- mon problème.

Part contre si il y a une technique pour ouvrir le fichier csv avec les bon paramètres plutot que devoir s'amuser à renomer le fichier avec une autre extension