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 : Sélectionner tout - Visualiser dans une fenêtre à part
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