Discussion :

[PhilippeF75]

Bonjour,
Je suis sous Excel 2016 et VBA 7.1 et cette solution qui marchait très bien sous Excel-2010 ne fonctionne plus.
En fait, elle fonctionne en mode pas à pas d'exécution de la macro mais pas en mode d’exécution normal.
Le problème se situe entre les lignes .Paste et .Export :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  With Chart1
                .Paste
                .Export Chemin & NomImage, "jpg"
            End With

En pas à pas le Paste s'exécute et l'image sauvegardée est bonne, en mode exécution, le Paste ne s'exécute pas et l'image sauvegardée est vide.
Ajouter un DoEvents ou un Sleep entre les deux n'y fait rien...
Quelqu'un a t-il une idée ?

[Invité]

Bonjour,

Je viens de constater le problème. Effectivement, le collage ne passe pas en automatique alors que le pas à pas fonctionne. J'ai essayé de changer plusieurs paramètres sans succès. La recherche continue (sans garantie).

[unparia]

Bonjour
La description du problème donne à penser que la méthode Export intervient alors que la méthode Paste n'a pas terminé totalement son travail graphique.
Utiliser Sleep ne servirait à rien, puisque Cela aurait pour effet d'interrompre tout travail
Application.Wait interrompt l'exécution de la macro, mais je ne sais pas si interrompt également tout le reste.
Un seul Doevents risque d'être trop "court"

Je n'ai pas office 2016 mais proposerais volontiers :
- soit des doevents en boucle
- soit l'utilisation de application.Ontime pour déclencher un peu plus tard une procédure distincte ne contenant que la méthode export

"proposerais volontiers", mais à mon grand regret car aucune de ces propositions n'est totalement orthodoxe.

[patricktoulon]

re
la gestion d'attente du bitmap dans le clipboard ne peut se faire vraiment correctement que par une api dans un do loop
c'est l'api IsClipboardFormatAvailable
declaration 32 bit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function IsClipboardFormatAvailable Lib "User32" (ByVal wFormat As Integer) As Long

le format attendu c'est 2 en hex c'est "&H2"
boucle d'attente

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'on va boucler dans que le contenu du clipboard n'est pas BITMAP soit (2)
    Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(2): Loop While hPicAvail = 0

pour le format metafile c'est "14"

[PhilippeF75]

Merci pour vos réponses.
Je viens d'essayer la solution de PatrickToulon.
Malheureusement, la boucle est infinie car le Paste ne se fait toujours pas...
Donc le problème est légèrement en amont.

[Invité]

J'ai aussi testé la solution de Patrick, sans résultat également. Le debug.print hPicAvail donne 1.

[patricktoulon]

@philippe

Je suis sous Excel 2016 et VBA 7.1

il te faut faire la declaration en consequence bien evidement j'ai donné la declaration 32 bit vba 6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long

[Pierre Fauconnier]

Ne fonctionne pas chez moi non plus...

[EDIT] le pouce rouge n'y change rien... [/EDIT]

[patricktoulon]

milles excuse a tous le".copypicture envoit dans le clipboard au format metafile c'est donc bien 14 comme je l'ai sugeré plus haut

perso j'utilise copy avec xlscreen ou xlbitmat donc le format bitmap attendu dans le clipboard
pour en revenir ici
voici un exemple tester sur windows 7 64 bits et excel 2007 32 bits
je vide le clipboard entre chaque copie pour tester vraiment le do/loop de l'api IsClipboardFormatAvailable

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
24
Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As Long
Sub exporte_image()
    Dim Plage1 As Range
    Dim Plage2 As Range
    Dim chart1 As Object
    Dim chart2 As Object
    With Sheets("Feuil1")
        mesplage = Array("A2:K68", "A69:K180")
        For i = 0 To UBound(mesplage)
            Set Plage = .Range(mesplage(i))
            Debug.Print IsClipboardFormatAvailable(2)
            With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With    'on vide le clipboard entre chaque copie pour tester vraiment le available
            Plage.CopyPicture
            Debug.Print IsClipboardFormatAvailable(14)    ' CopyPicture atterit  dans  le clipboard  en  metafile
            Set chart1 = .ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height).Chart
            Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(14): Loop While hPicAvail = 0    'Or (Timer - T) > 1000
            Debug.Print IsClipboardFormatAvailable(14)    ' CopyPicture atterit  dans  le clipboard  en  metafile
            chart1.Paste
            chart1.Export Environ("userprofile") & "\Desktop\image_" & i & ".jpg", "jpg"
            .ChartObjects.Delete
        Next
 
    End With
