Copie d'onglet

[stagiairerm]

Bonjour à tous,
je souhaite mettre une petite macro pour automatiser la copie et l'export d'un onglet vers une nouvelle feuille excel.. ca c'est tout bête, Mais comment faire pour que cette unique macro puisse copier l'onglet sur lequel je suis ?

Voila ce que j'ai :

Sub Exporter()
'
' Exporter Macro
' Macro enregistrée le 21/10/2008 par STAGRM
'
' Touche de raccourci du clavier: Ctrl+e
'
ActiveWindow.Visible = False
Windows("RIH-Paris v3.xls").Activate
Sheets("Onglet1").Select
Sheets("Onglet1").Copy
Application.Left = 16.75
Application.Top = -4.25
Windows("RIH-Paris v3.xls").Activate
End Sub


====>>>> Sauf que si je suis sur l'onglet 2 ben évidemment ca ne marche pas ! On est obligé de créer une macro par onglet ? C'est nul ca !

Merci du coup de main

 

[tototiti2008]

Re : Copie d'onglet

Bonjour stagiairerm,

et si tu te contente du code

Activesheet.copy

ça donne quoi ?

 

[jp14]

Re : Copie d'onglet

Bonjour

Il faut utiliser " ActiveSheet.Name" pour connaitre le nom de la feuille
nomfeuille = ActiveSheet.Name

et remplacer onglet1 par nomfeuille

JP

 

[stagiairerm]

Re : Copie d'onglet

Bonjour stagiairerm,

et si tu te contente du code

Activesheet.copy

ça donne quoi ?

Ah ben c nikel merci beaucoup