copie d'onglet vers un autre fichier avec des zones masquées

[zwick]

Bonjour,

Mon problème est un peu compliqué à expliquer....😡
j'ai des valeurs dans une feuille et un graphique sur une autre feuille. Dans la feuille de valeurs, j'ai un certain nombre de lignes de masquées.
Dans le graphique ces lignes n'apparaissent pas.
Jusque là, c'est OK 🙂

Maintenant, j'ai besoin d'extraire la feuille avec le graphique dans un autre document Excel (que je fais par un copier-coller). Je ferme alors le fichier principal et le fichier créé avec le graphique me mets toutes les lignes en axe du graphique, même celles qui étaient masquées.
Je fais ceci avec du Office 2003 sur un autre poste et je n'ai pas de soucis.

En plus, si j'ouvre le document Excel qui n'est pas correct en ouverture avec Excel 2007, avec Excel 2003, l'affichage est bon..... 😱

Si vous avez une idée, je suis vraiment preneur.

Merci d'avance.

Cordialement,

 

[zwick]

Re : copie d'onglet vers un autre fichier avec des zones masquées

Bonjour,

Si vous souhaitez, je peux joindre des exemples de fichiers.

Merci.

 

[Staple1600]

Re : copie d'onglet vers un autre fichier avec des zones masquées

Bonjour


Une piste
Tu peux copier le graphique comme une image
(inconvénient il sera statique)

Ce qui donne avec l'enregistreur de macro

Sub Macro4()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
        xlPicture
    ActiveWindow.Visible = False
    Windows("Classeur2").Activate
    Sheets("Feuil2").Select
    ActiveSheet.Paste
End sub

 

[Staple1600]

Re : copie d'onglet vers un autre fichier avec des zones masquées

Re



Une autre piste avec cette macro

Sub Macro1_2()
Dim X As String
Dim NF As Workbook
With ActiveSheet
X = .Name
'renomme la feuille active contenant le graphique
        .Name = "Temp"
'crée un nouveau classeur
    Set NF = Workbooks.Add
'copie la feuille Temp dans ce nouveau classeur
        .Copy Before:=NF.Sheets(1)
'rend le nom initial à la feuille d'origine
        .Name = X
End With
'Renomme la feuille copiée dans le nouveau classeur
NF.Sheets("Temp").Name = "Copie Graphique_" & Format(Date, "dd-mm-yy")
End Sub

PS: macro testée sous XL 2000, pas sur XL 2007

 

[zwick]

Re : copie d'onglet vers un autre fichier avec des zones masquées

Merci.🙂

J'ai essayé la macro, mais le phénomène est le même.

j'ai en visu sur ma source que 5 dates dans les coordonnées (du au masquage des autres dates sur ma feuille "données") et sur le nouveau classeur créé, j'ai les 256 dates de l'année car il n'a pas tenu compte du masquage.😡

J'ai essayé avec 2 postes sous Office 2007 et j'ai le même symptôme sur les 2.

Merci d'avance pour votre aide.

Philippe

 

[Staple1600]

Re : copie d'onglet vers un autre fichier avec des zones masquées

Re

Quand tu copies une feuille en VBA
tu copies aussi les cellules masquées non?

Et effectivement on verra mieux avec des fichiers exemples

Peux-tu poster un fichier 2007 et un comptaible XL2000?

 

[zwick]

Re : copie d'onglet vers un autre fichier avec des zones masquées

Bonjour,

Voici un exemple.
Dans classeur6.xls, j'ai donc un graphique qui ne tient pas compte des lignes masquées dans la feuille "données".
Quand je copie la feuille "graph" dans un autre document (et que je ferme le premier document), cela donne classeur5.xls où le graphique a toutes les valeurs (même celles qui sont masquées) (il faut fermer classeur6.xls)😕

Par contre, si on ouvre ce même classeur5.xls avec Office2003, sans rien faire, c'est OK....😡

j'ai essayé en faisant des fichiers "pur 2007" mais c'est le même symptôme.

Merci.🙂

 

[zwick]

Re : copie d'onglet vers un autre fichier avec des zones masquées

Bonjour,

Quelqu'un pourrait t'il essayer avec son Office pour voir s'il a les mêmes symptômes ?

Merci pour votre aide.

 

[zwick]

Re : copie d'onglet vers un autre fichier avec des zones masquées

Bonjour,

Quelqu'un pourrait t'il m'aider, c'est trés génant pour moi.

Cordialement,😕