[RESOLU] Macro qui ne fonctionne que pas à pas ?

Version imprimable

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:

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

Bonsoir Alain16

Mieux vaut éviter les "With" dans ce genre de cas ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ExportRange2jpg()  Dim zoneGraph As ChartObject
  Dim Sht As Worksheet, Rng As Range
  Dim sPath As String
  '
  sPath = ThisWorkbook.Path & "\" & Replace(Replace(Replace(Now, " ", "-"), "/", ""), ":", "") & ".jpg"
  Set Sht = Sheets("Séries BBo")
  Set Rng = Sht.Range("G1:O24")
  Rng.CopyPicture xlScreen, xlBitmap
  Set zoneGraph = Sht.ChartObjects.Add(0, 0, Rng.Width, Rng.Height)
  zoneGraph.Activate
  With zoneGraph.Chart
    .Paste
    .Export sPath, "JPG"
  End With
  zoneGraph.Delete
End Sub

Joyeux Noël ;)

25/12/2023, 21h27
alain16

Merci BrunoM45
Ce code fonctionne parfaitement.
Je reste quand même un peu frustré car je ne sais pas pourquoi le mien ne fonctionnait pas .
Merci encore et joyeux Noel aussi
Cordialement