Discussion :

[tamtam64]

Bonjour, j'ai un probleme récurrent avec un code, ce code genere un espace blanc pour copier un graph , mais des fois il bloque et il genere une erreure avec l'espace blanc ( donc le copiage ne fonctionne pas) et je dois suprimer a la main l'espace blanc et remonter la fleche jaune sur le with . le code n'est il pas bien ecrit?
Le code copie le graph et je l'utilise dans un mail de reporting. Je ne gere pas trop les graphique et son model objet. Des fois le code marche et d'autres fois non.

Code :

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

1
2
3
4
5
6
7
8
9
10
        '1) Bis  : copie en image le graph pnl
    graph1 = "graph.gif"
    With ThisWorkbook.Worksheets("HistoPnL")
        .ChartObjects("Graphique 14").Chart.CopyPicture
         With .ChartObjects.Add(0, 0, 400, 200)
              .Chart.Paste
              .Chart.Export PathTmp & graph1, "gif"
         End With
        .ChartObjects(.ChartObjects.Count).Delete
    End With

[SfJ5Rpw8]

Bonjour,

pas vraiment clair :
- de quel espace blanc parle tu ? ou ?
- de quel with ?

[patricktoulon]

Bonjour
sale manie de débutant le copier coller

tu copie un graph ,tu en en créé un autre pour le sauver en image
tu n'a pas l'impression de faire quelque chose en trop la !!!!!

pourquoi ne pas exporter directement celui que tu copie?????????sans le copier bien évidement
entre nous hein j'dis ca moi j'dis rien

[tamtam64]

Alors dis rien c'est mieux
Dsl de te décevoir mais ce code est le mien et clairement pas un copier collé, et oui dsl je ne suis pas né avec des connaissances en VBA , mais toi tu as eu de la chance . Pour repondre a ta question c'est dans un email et je recupere l'image qu'au moment de l'utilisation de la partie html et comme je ne veux pas ( mon maitre de stage ne veut pas d'un range , je dois lui mettre une image)
Sinon pour le message avec un peu plus d'interet, alors tout simplement peut etre me proposer une autre fonction ou autre methode . Car j'ai un graphique dans mon workbook, et je souhaite pouvoir le récuperer sous forme d'image dans un mail en html ( le body est ecrit en html ).
Ce qui est assez suprenant c'est qu'en mode pas a pas il n'y a pas de pb et 3/5 il n'y a pas d'erreur mais 2/5 j'ai un message d'erreur avec un copy picture qui n'a vraissemblablement pas fonctionné puisque l'espace créé pour copier le graphique est blanc ...
On dirait qu'il va trop vite ou se melange les pedales.

Merci a vous

[patricktoulon]

re
bon visiblement tu n'a pas compris ma remarque tu n'a retenu que les boutades
exemple

Code :

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

1
2
3
4
5
6
7
8
dim chemin ,nom
chemin="C:\mondossier\"
nom="la_tete_a_toto"

with ThisWorkbook.Worksheets("HistoPnL")
        .ChartObjects("Graphique 14").Chart.Export Filename:=Fich & Nom & ".gif", FilterName:="GIF"
                 End With

c'est plus clair la ?
comme tu peut le voir je ne copie pas le graph pour coller la copie dans un graph provisoire je l'exporte directement

on se sert d'un graph provisoire pour exporter une image ou une plage de cellule en image

allez le rct

[tamtam64]

Ah bin génial , ca marche nikl . Merci beaucoup effectivement le copier directement c'est mieux, j'i bien compris