Créer un classeur avec la copie d'une feuille d'un autre classeur

[therese78]

J'essais avec peu de succès de faire la copie d'une feuille excel dans un nouveau classeur et de l'enregistrer sous un nom particulier.

Pour la copie d'un onglet dans un nouveau classeur j'ai fait:
ThisWorkbook.Worksheets("MODELE").Copy
Cela m'a créer un nouveau classeur mais je n'arrive pas à l'enregistrer

J'ai ensuite essayer de creer d'abord le classeur:
Set wbk_caisse = Workbooks.Add
wbk_caisse.SaveAs "fichier"
Cela m'a créer un classeur avec 3 feuilles vierges (d'ailleurs j'aimerais n'avoir aucune feuille mais tant pis)
Ensuite j'essais de faire la copie :
ThisWorkbook.Worksheets("MODEL").Copy After:=wbk_caisse.Sheets(Sheets.Count)
Mais cela ne marche pas.

Si quelqu'un pouvait m'aider, je lui en serait extrèmement reconnaissante.

[PascalXLD]

BONJOUR

Cette macro copie ta feuille1 et enregistres ton nouveau classeur sous le nom toto.xls dans le c:\tmp

Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\tmp\toto.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

A toi d'adapter

[therese78]

Géniale cela fonctionne merci beaucoup.

Par contre, je voudrais que le fichier soit placé sous le même répertoire que le fichier modèle. Comment on fait pour récupérer le PATH?

[PascalXLD]

RE

Cela deviendrait

Dim MonPath As String

MonPath = ActiveWorkbook.Path
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
MonPath & "\toto.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

[therese78]

merci énormément Pascal