Discussion :

[valery.petit]

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

[Franc]

Perso, pour ne pas afficher à l'écran de longs traitements sur plusieurs fenêtres j'utilise Application.Screenupdating=false avant le traitement et Application.Screenupdating=true après, ça fait gagner du temps.

[valery.petit]

Merci,

je viens de l'ajouter,
par contre j'ai bien encore 2/3 minute de traitement....

[Philippe Tulliez]

Bonjour,
Les méthodes Activate, Select, etc. sont à proscrire. Elle sont inutiles et ralentissent l'exécution du programme
Pourquoi utiliser Windows au lieu de Workbooks ?

Exemple rapide

Code :

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

1
2
3
4
5
6
7
Sub t()
 Dim objNomFichier As String
 Dim SheetName As String
 SheetName = "Freedate"
 objNomFichier = "TimeSheet_db"
 Workbooks(objNomFichier & ".xlsb").Sheets(SheetName).Copy Before:=Workbooks(objNomFichier & ".xlsm").Sheets(1)
End Sub

[valery.petit]

Bonjour,
Les méthodes Activate, Select, etc. sont à proscrire. Elle sont inutiles et ralentissent l'exécution du programme
Pourquoi utiliser Windows au lieu de Workbooks ?

Par ce que j'y connais rien en VBA et que je ne fais que des copier/coller

Exemple rapide

Code :

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

1
2
3
4
5
6
7
Sub t()
 Dim objNomFichier As String
 Dim SheetName As String
 SheetName = "Freedate"
 objNomFichier = "TimeSheet_db"
 Workbooks(objNomFichier & ".xlsb").Sheets(SheetName).Copy Before:=Workbooks(objNomFichier & ".xlsm").Sheets(1)
End Sub

C'est bien à ça que je pensais.
j'ai aussi déplacé une partie de mon code hors des boucles la répétition de la tache n'étant pas nécessaire.

je test ça fin de semaine.

Merci à toi