ActiveChart.CopyPicture et format de date

tototiti2008 · 25 Septembre 2012

Bonjour à toutes et tous,

J'ai besoin dans une macro de copier un graphique en tant qu'image (essentiellement pour le couper de toute source)
Ce graphique a des dates en abscisses
J'utilise donc ActiveChart.CopyPicture pour réaliser ma copie
J'enregistre ma macro, il m'écrit le code, tout va bien
Je relance ma macro et la copie du graphique en tant qu'image a des dates en m/j/aaaa alors que l'original a des dates en jj/mm/aaaa

Je sèche un peu sur comment résoudre ce soucis quelqu'un aurait-il une idée ?

Voir le classeur exemple 🙂

tototiti2008 · 25 Septembre 2012

Re : ActiveChart.CopyPicture et format de date

Re,

Bon, ben, résolu en mettant le format de date "[$-40C]jj/mm/aaaa" à la place de seulement "jj/mm/aaaa" en abscisses, désolé j'aurais pu tester plus avant
ça pourra peut-être servir à quelqu'un 🙂

job75 · 25 Septembre 2012

Re : ActiveChart.CopyPicture et format de date

Bonjour Marc 🙂

Oui et je viens de tester ta macro modifiée ainsi :

Code:

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 25/09/2012 par sm
'

'
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "dd/mm/yyyy"
    ActiveChart.CopyPicture Appearance:=xlPrinter, Size:=xlScreen, Format:= _
        xlPicture
    Range("E1").Select
    ActiveSheet.Paste
End Sub

A+

tototiti2008 · 25 Septembre 2012

Re : ActiveChart.CopyPicture et format de date

Bonjour Gérard 🙂,

Merci pour cette alternative
Bizarre que ça fonctionne si on le fait par macro mais pas si on le fait manuellement
en manuel, j'applique le format jj/mm/aaaa
et si je fais

Code:

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 25/09/2012 par sm
'

'
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select
    MsgBox ActiveChart.Axes(xlCategory).TickLabels.NumberFormat
    ActiveChart.CopyPicture Appearance:=xlPrinter, Size:=xlScreen, Format:= _
        xlPicture
    Range("E1").Select
    ActiveSheet.Paste
End Sub

il m'affiche "m/d/yyyy"
Encore les mystères des paramètres internationaux d'Excel 😉

Modeste geedee · 25 Septembre 2012

Re : ActiveChart.CopyPicture et format de date

tototiti2008 à dit:
Encore les mystères des paramètres internationaux d'Excel 😉

🙄
pourquoi, Microsoft connait d'autres pays que les USA ???

ActiveChart.CopyPicture et format de date

tototiti2008

XLDnaute Barbatruc

Pièces jointes

tototiti2008

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Discussions similaires

ActiveChart.CopyPicture et format de date

tototiti2008

XLDnaute Barbatruc

Pièces jointes

tototiti2008

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency