Sécurité macro pour la création d'une feuille (éviter les doublons)

Hello, (première contribution ici pour moi)

Je suis en étude sup' ingé Génie Civil (en gros j'ai jamais codé a part un peu de python mais très très léger). Je suis en stage et je pense que je peux aider mon chef pour qu'il gagne du temps.

En gros si je résume un peu, mon chef doit rentrer des données sur une feuille qui lui sert de modèle (feuille1) , il doit changer le nom de la feuille avec la date. (j'ai fais une macro pour ca). Je rencontre un pb sur un point, je cherche à mettre dans ma macro une sécurité pour qu'il (mon chef) ne créé pas deux fois la même feuille et que ca fasse sauter mon programme.

(Ce que je pense coder sur le doc pour optimiser encore le fichier) :

Je dois par la suite aussi communiquer entre les feuilles pour que le nombre restant de pieux à réaliser devienne l'objectif du lendemain. Idem pour le cumul des infos béton, GNR, AD BLUE et Gaz.

Si jamais l'un de vous échanger avec moi pour structurer ma pensée de jeune qui découvre la progra et le VBA je ne suis pas contre du tout !

En vous remerciant par avance, je vous mets le doc en PJ

Bonne journée

J'ai réussi :

Sub TestFeuilleDatée()

    Dim newSheetName As String
    Dim checkSheetName As String
    Dim x As Object
    Dim feuilleexiste As Boolean

'Test existence feuille
    On Error Resume Next
    Set x = ActiveWorkbook.Sheets(Format(Date, "dd mmm yy"))
    If err = 0 Then feuilleexiste = True _
        Else feuilleexiste = False

'Copie feuille
    If feuilleexiste = True Then
        MsgBox "Feuille existante"
        Exit Sub
    Else
        Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Format(Date, "dd mmm yy")
        MsgBox "Feuille ajoutée"
    End If

End Sub
Rechercher des sujets similaires à "securite macro creation feuille eviter doublons"