Ta dernière ligne devrait être comme suit :
With ActiveSheet.ChartObjects(1).Chart
.Export "C:AtravailTest.gif", "GIF"
End With
Tu remplaces "C:AtravailTest.gif" qui est le chemin où tu veux
l'enregistrer sous ton disque dur + le nom que tu veux lui donner
Comme ton expression fait référence à une cellule, il m'est difficile
de te donner la syntaxe qui convient à ton exemple.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans le code qui suit, j'ai un bug sur la dernière ligne, avec le msg :
"Erreur d'exécution 1004 - Erreur définie par l'application ou par
l'objet"
'--------------------------------------------------
Range(ZoneImpression).Select
Set champExport1 = Selection
champExport1.CopyPicture
ChDrive "C"
ChDir "C:Documents and Settingsjean-pascalbureau"
ActiveSheet.Paste
ActiveSheet.ChartObjects.Add(0, 0, champExport1.Width,
champExport1.Height).Chart.Paste
Gestionnaire = [b273].Value
ActiveSheet.ChartObjects(1).Chart.Export "Rtd Abs " & Gestionnaire & "
"
_
& Format(Now, "dd-mm-yy") & ".gif", "gif"
etc.... (ce sont les 2 lignes du dessus qui posent pb bien qu'a priori ça
fonctionne au bureau, mais pas chez moi !)
'-----------------------------------------------------
Merci d'avance pour vos lumières ...
Cordialement,
JP
Ta dernière ligne devrait être comme suit :
With ActiveSheet.ChartObjects(1).Chart
.Export "C:AtravailTest.gif", "GIF"
End With
Tu remplaces "C:AtravailTest.gif" qui est le chemin où tu veux
l'enregistrer sous ton disque dur + le nom que tu veux lui donner
Comme ton expression fait référence à une cellule, il m'est difficile
de te donner la syntaxe qui convient à ton exemple.
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
u0EMUMsAIHA.536@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Dans le code qui suit, j'ai un bug sur la dernière ligne, avec le msg :
"Erreur d'exécution 1004 - Erreur définie par l'application ou par
l'objet"
'--------------------------------------------------
Range(ZoneImpression).Select
Set champExport1 = Selection
champExport1.CopyPicture
ChDrive "C"
ChDir "C:Documents and Settingsjean-pascalbureau"
ActiveSheet.Paste
ActiveSheet.ChartObjects.Add(0, 0, champExport1.Width,
champExport1.Height).Chart.Paste
Gestionnaire = [b273].Value
ActiveSheet.ChartObjects(1).Chart.Export "Rtd Abs " & Gestionnaire & "
"
_
& Format(Now, "dd-mm-yy") & ".gif", "gif"
etc.... (ce sont les 2 lignes du dessus qui posent pb bien qu'a priori ça
fonctionne au bureau, mais pas chez moi !)
'-----------------------------------------------------
Merci d'avance pour vos lumières ...
Cordialement,
JP
Ta dernière ligne devrait être comme suit :
With ActiveSheet.ChartObjects(1).Chart
.Export "C:AtravailTest.gif", "GIF"
End With
Tu remplaces "C:AtravailTest.gif" qui est le chemin où tu veux
l'enregistrer sous ton disque dur + le nom que tu veux lui donner
Comme ton expression fait référence à une cellule, il m'est difficile
de te donner la syntaxe qui convient à ton exemple.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans le code qui suit, j'ai un bug sur la dernière ligne, avec le msg :
"Erreur d'exécution 1004 - Erreur définie par l'application ou par
l'objet"
'--------------------------------------------------
Range(ZoneImpression).Select
Set champExport1 = Selection
champExport1.CopyPicture
ChDrive "C"
ChDir "C:Documents and Settingsjean-pascalbureau"
ActiveSheet.Paste
ActiveSheet.ChartObjects.Add(0, 0, champExport1.Width,
champExport1.Height).Chart.Paste
Gestionnaire = [b273].Value
ActiveSheet.ChartObjects(1).Chart.Export "Rtd Abs " & Gestionnaire & "
"
_
& Format(Now, "dd-mm-yy") & ".gif", "gif"
etc.... (ce sont les 2 lignes du dessus qui posent pb bien qu'a priori ça
fonctionne au bureau, mais pas chez moi !)
'-----------------------------------------------------
Merci d'avance pour vos lumières ...
Cordialement,
JP
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
Si ton graphe est sélectioné :
Selection.Delete -> c'est suffisant
si il n'est pas sélectionné :
activesheet.Shapes("Graphique 3").Delete -> c'est suffisant
Graphique 3 = Nom du graphe
"j-pascal" a écrit dans le message de news:
J'ai oublié de préciser ce qui suit les 2 lignes qui posent pb :
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
Mon image est bien créée, mais le code ne la resélectionne pas pour
pouvoir
la supprimer avec avoir été exportée ...
Si j'exécuter pas à pas, je suis bien sur la bonne feuille ! Dois-je
insérer
qqch pour forcer l'activation de la feuille ? Est-ce qu'un EnableEvents
peut
avoir un impact sur le bon déroulement du code ?
@+ ?
JP
"MichDenis" a écrit dans le message de news:
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
Si ton graphe est sélectioné :
Selection.Delete -> c'est suffisant
si il n'est pas sélectionné :
activesheet.Shapes("Graphique 3").Delete -> c'est suffisant
Graphique 3 = Nom du graphe
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
uC2zU1sAIHA.2004@TK2MSFTNGP06.phx.gbl...
J'ai oublié de préciser ce qui suit les 2 lignes qui posent pb :
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
Mon image est bien créée, mais le code ne la resélectionne pas pour
pouvoir
la supprimer avec avoir été exportée ...
Si j'exécuter pas à pas, je suis bien sur la bonne feuille ! Dois-je
insérer
qqch pour forcer l'activation de la feuille ? Est-ce qu'un EnableEvents
peut
avoir un impact sur le bon déroulement du code ?
@+ ?
JP
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O2uNjxsAIHA.4232@TK2MSFTNGP04.phx.gbl...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
Si ton graphe est sélectioné :
Selection.Delete -> c'est suffisant
si il n'est pas sélectionné :
activesheet.Shapes("Graphique 3").Delete -> c'est suffisant
Graphique 3 = Nom du graphe
"j-pascal" a écrit dans le message de news:
J'ai oublié de préciser ce qui suit les 2 lignes qui posent pb :
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
Mon image est bien créée, mais le code ne la resélectionne pas pour
pouvoir
la supprimer avec avoir été exportée ...
Si j'exécuter pas à pas, je suis bien sur la bonne feuille ! Dois-je
insérer
qqch pour forcer l'activation de la feuille ? Est-ce qu'un EnableEvents
peut
avoir un impact sur le bon déroulement du code ?
@+ ?
JP
"MichDenis" a écrit dans le message de news:
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
Est-ce un graphique que tu veux exporter ou une plage de cellule?
dans le dernier cas, voici un exemple émanant du site de Daniel Joss
'--------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
C'était mon dernier message sur le sujet.
"j-pascal" a écrit dans le message de news:
J'ai fait un essai en déprotégeant la feuille,
j'obtiens : "Erreur d'exécution 1004 - Impossible de lire la propriété
ChartObjects de la classe Worksheet"
JP
"MichDenis" a écrit dans le message de news:
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
Est-ce un graphique que tu veux exporter ou une plage de cellule?
dans le dernier cas, voici un exemple émanant du site de Daniel Joss
'--------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
C'était mon dernier message sur le sujet.
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
etPLU8sAIHA.748@TK2MSFTNGP04.phx.gbl...
J'ai fait un essai en déprotégeant la feuille,
j'obtiens : "Erreur d'exécution 1004 - Impossible de lire la propriété
ChartObjects de la classe Worksheet"
JP
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O2uNjxsAIHA.4232@TK2MSFTNGP04.phx.gbl...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
Est-ce un graphique que tu veux exporter ou une plage de cellule?
dans le dernier cas, voici un exemple émanant du site de Daniel Joss
'--------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
C'était mon dernier message sur le sujet.
"j-pascal" a écrit dans le message de news:
J'ai fait un essai en déprotégeant la feuille,
j'obtiens : "Erreur d'exécution 1004 - Impossible de lire la propriété
ChartObjects de la classe Worksheet"
JP
"MichDenis" a écrit dans le message de news:
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
Est-ce un graphique que tu veux exporter ou une plage de cellule?
dans le dernier cas, voici un exemple émanant du site de Daniel Joss
'--------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
C'était mon dernier message sur le sujet.
"j-pascal" a écrit dans le message de news:
J'ai fait un essai en déprotégeant la feuille,
j'obtiens : "Erreur d'exécution 1004 - Impossible de lire la propriété
ChartObjects de la classe Worksheet"
JP
"MichDenis" a écrit dans le message de news:
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
Est-ce un graphique que tu veux exporter ou une plage de cellule?
dans le dernier cas, voici un exemple émanant du site de Daniel Joss
'--------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
C'était mon dernier message sur le sujet.
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
etPLU8sAIHA.748@TK2MSFTNGP04.phx.gbl...
J'ai fait un essai en déprotégeant la feuille,
j'obtiens : "Erreur d'exécution 1004 - Impossible de lire la propriété
ChartObjects de la classe Worksheet"
JP
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O2uNjxsAIHA.4232@TK2MSFTNGP04.phx.gbl...
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...
Est-ce un graphique que tu veux exporter ou une plage de cellule?
dans le dernier cas, voici un exemple émanant du site de Daniel Joss
'--------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
C'était mon dernier message sur le sujet.
"j-pascal" a écrit dans le message de news:
J'ai fait un essai en déprotégeant la feuille,
j'obtiens : "Erreur d'exécution 1004 - Impossible de lire la propriété
ChartObjects de la classe Worksheet"
JP
"MichDenis" a écrit dans le message de news:
| With ActiveSheet.ChartObjects(1).Chart
| .Export "C:Documents and Settingsjean-pascalbureautest.gif",
"GIF"
| End With
Cela devrait fonctionner !
Est-ce que c'est la bonne feuille où est le graphe qui est active ?
Cela ne dépend pas du code...