Bonjour,
Etant en stage depuis 1 semaine dans le cadre de mon DUT R&T, mon tuteur m'a demandé de réaliser une macro qui consiste à lister les infos de plusieurs logs contenus dans un répertoire. Les infos que je dois récupérer se trouvent pour chaque log à la dernière ligne et je dois en extraire deux parties (la date et le nom d'utilisateur colorés en rouge dans la ligne ci-dessous) :
29/03/2017 09:08:09: User: XXXXX - Model: Precision XBTFG - Tag: 65E5G3
Sachant que le nom d'utilisateur est une chaîne variable ...
Les résultats doivent être présentés sur une feuille excel avec comme première colonne le nom du fichier log, puis en deuxième et troisième colonne la date et le nom d'utilisateur correspondant à son log.
Je n'ai jamais fait de Virtual Basic auparavant et après de nombreuses recherches sur Internet, la seule chose que j'ai su adapter pour mon cas, c'est de lister le nom des logs :
Code :
- Sub numero_machine()
- Dim Dossier As Object, fichier As Object
- Dim Chemin As String
- Dim i As Long
- Columns("B:B" ).Select
- Selection.ClearContents
- Chemin = "MonChemin"
- Set Dossier = CreateObject("Scripting.FileSystemObject" ).GetFolder(Chemin)
- For Each fichier In Dossier.Files
- i = i + 1
- Cells(i, 1) = Left(fichier.Name, InStr(fichier.Name, "." ) - 1)
- Next
- End Sub
|
Quelle doit-en être la suite ? Expliquer moi comment je dois faire ?
Merci d'avance !