Macro Supprimer feuilles

Version imprimable

17/12/2009, 09h41
kikim78

Macro Supprimer feuilles

Re le forum,

Je cherche à realiser cette tache par macro: supprimer toutes les feuilles du classeur à part la premiere nommé "Feuille1"

Crdt!

bonjour kikim78 le forum attention au nom de la feuille que tu veus garder
Feuil1 ou Feuille1 ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub es()
Dim ws As Worksheet
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
       For Each ws In Worksheets
        If ws.Name <> "Feuille1" Then ws.Delete
      Next ws
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
End Sub

17/12/2009, 10h03
kikim78

Re forum,

Impecable laetitia, Merci beaucoup

Bonne journée

Fuseau horaire GMT +2. Il est actuellement 12h34.