Création nouveau classeur non voulue !

  • Initiateur de la discussion Initiateur de la discussion beoper
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

beoper

XLDnaute Junior
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

Code:
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 😉
 

Pièces jointes

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 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
862
Réponses
2
Affichages
522
Réponses
6
Affichages
2 K
Réponses
10
Affichages
845
Réponses
13
Affichages
899
Réponses
1
Affichages
583
Compte Supprimé 979
C
Réponses
3
Affichages
1 K
Retour