Création nouveau classeur non voulue !

[beoper]

Bonjour à tous,

J'ai essayé d'adapter un bout de code que j'ai trouvé sur ce forum (https://www.excel-downloads.com/thr...fichier-excel-dans-un-nouveau-dossier.105270/) et dont je remercie l'auteur.

Mon code enregistre bien la feuille 1 dans le bon sous dossier.
Mais en même temps Excel crée un nouvel autre fichier xls nommé "classeur1", "classeur2"...etc.. et j'aimerais bien que cela ne soit pas le cas !

cf fichier joint

Sub test()
Sheets("Feuil1").Select
Sheets("Feuil1").Copy

Dim NOMDOSSIER$, Chemin$
Dim valeur As String
NOMDOSSIER = Format(Date, "yyyymmdd")
If Dir(ThisWorkbook.Path & "\" & NOMDOSSIER, vbDirectory) = "" Then
MkDir ThisWorkbook.Path & "\" & NOMDOSSIER
End If
Chemin = ThisWorkbook.Path & "\" & NOMDOSSIER & "\"
valeur = Range("A1").Value & Format(Date, "yyyymmdd") & ".xls"

ActiveWorkbook.SaveCopyAs Chemin & valeur
End Sub

Merci d'avance pour toute aide

 

[Compte Supprimé 979]

Re : Création nouveau classeur non voulue !

Salut beoper

Il faut changer

ActiveWorkbook.SaveCopyAs Chemin & valeur

par

ActiveWorkbook.SaveAs Chemin & valeur

A+

 

[ERIC S]

Re : Création nouveau classeur non voulue !

Bonjour Beoper

sans trop avoir fouillé, si tu mettais SaveAs au lieu de SaveCopyAs ?

edit

Bruno, tu es trop rapide pour moi ce matin............

 

[beoper]

Re : Création nouveau classeur non voulue !

Bonjour Bruno et Eric,
Merci beaucoup pour votre aide précieuse et super rapide en plus !

J'ai suivis vos modifications le fichier "essai20120905.xls" se crée bien dans le bon sous dossier, mais il reste ouvert dans excel.
SVP, comment faire pour qu'il s'enregistre en silence (et que seul reste ouvert le fichier "essai_classeur_en_trop.xls") ?

Merci d'avance

 

[Compte Supprimé 979]

Re : Création nouveau classeur non voulue !

Re,

Après la ligne de sauvegarde, mettre Close

ActiveWorkbook.SaveAs Chemin & valeur
ActiveWorkbook.Close

A+

 

[beoper]

Re : Création nouveau classeur non voulue !

Merci Bruno. Super ! C'est fantastique !

Encore merci.