Sauvgarde Classeur et Supprimes tous les Feuills Sauf

[mohama]

je Suis nouveaux et je suis passionnée d"excel et sons vba et j'ai rencontré ce magnifique forum.

je suis entrain de le suivre tous les jours Merci a tous.

Ma question et la suivante :

Ma question est la suivante : Au Sortie du Classeur dans le Thisworkbook sauvegarde le classeur dans une autre partition;

et Supprime toute les Anglets (c'est a dire tous les feuils ) sauf la feuil1 et la feuil2.


et merci d'avance

 

[camarchepas]

Re : Sauvgarde Classeur et Supprimes tous les Feuills Sauf

Voici un bout de code à mettre dans le thisworkbook :
Dans la ligne : ThisWorkbook.SaveAs Filename:="c:\Temp\" & Nom, modifies le c:\Temp par ton répertoire cible de sauvegarde.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Onglet As Worksheet
Dim Nom As String
Nom = Replace(ThisWorkbook.Name, ".xls", "") & "_" & Replace(Replace(Date & Time, "/", "_"), ":", "_") & ".xls"

For Each Onglet In ThisWorkbook.Worksheets
If Onglet.Name <> "Feuil1" And Onglet.Name <> "Feuil2" Then
Application.DisplayAlerts = False
Onglet.Delete
Application.DisplayAlerts = True
End If
Next
ThisWorkbook.Save
End Sub