Perte de performance d'une macro VBA qui fonctionnait correctement

Version imprimable

20/12/2023, 17h16
gaetandhe

1 pièce(s) jointe(s)

Perte de performance d'une macro VBA qui fonctionnait correctement

Bonjour,

Le titre n'est pas aguicheur, mais difficile d'expliquer mon problème...

contexte =
je réalise des inspections vidéos de conduits, et je fais énormément de photos.
ces photos je les insère (rais...) dans un excel pour réaliser mes annexes.

Mon programme =
sur base de déclaration des chemins dans un onglet paramètre.
lecture des noms de fichier et liste dans un onglet = fonctionne
suppression des videos = fonctionne
injection des photos dans une planche contact avec positionnement en 2 colonnes. = problème.

mon incompréhension vient du fait que la perf s'est dégradé.
au début tout tournait parfaitement
puis quelques messages au cours des procédures "la methode paste de la classe worksheet a échoué" par exemple
et maintenant ca bloque sur 1 photo sur 2 en paste ou en cut...

j'ai essayé de faire tourner le code sur un autre pc ca fonctionne... mais pas sur que ca tienne.

ca donne l'impression d'une instabilité ou d'un "réceptacle" qui ne se viderait pas et m'empecherait d'avancer... est ce possible?

les photos sont apparemment stockées sous forme de lien (est ce normal?)

je poste le code en txt car je sais que personne n'aime exécuter un xlsm

je vous remercie du temps que vous m'accorderez, je suis très embêté et si on pouvait comprendre d'ou ca vient...

Pour info à ce jour :
pilotes à jour
bios a jour
antivirus passé et repassé
ccleaner passé...

grand merci
gaetanPièce jointe 648125
21/12/2023, 04h49
E KERGRESSE

Bonjour,

Il vous reste combien d'octets sur le disque dur ? :bug:
21/12/2023, 08h15
gaetandhe

bonjour
il me reste 300 Go je pense que c'est suffisant...

Votre code est plein d'Activate qui pourraient être évités en instanciant des variables Worksheet. Une fois la variable instanciée, vous utilisez la variable sans Activate et sans Select.

Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim ShParametres As Worksheet, ShPlanche As Worksheet
 
        Set ShParametres = Sheets("paramètres")
        Set ShPlanche = Sheets.Add
        With ShPlanche
             .Name = "planche contact"
             With .Cells
                  .ColumnWidth = 66
                  .RowHeight = 235
             End With
             .Columns("A:A").ColumnWidth = 16
             .Range("A1") = "Conduit"
        End With

Sinon, mettez ces lignes dans en début et en fin de vos procédures :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With
 
    ' Suite du code
 
    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With

21/12/2023, 10h11
deedolith

Salut,

Ne serait-il pas judicieux de virer les fonctionnalités cosmétiques (qui n'ont pas l'air dynamique), et préformater les feuilles de calcul ?
Voir passer, autant que possible, par les fonctionalités natives d'Excel (formules, thèmes, formattage conditionnel ect ...) avant d'avoir recours a VBA.
21/12/2023, 10h14
gaetandhe

1 pièce(s) jointe(s)

rebonjour et merci de t'occuper de mon cas !

j'ai essayé la première partie mais j'ai un message qui dit propriété ou méthode non gérée par cet objet.
j'ai pourtant remplacé tous mes sheets("paramètres").activate par le sh parametres... ai je bien compris?
copie d'écran jointe
Pièce jointe 648153

Si vous testez cette partie de code, vous verrez bien qu'il fonctionne correctement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Injectionimages2()
 
Dim ShParametres As Worksheet, ShPlanche As Worksheet
 
        Set ShParametres = Sheets("paramètres")
        Set ShPlanche = Sheets.Add
        With ShPlanche
             .Name = "planche contact"
             With .Cells
                  .ColumnWidth = 66
                  .RowHeight = 235
             End With
             .Columns("A:A").ColumnWidth = 16
             .Range("A1") = "Conduit"
        End With
 
        Set ShParametres = Nothing
        Set ShPlanche = Nothing
 
End Sub

A quel endroit cela beugue ?

21/12/2023, 10h35
gaetandhe

Citation:

Envoyé par deedolith

Salut,

Ne serait-il pas judicieux de virer les fonctionnalités cosmétiques (qui n'ont pas l'air dynamique), et préformater les feuilles de calcul ?
Voir passer, autant que possible, par les fonctionalités natives d'Excel (formules, thèmes, formattage conditionnel ect ...) avant d'avoir recours a VBA.

bonjour,
vous parlez du formatage des colonnes, bordures et autres?

Citation:

Envoyé par E KERGRESSE

Si vous testez cette partie de code, vous verrez bien qu'il fonctionne correctement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Injectionimages2()
 
Dim ShParametres As Worksheet, ShPlanche As Worksheet
 
        Set ShParametres = Sheets("paramètres")
        Set ShPlanche = Sheets.Add
        With ShPlanche
             .Name = "planche contact"
             With .Cells
                  .ColumnWidth = 66
                  .RowHeight = 235
             End With
             .Columns("A:A").ColumnWidth = 16
             .Range("A1") = "Conduit"
        End With
 
        Set ShParametres = Nothing
        Set ShPlanche = Nothing
 
End Sub

A quel endroit cela beugue ?

dès la premiere shparametre que j'ai ajouté en dessous du code que tu m'as donné

21/12/2023, 10h47
E KERGRESSE
ShParametres ne peut pas s'employer tout seul, regarde comment j'ai utilisé ShPlanche.

Exemple pour ShParametres :
Code:

1 2 3 4 5 6 With ShParametres ' Suite du code End With
21/12/2023, 11h34
deedolith

Citation:

Envoyé par gaetandhe

bonjour,
vous parlez du formatage des colonnes, bordures et autres?

Exactement,
C'est autant de choses que les traitements n'auront pas à faire.