Revenir à l'onglet précédemment ouvert
Résolu/Fermé
boban90
-
Modifié par boban90 le 7/05/2015 à 15:01
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 7 mai 2015 à 19:21
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 7 mai 2015 à 19:21
A voir également:
- Revenir à l'onglet précédemment ouvert
- Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
- Proxy ouvert instagram - Forum Internet / Réseaux sociaux
- Fichier ouvert dans system ✓ - Forum Virus / Sécurité
- Revenir à la ligne excel - Guide
- Revenir à windows 10 - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
7 mai 2015 à 15:23
7 mai 2015 à 15:23
Bonjour,
Il faut absolument éviter les .Select inutiles...
Donc...
A tester :
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
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
7 mai 2015 à 15:56
7 mai 2015 à 15:56
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 :
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
boban90
7 mai 2015 à 19:21
7 mai 2015 à 19:21
Si celle-ci fonctionne, il n'y a pas de raison que celle-la moins.
ça fera toujours un Select de moins :
ça fera toujours un Select de moins :
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").PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _
, DisplayAsIcon:=False
End Sub
7 mai 2015 à 15:42
Merci pour l'astuce, je comprends bien la logique : si on supprime les select, on reste sur la même feuille et on se simplifie la vie tout en gagnant en simplicité.
Maintenant, le code en l'état ne fonctionne pas, en effet la partie :
Sheets("Graphe").ChartObjects("Chart 2").ChartArea.Copy
n'est pas reconnue alors que mon ancien code fonctionne.
Avez-vous une idée de l'origine de cette erreur?