Expliquation d'un Code

Version imprimable

Bonjour à tous ,

vous pouvez m'expliquez ce code :

Code:

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

19/05/2010, 14h26
EmmanuelleC

il réafiche des feuilles cachées ("Conversion templates", "Résultats finaux templates", "Performances templates", "Résultats finaux Imin templates" et "Performances Imini templates"),
il les copie dans un nouveau classeur,
il les recache dans le classeur de départ
il les renomme dans le nouveau classeur

en clair, il fait un nouveau classeur qui a un certain template

ps : il me semble que pour la partie renommer, on est supposé mettre des . au début des lignes
19/05/2010, 14h43
Adilleroy

donc le code :

Code:

Sheets(Array("Conversion templates", "Résultats finaux templates", "Performances templates", "Résultats finaux Imin templates", "Performances Imini templates")).Copy

le .sheets voulait dire feuille ? et array crer un tableau de feuille ???
19/05/2010, 15h19
EmmanuelleC

Code:

ThisWorkbook.Sheets("sheet1").Copy

serait le code pour copier une feuiller dans un nouveau classeur

le array permet de copier plusieurs feuilles dans le meme nouveau classeur
va peut-etre voir ce tuto
http://silkyroad.developpez.com/vba/tableaux/#LVI

c'est pour résumer beaucoup une fonction qui permet de dire "fait le une fois pour chacun de ces éléments" (en l'occurence, copie le dans le nouveau classeur)
19/05/2010, 15h33
Adilleroy

Merci Beaucoup !!! c'est sympas de ta part de me répondre .