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:
parent
a19eb6207e
commit
3fe6c9e408
9
scripts/close_excel.vbs
Normal file
9
scripts/close_excel.vbs
Normal 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"
|
||||
28
scripts/convert_to_xlsm.vbs
Normal file
28
scripts/convert_to_xlsm.vbs
Normal 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
|
||||
BIN
templates/FreelanceDashboard.xlsm
Normal file
BIN
templates/FreelanceDashboard.xlsm
Normal file
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user