optimisation programme VBA

Version imprimable

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....:oops:

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:

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

28/04/2019, 18h06
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.
28/04/2019, 18h14
valery.petit

Merci,

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

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:

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

Citation:

Envoyé par 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 ?

Par ce que j'y connais rien en VBA et que je ne fais que des copier/coller :?
Citation:
Envoyé par Philippe Tulliez
Exemple rapide
Code:

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