StillHammer
21ebf32e4f
- KPIs complets (CA, Heures, Taux, Stats, Objectifs) - Graphiques CA par client + Heures par client - TCD Heures x Client x Projet avec Slicer interactif - Checkboxes dynamiques bien positionnes (E3:E7) - Documentation technique et guides MCP Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
29 lines
739 B
Plaintext
29 lines
739 B
Plaintext
On Error Resume Next
|
|
|
|
Dim objExcel, objWorkbook
|
|
Dim sourcePath, destPath
|
|
|
|
sourcePath = "C:\Users\alexi\Documents\projects\freelance-dashboard\templates\FreelanceDashboard.xlsx"
|
|
destPath = "C:\Users\alexi\Documents\projects\freelance-dashboard\templates\FreelanceDashboard.xlsm"
|
|
|
|
Set objExcel = CreateObject("Excel.Application")
|
|
objExcel.DisplayAlerts = False
|
|
objExcel.Visible = False
|
|
|
|
Set objWorkbook = objExcel.Workbooks.Open(sourcePath)
|
|
|
|
' 52 = xlOpenXMLWorkbookMacroEnabled (.xlsm)
|
|
objWorkbook.SaveAs destPath, 52
|
|
|
|
objWorkbook.Close False
|
|
objExcel.Quit
|
|
|
|
Set objWorkbook = Nothing
|
|
Set objExcel = Nothing
|
|
|
|
If Err.Number = 0 Then
|
|
WScript.Echo "SUCCESS: File converted to .xlsm"
|
|
Else
|
|
WScript.Echo "ERROR: " & Err.Description
|
|
End If
|