Différence macro pas à pas vs exécution complète malgré application.wait

Version imprimable

Bonsoir à tous,

je vous écris concernant un problème rencontré sur une macro qui me sélectionne une plage sous excel puis l'enregistre en format JPG à un emplacement donné.
Elle fonctionne très bien lorsque je la test en mode pas à pas mais lorsque je la lance en complet cela ne donne pas le même résultat. En mode éxécution, l'image enregistrée est blanche et encadrée (fond du graphique crée).

J'ai essayé d'insérer Application.Wait (Now + TimeValue("0:00:05")) aux endroits clés mais rien n'y fait, je n'ai que les fonds blancs d'enregistrés vs l'image souhaité en mode pas à pas.

Pouvez vous svp m'aider si quelqu'un a déjà connu ce cas ?

Merci beaucoup.
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 Sub creation_images() Dim i As Variant Dim dept As Variant Dim nom As Variant Dim plage As Range Sheets("Pivot").Select i = 2 While Cells(i, 1) <> "" dept = Cells(i, 1) nom = Cells(i, 3) Sheets(dept).Select With Sheets(dept) Set plage = .Range("D10:Q389") plage.CopyPicture With .ChartObjects.Add(plage.Left, plage.Top, plage.Width, plage.Height).Chart .Paste .Export "C:\Users\pchatela\Desktop\Frais Généraux\Dept FGX fichiers détail\" & dept & "\" & nom & ".jpg" End With .ChartObjects(.ChartObjects.Count).Delete End With Sheets("Pivot").Select i = i + 1 Wend End Sub

08/08/2021, 08h42
ONTAYG

Bonjour,

A la place du Wait essayes d'utiliser l'instruction DoEvents.

ONTAYG

Bonjour,

Dans le doute évite les select, tu l'as bien fait au milieu de ta macro mais pas au début
Et je plussoie l'utilisation du doevents

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
44
 
Sub creation_images()
 
Dim i As Variant
Dim dept As Variant
Dim nom As Variant
Dim plage As Range
 
'Sheets("Pivot").Select
'i = 2
'While Cells(i, 1) <> ""
'dept = Cells(i, 1)
'nom = Cells(i, 3)
'Sheets(dept).Select
with Sheets("Pivot")
i = 2
While .Cells(i, 1) <> ""
dept = .Cells(i, 1)
nom = .Cells(i, 3)
end with
 
With Sheets(dept)
 
Set plage = .Range("D10:Q389")
 
plage.CopyPicture
 With .ChartObjects.Add(plage.Left, plage.Top, plage.Width, plage.Height).Chart
        .Paste
        .Export "C:\Users\pchatela\Desktop\Frais Généraux\Dept FGX fichiers détail\" & dept & "\" & nom & ".jpg"
 
 End With
   .ChartObjects(.ChartObjects.Count).Delete
 
 
End With
 
'Sheets("Pivot").Select
 
i = i + 1
 
doevents
Wend
 
End Sub