SaveAs qui me supprime mes virgules
Bonjour,
Un autre peit soucis.
J'exporte un fichier depuis SAP vers un classeur Excel.
J'utilise ensuite VBScript pour ouvrir ce fchier, y faire quelques modifs et je souhaite le réenregistrer après ces modifs avec un SaveAS.
Pourquoi me direz vous ? Eh bien quand j'ouvre ce classeur Excel et fais "sauvegarder sousé avec Excel, le format de base qu'il me propose pour l'enregistrer est ".txt" (ce qui doit venir de l'exportation de ma bdd).
Le SaveAs combiné au fileformat -4143 me permet d'ajuster automatiquement mes colonnes au format que je souhaite utiliser par la suite.
MAIS, il me supprime mes virgules dans mes colonnes ayant des chiffres
Exemple : 19,350 devient 19350
Ce qui me dérange beaucoup dans l'exploitation de mes données.
Voici le code que j'utilise :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| Set objExcel = CreateObject("Excel.Application" )
objExcel.DisplayAlerts = False
objExcel.AskToUpdateLinks = False
objExcel.AlertBeforeOverwriting = False
objExcel.Visible = False
'permet d'enregistrer sans confirmation
objExcel.DisplayAlerts = FALSE
'on ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open("N:\FRTH_KPI BRANCHE\Access\RECEPTION\RECEPTION.XLS" )
'on ouvre la premiere feuille
Set objWorksheet = objWorkbook.Worksheets(1)
'on selectionne la premiere colonne
set Selection = objWorksheet.Columns(1)
'on supprime la colonne selectionnée
Selection.EntireColumn.Delete
set Selection = objWorksheet.Columns(1)
Selection.EntireColumn.Delete
set Selection = objWorksheet.Rows(1)
Selection.EntireRow.Delete
set Selection = objWorksheet.Rows(1)
Selection.EntireRow.Delete
set Selection = objWorksheet.Rows(1)
Selection.EntireRow.Delete
'60
set Selection = objWorksheet.Rows(2)
Selection.EntireRow.Delete
objWorksheet.Range("H1").Value = "Quantity"
set Selection = objWorksheet.Columns(10)
Selection.replace ".","/"
Selection.NumberFormat = "dd/mm/yyyy"
set Selection = objWorksheet.Columns(4)
Selection.NumberFormat = "@"
objWorkbook.SaveAs("N:\FRTH_KPI BRANCHE\Access\RECEPTION\RECEPTION.xls"), -4143
objWorkbook.close()
'on ferme le fichier
objExcel.Quit |
Vous auriez pas un conseil pour m'aider là dessus ?
EDIT : je préciise que ma colonne avec les chiffres est la colonne 8.
MErci d'avance
