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