Macro excel
freshyback
-
néné -
néné -
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
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
A voir également:
- Macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
2 réponses
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
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
