Discussion :

[alain16]

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

[Invité]

Bonsoir Alain16

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

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

[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