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 38 39 40 41
| Set oXL = WScript.CreateObject("EXCEL.application" )
oXL.Visible = True
'Ouverture du classeur
oXL.workbooks.open Classeur
Set objWorksheet = oXL.Worksheets(1)
'Insertion d'une nouvelle ligne
Set Selection = objWorksheet.Rows(1)
Selection.EntireRow.insert
'Convertion du text dans les cellules
Set Selection = objWorksheet.Columns(1)
Set DestinationRange = objWorksheet.Columns(2)
Selection.TextToColumns DestinationRange, , , ,True
Selection.Delete
'Suppression de la première colonne
Set Selection = objWorksheet.Columns(1)
Selection.EntireColumn.Delete
'Adaptation des largeurs de colonne 1-2-3
objWorksheet.Columns(1).EntireColumn.AutoFit
objWorksheet.Columns(2).EntireColumn.AutoFit
objWorksheet.Columns(3).EntireColumn.AutoFit
'Ajout des entête de colonnes
objWorksheet.Cells(1,1).FormulaR1C1 = "Date"
objWorksheet.Cells(1,2).FormulaR1C1 = "Utilisateur"
objWorksheet.Cells(1,3).FormulaR1C1 = "Remarque"
'Met en gras les entêtes
objWorksheet.Range("A1:C1").Font.Bold = True
'Tri sur les deux premières colonnes
objWorksheet.Columns("A:B").AutoFilter
'Code qui concerne le permier externe
'Tri pour un user(extTransfile)
objWorksheet.Columns(2).AutoFilter 2,"Nom\extTransfile:"
'Tri de la date la plus récente à la date la plus ancienne
objWorksheet.Columns(1).Sort objWorksheet.range("A2"),2
extern1 = objWorksheet.Cells(2,1).Value & objWorksheet.Cells(2,2).Value
'Code qui concerne le deuxième externe
'Tri pour un user(extTransfile01)
objWorksheet.Columns(2).AutoFilter 2,"Nom\extTransfile01:"
objWorksheet.Columns(1).Sort objWorksheet.range("A2"),2
extern2 = objWorksheet.Cells(2,1).Value & objWorksheet.Cells(2,2).Value |
Partager