Revenir à l'onglet précédemment ouvert Résolu/Fermé

Question

Bonjour à tous, 

Je m'adresse à vous puisque j'ai un problème que je ne parviens pas à résoudre.

Voici ce que je veux faire : 
1) dans mon classeur excel, je me positionne sur une feuille nommée "Ormesson S18" (le nom va varier à chaque fois)
2) une fois sur cette feuille, je copie un graphe provenant d'une feuille fixe nommée  "Graphe" (tout se passe dans le même classeur)
3) je colle ce graphe en metafile dans ma feuille "Ormesson S18", en cellule B104.

Voici mon ébauche de solution :
J'ai alors commencé à écrire une macro, mais elle fonctionne lorsque ma feuille active est "Ormesson S18" et casse logiquement dès que je change de nom.
Voici ma macro :

Sub Macro4()'' Macro4 Macro''    Sheets("Graphe").Select    ActiveSheet.ChartObjects("Chart 2").Activate    ActiveChart.ChartArea.Copy    Sheets("Ormesson S18").Select    Range("B104").Select    ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _        , DisplayAsIcon:=FalseEnd Sub

Voici mon problème :
Je souhaite remplacer dans ma macro la feuille "Ormesson S18" par "la feuille depuis laquelle j'exécute initialement la macro" voire "la feuille ouverte juste avant d'ouvrir ma feuille Graphe" 

Quelqu'un aurait-il une solution?

Merci d'avance pour le temps que vous avez passé à me lire :-)

pijaku · Answer

Bonjour,

Il faut absolument éviter les .Select inutiles...
Donc...
A tester :
Sub Macro4()
'
' Macro4 Macro
'

'
    Sheets("Graphe").ChartObjects("Chart 2").ChartArea.Copy
    ActiveSheet.Range("B104").PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _
        , DisplayAsIcon:=False
End Sub

pijaku · Answer

Peut être, je n'ai pas testé, ne peut-on pas copier directement les graph...

Alors, il convient de stocker le nom de la feuille d'ou tu lances la macro :
 Sub Macro4()
'
' Macro4 Macro
'
Dim Feuille As WorkSheet
    Set Feuille = ActiveSheet
    Sheets("Graphe").Select
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.ChartArea.Copy
    Feuille.Select
    Range("B104").Select
    ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _
        , DisplayAsIcon:=False
End Sub

Revenir à l'onglet précédemment ouvert

2 réponses

Discussions similaires