Option Explicit
'NOM_ORDI = nom de l'ordinateur qu'on croit qu'un vilain l'allume sans autorisation'donc metre le nom excat sinon la macro bug
Sub macro()
Dim cmdbox As Variant
Dim cmdstr$
cmdstr = "cmd /k wmic /node:NOM_ORDI os get LastBootUpTime,CSName /format:list >c:\lbu.txt"
cmdbox = Shell(cmdstr, vbMinimizedFocus)
Application.Wait Time + TimeSerial(0, 0, 1)
AppActivate cmdbox
Application.Wait Time + TimeSerial(0, 0, 1)
SendKeys "exit", True
SendKeys "~"
Call macro2
End Sub
Sub macro2()
Dim fn$
ChDir "C:\"
Workbooks.OpenText "C:\lbu.txt", xlWindows, 4, xlDelimited, , , , , , , True, "."
Range("B1").ClearContents
Range("B1").FormulaR1C1 = _
"=DATEVALUE(MID(RC[-1],SEARCH(""="",RC[-1])+7,2)&""/""&MID(RC[-1],SEARCH(""="",RC[-1])+5,2)&""/""&MID(RC[-1],SEARCH(""="",RC[-1])+1,4))"
Range("B1").NumberFormat = "dd/mm/yyyy"
Range("C1").FormulaR1C1 = _
"=MID(R1C1,LEN(R1C1)-5,2)&"":""&MID(R1C1,LEN(R1C1)-3,2)&"":""&MID(R1C1,LEN(R1C1)-1,2)"
Range("B1:C1").Value = Range("B1:C1").Value
Range("A1").FormulaR1C1 = "Dernier démarrage du PC:"
Range("A1").Font.Bold = True
fn = "lbu" & Replace(Time, ":", "-") & ".xls"
ActiveWorkbook.SaveAs Filename:="C:\" & fn, FileFormat:=xlNormal
End Sub