Enregistrer copie de mon fichier sans en sortir

[chris6999]

Bonjour

Une question souvent posée sur le FORUM mais pour avoir testé plusieurs solution...ben je n'y arrive pas

Je pars de mon fichier initial et souhaite enregistrer une copie de ce fichier après y avoir apporté des modifications.
Mon fichier d'origine doit rester ouvert.

Je pars de la feuille "ma feuille" et sur le clic bouton je souhaite générer un nouveau fichier dans lequel la feuille REQUETE serait supprimée (et non masquée).

Ce nouveau fichier serait enregistré sous ... (chemin identifié dans mon code) puis fermé.
En fait je crois qu'il existe une solution pour copier uniquement les deux feuilles que je souhaite conserver dans ce nouveau classeur (ma feuille et doublons) mais je ne trouve que des fils en anglais sur le sujet.

Ce nouveau classeur doit être enregistré au format xlsm

A la fin du process je reviens sur le fichier d'origine qui est resté ouvert.

Au départ j'étais resté sur l'idée d'enregistrer une copie de ma feuille comme nouveau classeur . Le problème c'est que je ne suis pas parvenu à l'enregistrer au format xlsm.

Avec mon test de code actuel j'enregistre une copie du fichier mais du coup je n'ai pas la main pour supprimer ma feuille requête.

Je ne sais pas trop comment faire.
Quelqu'un peut-il m'aider à y voir plus clair.

Merci

 

[Bernard_XLD]

Bonjour chris6999, le forum

ton code un peu modifié
[Edit] j'ai modifié, j'avais laissé passer le name à la place de nom

Private Sub CommandButton1_Click()
Dim nom As String, Chemin As String
'mon chemin
Chemin = "D:\Bureau\SUIVI FMM\"
Nom = "FICHIER " & ActiveSheet.Range("D2").Value
extension = ".xlsm"
ThisWorkbook.Sheets(Array("FICHIER ", "DOUBLONS")).Copy
ActiveWorkbook.SaveAs Filename:=Chemin & Nom & extension, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close True
End Sub

 

[chris6999]

Bonsoir et merci Yeahou cela fonctionne nickel après quelques adaptations
Merci encore