Discussion :

[Adilleroy]

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

[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

[Adilleroy]

donc le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ???

[EmmanuelleC]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Adilleroy]

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