Phase 5-8: TCD, Graphiques, Slicers, Design

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>
This commit is contained in:
StillHammer 2025-12-30 14:33:59 +07:00
parent a19eb6207e
commit 3fe6c9e408
4 changed files with 37 additions and 0 deletions

9
scripts/close_excel.vbs Normal file
View File

@ -0,0 +1,9 @@
On Error Resume Next
Dim objExcel
Set objExcel = GetObject(, "Excel.Application")
If Not objExcel Is Nothing Then
objExcel.DisplayAlerts = False
objExcel.Quit
Set objExcel = Nothing
End If
WScript.Echo "Excel closed"

View File

@ -0,0 +1,28 @@
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

Binary file not shown.

Binary file not shown.