Copier un onglet dans un nouveau classeur

Bonjour le forum

j'ai un fichier contenant plusieurs onglets dont 1 sert de source/modèle pour créer plusieurs autres fichiers.

j'ai besoin de faire par macro l'équivalent de ce que l'on peut faire a la main a savoir :

clique droit sur un onglet / déplacer ou copier / créer une copie dans un nouveau classeur.

le résultat final est d'avoir un nouveau fichier avec un seul onglet celui que j'ai copié. mais dont le nom est donné automatiquement par excel

y a t-il moyen de faire plus simple que le code que j'ai fait, en donnant par exemple, a l'instruction .add un argument d'onglet a copier....???:

Sub creation()

Dim source, nouveau As String

source = ActiveWorkbook.Name
Workbooks.Add (1)
nouveau = ActiveWorkbook.Name
Workbooks(source).Activate
Workbooks(source).Sheets(2).Copy After:=Workbooks(nouveau).Sheets(Workbooks(nouveau).Sheets.Count)
Application.DisplayAlerts = False
Workbooks(nouveau).Sheets(1).Delete
Application.DisplayAlerts = True
End Sub

merci pour vos précisions

Fred

Bonjour Fred, bonjour le forum,

Ton code ne précise pas le nom de l'onglet ? Essaie comme ça :

Public Sub Creation2()
Sheets("modele").Copy 'copie l'onglet "modele"  dans un nouveau classeur
ActiveSheet.Name = "Ton_Nom" 'définit la nom de l'onglet (à adapter)
End Sub

bonjour

ce n'est pas ce que je recherche. le résultat que je souhaite et que j'arrive déjà a faire est le suivant

c'est de créer un nouveau fichier avec un seul onglet qui est la copie d'un onglet du fichier sur lequel s’exécute la macro.

mais je voudrais savoir si il n'y pas plus simple...

rien avoir avec le nom des onglets...

merci quand même

Fred

Bonsoir Fred, bonsoir le forum,

fred2406 a écrit :

dont le nom est donné automatiquement par excel

Désolé j'ai dû mal lire alors...

Supprime la ligne qui concerne le nom et tu auras exactement ce que tu demandes. As-tu testé au moins ?

bonsoir

J'ai réussit a faire ce que je voulais => voir le code et le fichier fournit qui fonctionne et réalise ce que je veux

Peut-être je me suis mal exprimé, mais la question était en résumé

peut-on faire plus simple que le code que j'ai fais. pour obtenir la même chose

Fred

Bonsoir Fred, bonsoir le forum,

Arf Fred ! Tu es désespérant...

En pièce jointe ton fichier auquel j'ai rajouté un second bouton Créer les fichiers2 avec le code ci-dessous :

Public Sub macro1()
Sheets("modele").Copy 'copie l'onglet "modele"  dans un nouveau classeur
End Sub

Clique sur le premier, ton code, puis le second, mon code et dis-moi si ce n'est pas la même chose !

Bonsoir ThauThème

Autant pour moi

faut que j’arrête de travaillé sur ce fichier, je commence a être trop fatigué

merci

Fred