Retour sur la feuille active

[arckeo72]

Bonjour à tous,

j'ai créé la macro suivante :

Sub Macro1()
Macro1 Macro

Range("M2:M4").Select
Selection.Copy
Sheets("OR GRAIS TR").Select
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub


Je souhaiterai à la fin de l’exécution retourner a ma feuille du début.

Pour info cette macro est associée à un bouton présent sur environ 200 feuilles.

D'avance merci.

 

[pierrejean]

Re : Retour sur la feuille active

Bonjour arckeo

A tester

Sub Macro1()
Macro1 Macro

set active=activesheet

Range("M2:M4").Select
Selection.Copy
Sheets("OR GRAIS TR").Select
Range("M3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/COLOR]
:=False, Transpose:=False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

active.select

End Sub

 

[arckeo72]

Re : Retour sur la feuille active

Merci beaucoup ça fonctionne nickel. Bonne soiree. @ bientôt.