Bonjour,

Le code suivant ne fonctionne que si je l'exécute pas à pas :

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
Sub Export_Gif()
Dim Plage As Range
Dim Répertoire As String
 
    Set Plage = Range("Plage_Stat")
    Répertoire = ThisWorkbook.Path
 
    Application.ScreenUpdating = False
    Workbooks.Add
    Plage.CopyPicture
    ActiveSheet.Paste
    With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
        .Paste
        .Export Répertoire & "\Stats " & Format(Now, "yyyy.mm.dd - hh""h""nn") & ".gif", "gif"
    End With
    ActiveWorkbook.Close False
End Sub
Il y a donc quelque chose qui m'échappe. Une histoire de DoEvents ? Ou autre chose ?!

Par ailleurs, ça ne m'intéresse pas de stocker ce Gif ; je souhaiterais simplement qu'il s'ouvre quand on exécute cette procédure (quitte à ce qu'il soit supprimé du répertoire après lecture)

En vous remerciant d'avance pour vos lumières,
Cordialement,
jp