Sauvgarde Classeur et Supprimes tous les Feuills Sauf

mohama · 6 Mai 2010

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 · 14 Mai 2010

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

Sauvgarde Classeur et Supprimes tous les Feuills Sauf

mohama

Guest

camarchepas

XLDnaute Barbatruc

Discussions similaires

Sauvgarde Classeur et Supprimes tous les Feuills Sauf

mohama

Guest

camarchepas

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency