Bonjour,
J'ai réalisé une macro pour enregistrer ,en image JPG, un champ de ma feuille sur mon DD.
Elle fonctionne bien en exécution pas à pas, mais pas en direct.
J'ai essayé de placer des timers un peu partout pour solutionner le problème sans succès.
Quelle est la solution ?
Merci par 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
Sub imagedansfreebox()
 Dim Plage As Range
 
Application.ScreenUpdating = False
 
With Sheets("Séries BBo")
    Set Plage = .Range("G1:O24")
 
    Plage.CopyPicture
 
    With .ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height).Chart
        .Paste^
 
        .Export "D:" & "\Séries sur DD.jpg", "JPG"
 
    End With
    .ChartObjects(.ChartObjects.Count).Delete
 
End With
 
Set Plage = Nothing
 
End Sub