XL 2016 Macro enregistrer sous et supprimer feuilles

  • Initiateur de la discussion Initiateur de la discussion Attila451
  • 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 !

Attila451

XLDnaute Occasionnel
Bonjour,
J'ai cette macro qui me permet en partant d'une base de donnée d'enregistrer une sauvegarde datée:
Sub ENR()

Dim datesauv As String
datesauv = Format(Now, "dd-mm-yy")

With ActiveWorkbook
.SaveCopyAs Filename:="C:\Users\F017540\Sauvegardes\fichierxxx & " & datesauv & ".xlsm"

End With

Je souhaite partir du même principe pour envoyer des extractions, par contre, le fichier d'origine contient des feuilles comme "Feuil2"que je veux supprimer dans la sauvegarde.

Comme ma macro ci dessus nomme le fichier en rajoutant une date, je n'ai pas de nom de fichier à l'avance, si j'intègre
.Sheets("Feuil2").Delete
cela m'efface la feuille 2 du fichier d'origine, et pas du fichier sauvegardé:

Dim datesauv As String
datesauv = Format(Now, "dd-mm-yy")

With ActiveWorkbook
.SaveCopyAs Filename:="C:\Users\F017540\Sauvegardes\fichierxxx & " & datesauv & ".xlsm"
.Sheets("Feuil2").Delete => comment rajouter l'extention pour nommer le classeur ?
End With


Merci d'avance pour vos lumières !!!
 
Bonjour,

SaveCopyAs crée une copie du fichier mais ne l'ouvre pas.

il faut donc l'ouvrir : Set LeNouveauClasseur = Workbooks.Open("C:\Users\F017540\Sauvegardes\fichierxxx & " & datesauv & ".xlsm" )
Supprimer la feuille LeNouveauClasseur.Sheets("Feuil2").delete
Le Fermer: LeNouveauClasseur.Close True

Bonne soirée
 
Bonsoir le fil,

En changeant d'angle de vue
Je ne veux que les feuilles Titi, Tata et Toto dans mon nouveau classeur
VB:
Sub Copier_Oui_Mais_Pas_Toutes()
strPath = ThisWorkbook.Path & "\"
Worksheets(Array("Toto", "Titi", "Tata")).Copy
With ActiveWorkbook
.SaveAs strPath & "Copie_Test.xlsx", 51: .Close
End With
End Sub
PS: Macro basique => à peaufiner notamment au niveau du nommage du classeur.
 
- 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

Réponses
5
Affichages
241
Retour