macro excel Fermé

Question

Bonjour,

Je suis en train de faire un macro pour la supression automatique de certaines feuilles du classeur

j'aime supprimer toutes les feuilles au format "moisAnnée" 
Exemple : "Février2008", "janvier2008"

mon code est le suivant : 

sub suppression ()

Sheets("" & Format(Date, yyyy)).Delete

end sub

Apparemment c'est pas suffisant 
Quelqu'un à une idée

Merci d'avance

LatelyGeek · Answer

C'est normal, parce que tu lui demandes de supprimer la feuille nommée 2008, et il n'y en a pas...

Essaye quelque chose comme ça:
Sub Macro3()

Dim Compteur as Integer
Compteur = 1
Sheets("Nom de le première feuille du classeur").Select

While Compteur < Sheets.Count

    If ActiveSheet.Name Like ("*" & format(date(),"yyyy")) Then
    ActiveSheet.Delete
    End If

    ActiveSheet.Next.Select   
    Compteur = Compteur + 1

Wend
End Sub

néné · Answer

Sub suppression()

On Error Resume Next
Dim madate As Long

madate = InputBox("Année a supprimmer", "Feuille à supprimer", "2008")


Sheets("janvier" & madate & "").Delete
Sheets("février" & madate & "").Delete

End Sub

Macro excel

2 réponses

Discussions similaires