Discussion :

[etnies13]

Bonjour,

Je fais appel à vous car je travail sur un script VBS qui tri des informations de connexion.
Mon but final est de sortir la dernière connexion de chaque utilisateurs. Seulement je reste bloqué sur un problème et je ne parvient pas à le résoudre.
Donc mon script fonctionne bien sauf qu'il ne récupert pas les cellules qui m'interessent.
Voici mon code :

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
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

Sur l'image ci-dessus on peut voir que les cellules que je voudrais récupérer sont 08.07.2014 16:00, \extTransfile01 (A11-B11). Mais mon code récupert les deux première cellule de la première ligne soit A2-B2 qui sont cachés ce qui est normal vu que je lui dit de prendre les cellules 2,1 et 2,2.
Comment dois-je faire pour récupérer les cellules de la première ligne avec des données visible (deuxième ligne en réalité car je compte pas les en-têtes) donc sur mon image A11-B11 ?
A savoir que mon but est d'automatiser ce processus pour 7 utilisateurs au final.

Merci d'avance et bonne journée !

[NVCfrm]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set Selection = objWorksheet.Columns(1).CurrentRegion
Set Selection = Selection.Rows(Selection.End(xlDown).Rows.Row - Oxl.Subtotal(3, Selection) - 1)
extern2 = Selection.Cells(1, 1) & Selection.Cells(1, 2)