suppression de feuilles

bonjour Dominique,

Sub ajoutfeuillenommée()
Application.DisplayAlerts = False
' creer une copie de la feuille 1
Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "sauvegarde"
'<----------------------
'suppression de toutes les feuille sauf feuil1 et sauvegarde
Dim Feuille As Worksheet
On Error Resume Next
For Each Feuille In Worksheets
If Feuille.Name <> "Feuil1" Or Feuille.Name <> "sauvegarde"
Then '<----------------------
Feuille.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

isabelle

Dominique a écrit :

bonjour
j ai fait une macro qui creer un onglet de sauvegarde de la Feuil1;
ensuite je veux supprimer toutes les feuilles presentes sauf la Feuil1
et sauvegarde. avec cette macro il me reste plus que la feuille
"sauvegarde". Ou est le hic?
merci
Sub ajoutfeuillenommée()
'

Application.DisplayAlerts = False

' creer une copie de la feuille 1

Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
Sheets("Feuil1 (2)").Name = "sauvegarde"

'suppression de toutes les feuille sauf feuil1 et sauvegarde

Dim Feuille As Worksheet
On Error Resume Next

For Each Feuille In Worksheets
If (Feuille.Name <> "Feuil1" And "sauvegarde") Then
Feuille.Delete
End If
Next

Application.DisplayAlerts = True
End Sub

Bonjour Dominique,

'---------------------------------------
Sub ajoutfeuillenommée()

Dim Feuille As Worksheet

Application.ScreenUpdating = False
'creer une copie de la feuille 1
Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
Sheets("Feuil1 (2)").Name = "sauvegarde"

'suppression de toutes les feuille sauf feuil1 et sauvegarde
Application.DisplayAlerts = False
For Each Feuille In Worksheets
Select Case UCase(Feuille.Name)
Case Is = "FEUIL1", "SAUVEGARDE"
Case Else
Feuille.Delete
End Select
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub
'---------------------------------------

"Dominique" <dobidon@orange.fr> a écrit dans le message de groupe de discussion :
#gkDb43DKHA.2832@TK2MSFTNGP03.phx.gbl...
bonjour
j ai fait une macro qui creer un onglet de sauvegarde de la Feuil1;
ensuite je veux supprimer toutes les feuilles presentes sauf la Feuil1
et sauvegarde. avec cette macro il me reste plus que la feuille
"sauvegarde". Ou est le hic?
merci
Sub ajoutfeuillenommée()
'

Application.DisplayAlerts = False

' creer une copie de la feuille 1

Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
Sheets("Feuil1 (2)").Name = "sauvegarde"

'suppression de toutes les feuille sauf feuil1 et sauvegarde

Dim Feuille As Worksheet
On Error Resume Next

For Each Feuille In Worksheets
If (Feuille.Name <> "Feuil1" And "sauvegarde") Then
Feuille.Delete
End If
Next

Application.DisplayAlerts = True
End Sub

Le 28/07/2009 14:28, isabelle a écrit :

bonjour Dominique,

Sub ajoutfeuillenommée()
Application.DisplayAlerts = False
' creer une copie de la feuille 1
Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "sauvegarde" '<----------------------
'suppression de toutes les feuille sauf feuil1 et sauvegarde
Dim Feuille As Worksheet
On Error Resume Next
For Each Feuille In Worksheets
If Feuille.Name <> "Feuil1" Or Feuille.Name <> "sauvegarde" Then
'<----------------------
Feuille.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

isabelle

Dominique a écrit :

bonjour
j ai fait une macro qui creer un onglet de sauvegarde de la Feuil1;
ensuite je veux supprimer toutes les feuilles presentes sauf la Feuil1
et sauvegarde. avec cette macro il me reste plus que la feuille
"sauvegarde". Ou est le hic?
merci
Sub ajoutfeuillenommée()
'

Application.DisplayAlerts = False

' creer une copie de la feuille 1

Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
Sheets("Feuil1 (2)").Name = "sauvegarde"

'suppression de toutes les feuille sauf feuil1 et sauvegarde

Dim Feuille As Worksheet
On Error Resume Next

For Each Feuille In Worksheets
If (Feuille.Name <> "Feuil1" And "sauvegarde") Then
Feuille.Delete
End If
Next

Application.DisplayAlerts = True
End Sub

bonjour Isabelle

