zebanx
XLDnaute Accro
Bonjour,
J'ai un problème de code pour un fichier que je dois régulièrement purger sauf un onglet (recap) que je tiens à conserver.
Pourriez-vous svp m'aider pour la correction du code de la macro suivante ? Merci pour votre aide
Sub SUPPRIME2()
Dim i As Integer
Sheets("RECAP").Select
On Error GoTo FIN
For i = 1 To Worksheets.Count
Application.DisplayAlerts = False
If UCase(Sheets(i).Name) <> "RECAP" Then
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
FIN:
End Sub
J'ai un problème de code pour un fichier que je dois régulièrement purger sauf un onglet (recap) que je tiens à conserver.
Pourriez-vous svp m'aider pour la correction du code de la macro suivante ? Merci pour votre aide
Sub SUPPRIME2()
Dim i As Integer
Sheets("RECAP").Select
On Error GoTo FIN
For i = 1 To Worksheets.Count
Application.DisplayAlerts = False
If UCase(Sheets(i).Name) <> "RECAP" Then
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
FIN:
End Sub