Trouver le nom d'une nouvelle feuille

[Dalba]

Bonjour,

J'ai besoin d'un petit coup de main, svp !

Je souhaite dupliquer la feuil14 dans un nouveau classeur. Pour ce faire, j'utilise ce code :
base = Feuil14.Name
Sheets(Array(base)).Select
Sheets(Array(base)).Copy

Mon problème c'est que je ne sais pas comment trouver le nom du nouveau classeur afin de l'enregistrer sous le nom base.xls (dans le dossier C:\\gestion)

Une fois dupliquer et enregistrer, le classeur base doit se fermer pour que je puisse continuer a travailler sous le classeur avec mes macros.

Merci d'avance.

 

[CBernardT]

Bonjour Dalba et le forum,

Essayes ce code :

Sub Sauvegarde()
Dim Chemin As String, Nom As String

'Répertoire de l'archivage
Chemin = 'C:\\Gestion'
'Adresse et Nom du futur classeur
Nom = Chemin & '\\' & 'Base.xls'
'Création du nouveau classeur à partir de la feuille
Sheets('Feuil14').Copy
'Enregistrement du classeur
ActiveWorkbook.SaveAs Filename:=Nom
'Fermeture du classeur
ActiveWindow.Close
End Sub

Cordialement

Bernard

 

[Dalba]

Merci CBernardT, exactement se que je cherchais.

En plus ton code est trés clair par rapport au mieux...


Merci encore.

Dalba