Supprimer puis recréer un feuillet

Bonjour forum,

j'aimerais créer une action dans une macro qui "delete" le feuillet "ID" dans un classeur mais qui la recrée aussitôt sous le même nom par la suite. Cette action doit être répétée à toutes les heures. J'ai tenté ceci:

Sheets("ID").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets.Add After:=Sheets("ID")

mais la dernière ligne ne fonctionne pas. Quelqu'un m'indiquer la correction à faire.

Je vous remercie en avance et je souhaite une: "Bonne année à tous"

Emil

Bonsoir Emil

Comme ceci :

On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("ID").Delete
    Sheets.Add().Name = "ID"
On Error GoTo 0

klin89

Fort apprécié. Merci encore!

Bonjour Emil, Klin89,

??? au lieu de supprimer la feuille "ID" puis la recréer, ceci est plus simple :

Worksheets("ID").Cells.Clear

posologie : à appeler toutes les heures, sans modération

dhany

Rechercher des sujets similaires à "supprimer puis recreer feuillet"