Discussion :

[Gorzyne]

Bonjour à tous alors voilà le problème du jour j'ai une macro qui fonctionne correctement, sauf sous les postes sous Excel 2016
La macro fonctionne pas à pas, par contre

Le bug se produit au niveau d'une macro qui copie un tableau en image, le met dans un chart, et ensuite le sauve en jpg

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
 
Sub export_jpg(mytab)
    erk = 0
    On Error GoTo boucle0
    Range(mytab).CopyPicture
    ThisWorkbook.Activate
    ActiveSheet.Paste
 
    On Error GoTo 0
 
    With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
       .Paste
        .Export Filename:=ThisWorkbook.Path & "\Graphique1.jpg", filtername:="JPG"
    End With
 
boucle0:
    If erk < 10 Then
        Range(mytab).CopyPicture
        Resume Next
    End If
End Sub

En général il copie bien le tableau en image (j'insiste un peu avec la gestion d'erreur si jamais il refuse)
après c'est au moment de copier dans le chart qu'il me met juste un blanc, du coup il exporte une image blanche...
le problème se situerait donc autour de la ligne .Paste

étant donné que la macro fonctionne sur un poste < 2016 et fonctionne sous 2016 en pas à pas, je me dis que c'est un souci classique de gestion de presse papiers, enfin une histoire du genre
est ce que le fais d'ajouter le graphique (.add) et de faire un .paste dans la foulée est pas too much.. bizarre

j'ai essayé de mettre des temporisations et des DoEvents partout pour l'aider à digérer mais ça a pas changé grand chose

Merci beaucoup pour votre aide
Gorz

[joe.levrai]

Bonjour,

peut-être une question de temporisation

essaye de faire un Wait d'une seconde ou deux avant/après le paste
ne pas négliger DoEvents au passage, on sait jamais

[unparia]

Bonjour
Méfie-toi également des objets ThisWorkbook et ActiveSheet. Ils jouent parfois des tours.
Ne leur fais pas confiance et préfère spécifier toi-même ces objets. Cela te libèrera en outre de la nécessité d'activer.

[Gorzyne]

Merci beaucoup !

Bonne journée à tous.