Bonjour,

J'aimerai optimiser ce bout de programme afin d'éviter l'ouverture des fenêtres pour leurs traitement et optimiser ainsi la mémoire utilisé ainsi que la vitesse de traitement.

dsl je met un peux le code en vrac, n'hésitez pas si vous avec des question....

je pense que c'est plus la seconde et troisiéme partie qui peuvent apporter quelque chose, notamment par ce qu'elles se répète dans le programme et que je traite environ 1500 ligne (variable j).
la première partie c'est au cas où.

Merci d'avance.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
'On compte le nombre de demande de projet à traiter
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
        (NomFichier), FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
 
Windows(objNomFichier & ".xls").Activate
Sheets("exportAssociations").Select
 
Sheets("exportAssociations").Copy Before:=Workbooks( _
        NomFichier & ".xlsx").Sheets(1)
 
        Application.DisplayAlerts = False
        Sheets("Feuil1").Delete
        Application.DisplayAlerts = True
 
        Workbooks(objNomFichier & ".xls").Close False
 
    Sheets("exportAssociations").Select
    Derlig = Range("A" & Rows.Count).End(xlUp).Row
 
    'For j = 1 To Derlig
        If Rows(j).Hidden = False Then
 
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'On Copie la Feuille "Mise en Forme" à la suite du tableau
 
    Windows("Macro Plan MDT.xlsm").Activate
    Sheets("Mise en Forme").Select
 
Sheets("Mise en Forme").Copy after:=Workbooks( _
        NomFichier & ".xlsx").ActiveSheet
            ActiveSheet.Name = j
 
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'On liste les Nom de colonnes et l'adresse du text associé
    Sheets("exportAssociations").Select
Dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
 ReDim Tabl(Dercol, 2) As Variant
 
    Windows(objNomFichier & ".xlsx").Activate
    Sheets("exportAssociations").Select