Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Exporter un graphqiue en tant qu'image

Exporter un graphqiue en tant qu'image

3 réponses
Avatar
garnote
Bonjour,

Mais qu'est-ce qui cloche dans cette macro ?
Elle bloque entre les deux * et me renvoie
"Erreur d'exécution 1004".

Sub Exporte()
Dim Plage As Range
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
'*
.Export "C:\Documents and Settings\user\Mes documents\Test.gif",
"GIF"
'*
End With
ActiveWorkbook.Close False
End Sub

Merci
Serge
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Garnote,

Une commande par ligne -> tu n'écris pas de la littérature !
C'est plus facile à lire...

'--------------------------
Sub Exporte()
Dim Plage As Range
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart
.Export "C:Documents and SettingsuserMes documentsTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
'--------------------------


Salutations!




"garnote" a écrit dans le message de news:
Bonjour,

Mais qu'est-ce qui cloche dans cette macro ?
Elle bloque entre les deux * et me renvoie
"Erreur d'exécution 1004".

Sub Exporte()
Dim Plage As Range
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
'*
.Export "C:Documents and SettingsuserMes documentsTest.gif",
"GIF"
'*
End With
ActiveWorkbook.Close False
End Sub

Merci
Serge
Avatar
garnote
Salut Denis,

Une commande par ligne -> tu n'écris pas de la littérature !
C'est plus facile à lire...
Bien d'accord avec toi. Quand j'ai collé ma macro, tout

était OK, mais quand je l'ai postée, elle s'est mise à
faire de la littérature ;-)
J'ai supposé qu'il fallait remplacer rg par Plage.
Avec rg ou Plage, elle plante encore au même endroit.
???

Serge

"michdenis" a écrit dans le message de news:

Bonjour Garnote,

Une commande par ligne -> tu n'écris pas de la littérature !
C'est plus facile à lire...

'--------------------------
Sub Exporte()
Dim Plage As Range
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart
.Export "C:Documents and SettingsuserMes documentsTest.gif",
"GIF"
End With
ActiveWorkbook.Close False
End Sub
'--------------------------


Salutations!




"garnote" a écrit dans le message de news:

Bonjour,

Mais qu'est-ce qui cloche dans cette macro ?
Elle bloque entre les deux * et me renvoie
"Erreur d'exécution 1004".

Sub Exporte()
Dim Plage As Range
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
'*
.Export "C:Documents and SettingsuserMes documentsTest.gif",
"GIF"
'*
End With
ActiveWorkbook.Close False
End Sub

Merci
Serge





Avatar
michdenis
Quand tu as un graphe dans une feuille,

La macro devrait donner ceci :

'--------------------
Sub GraphJPG()
Dim MyChart As Chart
Set MyChart = ActiveSheet.ChartObjects(1).Chart
MyChart.Export FileName:="C:ajetergraph1.jpg", filtername:="JPG"
End Sub
'--------------------


Salutations!


"garnote" a écrit dans le message de news: %23u$
Salut Denis,

Une commande par ligne -> tu n'écris pas de la littérature !
C'est plus facile à lire...
Bien d'accord avec toi. Quand j'ai collé ma macro, tout

était OK, mais quand je l'ai postée, elle s'est mise à
faire de la littérature ;-)
J'ai supposé qu'il fallait remplacer rg par Plage.
Avec rg ou Plage, elle plante encore au même endroit.
???

Serge

"michdenis" a écrit dans le message de news:

Bonjour Garnote,

Une commande par ligne -> tu n'écris pas de la littérature !
C'est plus facile à lire...

'--------------------------
Sub Exporte()
Dim Plage As Range
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart
.Export "C:Documents and SettingsuserMes documentsTest.gif",
"GIF"
End With
ActiveWorkbook.Close False
End Sub
'--------------------------


Salutations!




"garnote" a écrit dans le message de news:

Bonjour,

Mais qu'est-ce qui cloche dans cette macro ?
Elle bloque entre les deux * et me renvoie
"Erreur d'exécution 1004".

Sub Exporte()
Dim Plage As Range
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
'*
.Export "C:Documents and SettingsuserMes documentsTest.gif",
"GIF"
'*
End With
ActiveWorkbook.Close False
End Sub

Merci
Serge