Bonjour à tous ,

vous pouvez m'expliquez ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Sub CreationFichierDatas()
 
Application.ScreenUpdating = False  'Mise à jour d'écran désactivée
Application.Interactive = False     'Bloque les interactions souris-clavier
Application.Calculation = xlCalculationManual   'Mode de calcul manuel
 
With ThisWorkbook
    .Worksheets("Conversion templates").Visible = xlSheetVisible
    .Worksheets("Résultats finaux templates").Visible = xlSheetVisible
    .Worksheets("Performances templates").Visible = xlSheetVisible
    .Worksheets("Résultats finaux Imin templates").Visible = xlSheetVisible
    .Worksheets("Performances Imini templates").Visible = xlSheetVisible
 
    .Sheets(Array("Conversion templates", "Résultats finaux templates", "Performances templates", "Résultats finaux Imin templates", "Performances Imini templates")).Copy
 
    .Worksheets("Conversion templates").Visible = xlSheetHidden
    .Worksheets("Résultats finaux templates").Visible = xlSheetHidden
    .Worksheets("Performances templates").Visible = xlSheetHidden
    .Worksheets("Résultats finaux Imin templates").Visible = xlSheetHidden
    .Worksheets("Performances Imini templates").Visible = xlSheetHidden
End With
 
With ActiveWorkbook
    Worksheets("Conversion templates").Name = "Conversion"
    Worksheets("Résultats finaux templates").Name = "Résultats finaux"
    Worksheets("Performances templates").Name = "Performances"
    Worksheets("Résultats finaux Imin templates").Name = "Résultats finaux Imini"
    Worksheets("Performances Imini templates").Name = "Performances Imini"
End With