End Sub

encore une fois milles excuses
perso j'utiliserais copypîcture seulement si j'utiliserais olecreatepictureindirect avec le guid complet de data (0) a data(8) pour sauver le Hpic en jpg
copier en xlbitmap est suffisant ou xlscreen si il y est sensé avoir des shapes a prendre avec dans la capture

ps; debrouillez vous pour la decaration 64 bit vba 7 perso je ne peux pas tester chez moi 2007 et 2010 32 bits

pour info
avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Plage.CopyPicture xlBitmap '

on a les valeurs ,les object presents au niveau de la page,MAIS!! pas le gridline
et le do /loop c'est avec 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(14): Loop While hPicAvail = 0    'Or (Timer - T) > 1000

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

plage.copypicture xlscreen

on a a tout (les shapes ,tout objects,gridline ,etc...)meme si la fentre application est reduite
et le do/loop c'est 2 aussi (bitmap)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(14): Loop While hPicAvail = 0    'Or (Timer - T) > 1000

pour info aussi si utilisation de sendkey(touchesnapshot) c'est bitmap aussi(pour une capture de userform par exemple
voila
j'espere qu'avec tout ca je suis pardonné sinon tant pis

[Pierre Fauconnier]

Ca ne fonctionne pas non plus avec 14... (j'avais testé puisque tu le mentionnais dans ton post)

[patricktoulon]

vraiment bisarre ca
demo avec debug

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
24
25
26
 
Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As Long
Sub exporte_image()
    Dim Plage1 As Range
    Dim Plage2 As Range
    Dim chart1 As Object
    Dim chart2 As Object
    With Sheets("Feuil1")
        mesplage = Array("A2:K68", "A69:K180")
        For i = 0 To UBound(mesplage)
            Debug.Print "copie de la plage(" & i & ")"
            Set Plage = .Range(mesplage(i))
            With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With    'on vide le clipboard entre chaque copie pour tester vraiment le available
            Debug.Print "contenu  du  clipboard avant copie =""" & CreateObject("htmlfile").parentwindow.clipboardData.GetData("Text") & """"
            Debug.Print "avant copi format attendu est 14 0 pour faux 1 pour vrai donc il est à " & IsClipboardFormatAvailable(14)
            Plage.CopyPicture
            Set chart1 = .ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height).Chart
            Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(14): Loop While hPicAvail = 0    'Or (Timer - T) > 1000
            Debug.Print "contenu format (14) apres do/loop = " & IsClipboardFormatAvailable(14)    ' CopyPicture atterit  dans  le clipboard  en  metafile
            chart1.Paste
            chart1.Export Environ("userprofile") & "\Desktop\image_" & i & ".jpg", "jpg"
            .ChartObjects.Delete
        Next
 
    End With
End Sub

resultat

j'invente pas pourtant

[Pierre Fauconnier]

Patrick,

Ton test dit que le clipboard contenait bien un truc de type 14. Ca ne dit pas que le fichier image a été produit correctement et que c'est une image conforme à la plage souhaitée.

Voici probablement pourquoi ça ne fonctionne pas. Regarde le premier message de la discussion. Tu y verras un lien vers une discussion parlant d'une solution donnée par Eric sur la version 2010. Le demandeur dit explicitement que cette solution ne fonctionne pas sur 2016. Et toi, tu viens avec une version XL2007. Comment veux-tu que tes tests soient pertinents? Il y a de fortes chances pour que ça ne passe pas la barre 2007=>2016 si ça ne passe pas la barre 2010=>2016, non?

[unparia]

Pour rappel :

Je suis sous Excel 2016 et VBA 7.1 et cette solution qui marchait très bien sous Excel-2010 ne fonctionne plus.
En fait, elle fonctionne en mode pas à pas d'exécution de la macro mais pas en mode d’exécution normal.

[patricktoulon]

si elle passe en pas a pas alors voir si l'api est toujours prise en compte en vba 7 ou voir declaration pour "#if VBA7 versionapi 1 ELSE version api 2 END IF " en haut de module

je testerais demain avec le pc du pitchoun il a W10 et 2016 je verrais bien

[patricktoulon]

Ton test dit que le clipboard contenait bien un truc de type 14. Ca ne dit pas que le fichier image a été produit correctement et que c'est une image conforme à la plage souhaitée.

mon test n'est pas fait pour tester un fichier produit mais le format de données dans le clipboard apres copypicture et do/loop c'est tout

etant donné que je le vide avant copypicture ce qui est dans le clipboard apres do/loop ne peut etre que les metadonnées image de la plage format (14)
je testerais demain avec le portable du petit
je vais faire une recherche vba 7 avec cet api je suis curieux
moi qui voulais passer a 2016 199€ pour etre emm... non merci
rassure moi il existe bien en 32 bits au moins

toute page confondues dans ma recherche amennent a ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
#If VBA7 And Win64 Then
    Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32.dll" (ByVal wFormat As Long) As Long
#Else
    Private Declare Function IsClipboardFormatAvailable Lib "user32.dll" (ByVal wFormat As Long) As Long
#End If

[PhilippeF75]

Bonsoir à tous (chez moi, c'est encore le soir...)
Je vois que ça agite bien ce sujet !
Précision : je suis sous Excel 2016 et VBA 7.1 en 32 bits sous Windows 10 (64 bits).

[Invité]

Bonjour Patrick,

J'ai testé ton code du post #11 avec la même configuration que Philippe.

Le code plante à la deuxième image.

Pièce jointe 371361

Pièce jointe 371365

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
copie de la plage(0)
contenu  du  clipboard avant copie =""
avant copie format attendu est 14 0 pour faux 1 pour vrai donc il est à 0
contenu format (14) apres do/loop = 1
copie de la plage(1)
contenu  du  clipboard avant copie =""
avant copie format attendu est 14 0 pour faux 1 pour vrai donc il est à 0
contenu format (14) apres do/loop = 1

[Pierre Fauconnier]

Patrick,

La solution demandée n'est pas de savoir ce qu'il y a dans le clipboard (on s'en fout, en fait), la solution demandée est d'obtenir un fichier image qui est la représentation fidèle de la plage souhaitée.

Tout test qui n'aboutirait pas à ce résultat est invalide. Par contre, teste la solution de la toute première discussion (celle mise en lien dans le premier message de cette discussion-ci) en 2007, sans boucle, api et compagnie. Obtiens-tu une un fichier image correct? Si oui, ça permettrait de savoir que 2007 travaille comme 2010, et donc que le problème est ultérieur à 2010. Il serait alors intéressant de tester en 2013 pour essayer de voir à partir de quand ça pose problème (bien que plusieurs facteurs puissent entrer en ligne de compte).

Mais quoi qu'il en soit, en 2016, ça ne fonctionne plus (pas de fichier image fidèle), et c'est bien cela qui doit être résolu (obtention de ladite image), et pas des tests sur des api qui vérifient que... Et je ne pense pas que ce soit l'appel de la fonction de l'api qui soit en cause.

[pijaku]

Bonjour,

Essayez en "activant" le Chart :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Chart1
   .Paste
   .Activate
   .Export Chemin & NomImage, "jpg"
End With

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Chart1
   .Activate
   .Paste
   .Export Chemin & NomImage, "jpg"
End With

Second essai : préciser les noms des paramètres nommés utilisés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Chart1
   .Paste
   .Activate
End With
ActiveChart.Export Filename:=Chemin & NomImage, FilterName:="jpg"

[patricktoulon]

Patrick,

La solution demandée n'est pas de savoir ce qu'il y a dans le clipboard (on s'en fout, en fait), la solution demandée est d'obtenir un fichier image qui est la représentation fidèle de la plage souhaitée.

Tout test qui n'aboutirait pas à ce résultat est invalide. Par contre, teste la solution de la toute première discussion (celle mise en lien dans le premier message de cette discussion-ci) en 2007, sans boucle, api et compagnie. Obtiens-tu une un fichier image correct? Si oui, ça permettrait de savoir que 2007 travaille comme 2010, et donc que le problème est ultérieur à 2010. Il serait alors intéressant de tester en 2013 pour essayer de voir à partir de quand ça pose problème (bien que plusieurs facteurs puissent entrer en ligne de compte).

Mais quoi qu'il en soit, en 2016, ça ne fonctionne plus (pas de fichier image fidèle), et c'est bien cela qui doit être résolu (obtention de ladite image), et pas des tests sur des api qui vérifient que... Et je ne pense pas que ce soit l'appel de la fonction de l'api qui soit en cause.

j'avais deja testé tout au debut :elle fonctionne sauf que l'auteur du post 1 dans le lien a oublié de deleter le 2 chart

@eric si ca plante au 2d c'est deja plus significatif ca voudrais dire que il y a un temps requis aussi pour le delete du 1 er chart et la creation du 2d
l'ors du plantage dans le debug est que l'on est bon ?
essayer un doevents juste avant next mais bon si c'est ce que je crois on a un serieux soucis de memoire alloué

peut etre aussi essayer avec un seul chart