Sub SauveGraphiqueAuFormatGif2() 'JW
Dim ChtObj As ChartObject, ws As Worksheet
Dim Counter As Long, d As Byte, f As Byte
d = Application.InputBox("Indiquez le numéro de la première feuille à traiter", , , , , , , 1)
f = Application.InputBox("Indiquez le numéro de la dernière feuille à traiter", , , , , , , 1)
If d = 0 Or f = 0 Or f < d Then MsgBox "Au moins un numéro de feuille est erroné!!! ": Exit Sub
For Each ws In Worksheets
If ws.Index >= d And ws.Index <= f Then
For Each ChtObj In ws.ChartObjects
With ChtObj
.Chart.Export .Parent.Name & " " & .Name & ".gif", "GIF"
End With
Counter = Counter + 1
Next ChtObj
End If
Next ws
MsgBox Counter & " graphiques sauvegardés dans " & CurDir
End Sub