Duplication d'une feuille de calcul dans un nouveau classeur

Bonjour/soir le forum, une fois de plus je demande votre aide.

Voici mon problème :

En partant d'un fichier contenant une grille d'heure par mois contenant des feuilles nommées comme tel (Février 2022, Mars 2022 etc...). Mon objectif serait de dupliquer la feuille que je souhaiterai par inputbox ("entrer le nom de la feuille : " Mai 2022....), et ce vers une autre fichier excel, en renommant ladite feuille ainsi qu'en en y faisant précéder le mot "devis" ("Avril 2022" devient "Devis Avril 2022").

J'espère avoir été assez clair dans mes explications, même si le problème peut paraître simple, je n'ai pu trouver aucune solution ou aide sur Google, après presque une journée entière de recherche.

Merci d'avance !

Bonsoir

je te propose la macro suivante

Public extension As String
Public chemin As String, nomfichier As String

Sub sauvegarde_onglet()

Dim onglet As String
Dim Sh As Worksheet
extension = ".xlsx"
onglet = InputBox("Quel onglet voulez-vous sauvegarder ?")

On Error Resume Next
Set Sh = ThisWorkbook.Sheets(onglet)
Application.CutCopyMode = False
nomfichier = "Devis " & onglet & extension
Sheets(onglet).Select
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = ThisWorkbook.Path

ActiveWorkbook.SaveAs Filename:=chemin & "\" & nomfichier

End Sub

Merci je vais tester ça

Tony

Le résultat est intéressant, malgré tout, je souhaite copier la feuille vers un fichier déjà existant, sur la feuille active de ce dernier et non pas un nouveau fichier.

Merci de votre réponse, je continue mes recherches

Tony

C'est quoi le nom du fichier existant ?

Pardon, j'ai répondu un peu vite. La bonne question est :

Le fichier est-il toujours le même ?