Discussion :

[gaetandhe]

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
gaetanmacro gaetan.docx

[E KERGRESSE]

Bonjour,

Il vous reste combien d'octets sur le disque dur ?

[gaetandhe]

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

[E KERGRESSE]

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 :

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

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 :

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

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

[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.

[gaetandhe]

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?

[gaetandhe]

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

[E KERGRESSE]

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

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