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.
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).
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:=" "
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
J’ai une erreur sur une des machines ou il me dit que le module est introuvable…
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile(source,destination,true)
Si vous avez aussi une idée pour ce problème...
Merci
Partager