Bonjour à toutes et à tous,
Je voudrai savoir s'il est possible (sans que ce soit une usine à gas ) de vérifier l'existance d'une feuille?
Dans le code si dessous, je suis obligé d'attendre la fin du mois pour sauvegarder, car si je fais 2 sauvegardes, j'ai une erreur (excel ne peut pas créer 2 fois la même feuille).
Ce que j'aurai souhaité, c'est que si la feuille est déjà présente, soit je l'écrase, soit je la supprime pour ensuite la recréer.
Mon code:
Private Sub CommandButton1_Click()
Dim mois As String, x As Date
Sheets("Modèle").Activate
ActiveSheet.Copy After:=Sheets(Sheets.Count)
x = Range("H5") 'repérer le n° du mois à sauvegarder
ActiveSheet.Name = UCase(Format(x, "mmmm")) 'ex:JANVIER
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete 'Effacer le bouton de sauvegarde
mois = ActiveSheet.Name
Sheets("Modèle").Select 'on revient au modèle après sauvegarde'
MsgBox ("Le mois de " & mois & "" & " est sauvegardé")
End Sub
Sans abuser de votre gentillesse, si vous pouviez ajouter quelques commentaires afin de comprendre (du moins essayer)
Merci pour vos réponses,
Cordialement,
xorsankukai