Renommer TCD à la date+onglet de couleur généré par macro

ptiot70

XLDnaute Nouveau
Bonjour,

J'ai créer une macro qui me génère un TCD et je souhaiterais que cette macro renomme la feuille du TCD à la date du jour en format ddmmyy (ex : 120914) et que cette feuille soit de couleur rouge. A l'heure actuelle, ma macro plante car elle génère une feuille pour le TCD renommé feuil16 tous les jours.
Je ne peux pas joindre le fichier car il fait encore 8mo une fois compressé

Merci

macro.JPG

Sub TCD_auto()
'
' TDC_auto Macro
'

'
Range("H2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-7],13)"
Range("H3").Select
Columns("H:H").EntireColumn.AutoFit
Range("H1").Select
ActiveCell.FormulaR1C1 = "'DATES"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H39962")
Range("H2:H39962").Select
Range("I2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],2)"
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I39962")
Range("I2:I39962").Select
Range("I1").Select
ActiveCell.FormulaR1C1 = "'CRENEAUX"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-6],7)"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J39962")
Range("J2:J39962").Select
Range("J1").Select
ActiveCell.FormulaR1C1 = "'USERS"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-7],6)"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K39962")
Range("K2:K39962").Select
Range("K1").Select
ActiveCell.FormulaR1C1 = "'POSTES"
Range("A1:K39962").Select
Range("K2").Activate
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"0309!R1C1:R39962C11", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Feuil3!R3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10
Sheets("Feuil3").Select
Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Temps"), "Somme de Temps" _
, xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("USERS")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"CRENEAUX")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("POSTES")
.Orientation = xlColumnField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("POSTES")
.Orientation = xlColumnField
.Position = 1
End With
Range("A2").Select
End Sub

Merci pour votre aide
 

Pièces jointes

  • macro.JPG
    macro.JPG
    37.3 KB · Affichages: 46
  • macro.JPG
    macro.JPG
    37.3 KB · Affichages: 41

Discussions similaires

Statistiques des forums

Discussions
313 281
Messages
2 096 784
Membres
106 748
dernier inscrit
Abdel93