[VBA-E] Mise en forme CSV (option regional)
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:
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:
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
