Private Sub CommandButton1_Click()
'pour fusionner plusieurs classeurs d'un même répertoire
ChDir ActiveWorkbook.Path
Set classeurMaitre = ActiveWorkbook
compteur = 1
nf = Dir("*.xls")
Do While nf <> ""
If nf <> classeurMaitre.Name Then
Workbooks.Open Filename:=nf
For k = 1 To Sheets.Count
Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = "CM" & compteur
compteur = compteur + 1
Next k
Workbooks(nf).Close False
End If
nf = Dir
Loop
Sheets("Fusion").Activate
'pour fusionner les onglets du classeur
For i = 2 To Sheets.Count
With Sheets(i)
T = .Range("A2:K" & .Range("A200000").End(xlUp).Row).Value
Range("A200000").End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
End With
Next
Sheets("Fusion").Activate
Range("A2").Select
'pour supprimer les onglets après fusion
Application.DisplayAlerts = False
If Sheets.Count > 1 Then
Sheets("Fusion").Move before:=Sheets(1)
Sheets(2).Select
For i = 2 To Sheets.Count
ActiveSheet.Delete
Next i
End If
Sheets("Fusion").Activate
'concaténer
Range("J200000").Select
ActiveCell.FormulaR1C1 = _
"=[@[Motif du contact - Réservation]]&[@[Motif du contact - Refus de réservation]]&[@[Motif du contact - Information]]&[@[Motif du contact - Billettique]]&[@[Motif du contact - Autre]]"
Range("J200000").Select
Selection.AutoFill Destination:=Range("CM_reponses[Motifs fusionnés]"), Type _
:=xlFillDefault
Range("CM_reponses[Motifs fusionnés]").Select
Columns("E:I").Select
Range("CM_reponses[[#Headers],[Motif du contact - Autre]]").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A2").Select
'billettique
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"CM_reponses", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Feuil10!R3C1", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Feuil10").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("Horodateur"), _
"Nombre de Horodateur", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Thème du contact")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Motifs fusionnés")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Thème du contact")
.PivotItems("Autre").Visible = False
.PivotItems("Information").Visible = False
.PivotItems("Refus de réservation").Visible = False
.PivotItems("Réservation").Visible = False
.PivotItems("(blank)").Visible = False
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").TableStyle2 = _
"PivotStyleMedium2"
ActiveSheet.PivotTables("Tableau croisé dynamique2"). _
ShowTableStyleColumnStripes = True
Range("B4:B8").Select
Selection.NumberFormat = "0.00"
Selection.Style = "Comma"
Selection.NumberFormat = _
"_-* #,##0.0 _€_-;-* #,##0.0 _€_-;_-* ""-""?? _€_-;_-@_-"
Selection.NumberFormat = "_-* #,##0 _€_-;-* #,##0 _€_-;_-* ""-""?? _€_-;_-@_-"
Range("B8").Select
Sheets("Feuil10").Select
Sheets("Feuil10").Name = "Billettique"
Sheets("Billettique").Select
Sheets("Billettique").Move After:=Sheets(2)
Sheets("Billettique").Select
ActiveWindow.DisplayGridlines = False
Sheets("Fusion").Select
Range("A2").Select
'médias entrants
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"CM_reponses", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Feuil11!R3C1", TableName:="Tableau croisé dynamique3", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Feuil11").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields("Horodateur"), _
"Nombre de Horodateur", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Média du contact")
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Média du contact")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3"). _
ShowTableStyleColumnStripes = True
ActiveSheet.PivotTables("Tableau croisé dynamique3").TableStyle2 = _
"PivotStyleMedium2"
Selection.Style = "Comma"
Range("B4:B8").Select
Selection.Style = "Comma"
Selection.NumberFormat = _
"_-* #,##0.0 _€_-;-* #,##0.0 _€_-;_-* ""-""?? _€_-;_-@_-"
Selection.NumberFormat = "_-* #,##0 _€_-;-* #,##0 _€_-;_-* ""-""?? _€_-;_-@_-"
ActiveWindow.DisplayGridlines = False
Range("B8").Select
Sheets("Feuil11").Select
Sheets("Feuil11").Move After:=Sheets(2)
Sheets("Feuil11").Select
Sheets("Feuil11").Name = "Médias entrants"
Sheets("Fusion").Select
Range("A2").Select
'nombre de réservations
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"CM_reponses", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Feuil12!R3C1", TableName:="Tableau croisé dynamique4", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Feuil12").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Horodateur"), _
"Nombre de Horodateur", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Thème du contact")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Thème du contact")
.PivotItems("Autre").Visible = False
.PivotItems("Billettique").Visible = False
.PivotItems("Information").Visible = False
.PivotItems("Refus de réservation").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Média du contact")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique4"). _
ShowTableStyleColumnStripes = True
ActiveSheet.PivotTables("Tableau croisé dynamique4").TableStyle2 = _
"PivotStyleMedium2"
Range("B4:B9").Select
Selection.Style = "Comma"
Selection.NumberFormat = _
"_-* #,##0.0 _€_-;-* #,##0.0 _€_-;_-* ""-""?? _€_-;_-@_-"
Selection.NumberFormat = "_-* #,##0 _€_-;-* #,##0 _€_-;_-* ""-""?? _€_-;_-@_-"
ActiveWindow.DisplayGridlines = False
Range("B9").Select
Sheets("Feuil12").Select
Sheets("Feuil12").Move After:=Sheets(4)
Sheets("Feuil12").Select
Sheets("Feuil12").Name = "NB Résas"
Sheets("Fusion").Select
Range("A2").Select
'motifs des réservations
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"CM_reponses", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Feuil13!R3C1", TableName:="Tableau croisé dynamique6", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Feuil13").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique6").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique6").PivotFields("Horodateur"), _
"Nombre de Horodateur", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
"Thème du contact")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
"Motifs fusionnés")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
"Thème du contact")
.PivotItems("Autre").Visible = False
.PivotItems("Billettique").Visible = False
.PivotItems("Information").Visible = False
.PivotItems("(blank)").Visible = False
End With
ActiveSheet.PivotTables("Tableau croisé dynamique6"). _
ShowTableStyleColumnStripes = True
ActiveSheet.PivotTables("Tableau croisé dynamique6").TableStyle2 = _
"PivotStyleMedium2"
Range("B4:B19").Select
Selection.Style = "Comma"
Selection.NumberFormat = _
"_-* #,##0.0 _€_-;-* #,##0.0 _€_-;_-* ""-""?? _€_-;_-@_-"
Selection.NumberFormat = "_-* #,##0 _€_-;-* #,##0 _€_-;_-* ""-""?? _€_-;_-@_-"
ActiveWindow.DisplayGridlines = False
Range("B19").Select
Sheets("Feuil13").Select
Sheets("Feuil13").Move After:=Sheets(5)
Sheets("Feuil13").Select
Sheets("Feuil13").Name = "Motifs Résas"
Sheets("Fusion").Select
Range("A2").Select