StillHammer
3fe6c9e408
Phase 5 - Tableaux Croises Dynamiques: - TCD_CA_Client, TCD_CA_Mois, TCD_Heures_Projet - Feuille TCD_Data creee - Module VBA mod_TCD Phase 6 - Graphiques: - Camembert CA par Client - Histogramme CA par Mois - Barres Heures par Projet - Module VBA mod_Charts Phase 7 - Slicers: - Slicer Client (filtre TCD) - Slicer Periode - Module VBA mod_Slicers Phase 8 - Design: - Palette couleurs (#2C3E50, #27AE60, #ECF0F1) - Mise en forme professionnelle - Formats nombres EUR/heures - Module VBA mod_Design Fichier converti en .xlsm (macros) 🤖 Generated with [Claude Code](https://claude.com/claude-code) 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
|