j ai essayé mais même problème la Feuil1 disparait il reste juste la
feuille nommée "sauvegarde".
bizarre

Le 28/07/2009 14:37, MichDenis a écrit :

Bonjour Dominique,

'---------------------------------------
Sub ajoutfeuillenommée()

Dim Feuille As Worksheet

Application.ScreenUpdating = False
'creer une copie de la feuille 1
Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
Sheets("Feuil1 (2)").Name = "sauvegarde"

'suppression de toutes les feuille sauf feuil1 et sauvegarde
Application.DisplayAlerts = False
For Each Feuille In Worksheets
Select Case UCase(Feuille.Name)
Case Is = "FEUIL1", "SAUVEGARDE"
Case Else
Feuille.Delete
End Select
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub
'---------------------------------------

"Dominique"<dobidon@orange.fr> a écrit dans le message de groupe de discussion :
#gkDb43DKHA.2832@TK2MSFTNGP03.phx.gbl...
bonjour
j ai fait une macro qui creer un onglet de sauvegarde de la Feuil1;
ensuite je veux supprimer toutes les feuilles presentes sauf la Feuil1
et sauvegarde. avec cette macro il me reste plus que la feuille
"sauvegarde". Ou est le hic?
merci
Sub ajoutfeuillenommée()
'

Application.DisplayAlerts = False

' creer une copie de la feuille 1

Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
Sheets("Feuil1 (2)").Name = "sauvegarde"

'suppression de toutes les feuille sauf feuil1 et sauvegarde

Dim Feuille As Worksheet
On Error Resume Next

For Each Feuille In Worksheets
If (Feuille.Name<> "Feuil1" And "sauvegarde") Then
Feuille.Delete
End If
Next

Application.DisplayAlerts = True
End Sub

Merci MichDenis
Ta méthode marche merci beaucoup
et pourquoi celle d isabelle ne marche pas?

Tu peux utiliser ceci si tu préfères :

'--------------------------------------
Sub ajoutfeuillenommée()
Dim Feuille As Worksheet

Application.DisplayAlerts = False
Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "sauvegarde"

For Each Feuille In Worksheets
If UCase(Feuille.Name) = "FEUIL1" Or UCase(Feuille.Name) = "SAUVEGARDE" Then
Else
Feuille.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
'--------------------------------------



"Dominique" <dobidon@orange.fr> a écrit dans le message de groupe de discussion :
uljVRH4DKHA.4608@TK2MSFTNGP02.phx.gbl...
Le 28/07/2009 14:37, MichDenis a écrit :

Bonjour Dominique,

'---------------------------------------
Sub ajoutfeuillenommée()

Dim Feuille As Worksheet

Application.ScreenUpdating = False
'creer une copie de la feuille 1
Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
Sheets("Feuil1 (2)").Name = "sauvegarde"

'suppression de toutes les feuille sauf feuil1 et sauvegarde
Application.DisplayAlerts = False
For Each Feuille In Worksheets
Select Case UCase(Feuille.Name)
Case Is = "FEUIL1", "SAUVEGARDE"
Case Else
Feuille.Delete
End Select
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub
'---------------------------------------

"Dominique"<dobidon@orange.fr> a écrit dans le message de groupe de discussion :
#gkDb43DKHA.2832@TK2MSFTNGP03.phx.gbl...
bonjour
j ai fait une macro qui creer un onglet de sauvegarde de la Feuil1;
ensuite je veux supprimer toutes les feuilles presentes sauf la Feuil1
et sauvegarde. avec cette macro il me reste plus que la feuille
"sauvegarde". Ou est le hic?
merci
Sub ajoutfeuillenommée()
'

Application.DisplayAlerts = False

' creer une copie de la feuille 1

Sheets("Feuil1").Copy after:=Worksheets(Worksheets.Count)
Sheets("Feuil1 (2)").Name = "sauvegarde"

'suppression de toutes les feuille sauf feuil1 et sauvegarde

Dim Feuille As Worksheet
On Error Resume Next

For Each Feuille In Worksheets
If (Feuille.Name<> "Feuil1" And "sauvegarde") Then
Feuille.Delete
End If
Next

Application.DisplayAlerts = True
End Sub

Merci MichDenis
Ta méthode marche merci beaucoup
et pourquoi celle d isabelle ne marche pas?