Verifier si feuille existe déja

Bonjour à toutes et à tous

Dans mon projet de doit faire en sorte de vérifier si la feuille que je créer existe déjà .

Je nomme cette feuille par la date et l'heure actuelle comme idiqué sur le code ci-desssous

Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Format(Now, "d mmmm yyyy hh") & "h" & Format(Now, "nn")

Si la feuille existe déjà alors un pop-up s'affiche demandant a l'utilisateur si il veut réinitialiser a page ou annuler sont action

Mon problème et que je n'arrive pas a créer la ligne de code permettant de vérifie justement si la feuille nommée par la date et l'heure actuel existe déjà ou pas.

Je souhaiterais donc connaître la ligne me permettant de faire cela en sachant que je possède déja la foction feuilleExiste creer comme ci-dessous.

Public Function FeuilleExiste(FeuilleAVerifier As String) As Boolean
'fonction qui vérifie si la "FeuilleAVerifier" existe dans le Classeur actif
'par Excel-Malin.com

On Error GoTo SiErreur
Dim Feuille As Worksheet

    FeuilleExiste = False
    For Each Feuille In Worksheets
        If UCase(Feuille.Name) = UCase(FeuilleAVerifier) Then
            FeuilleExiste = True
            Exit Function
        End If
    Next Feuille
Exit Function

SiErreur:
    FeuilleExiste = CVErr(xlErrNA)
End Function

Merci pour votre aide,

Bonne journée

Arthur

Bonjour,

il faut d'abord figer le nom de la feuille

newF = Format(Now, "d mmmm yyyy hh") & "h" & Format(Now, "nn")

ensuite tester et traiter sur ce nom, car sinon il pourrait ne pas être le même entre les 2 instructions

donc tu fais

    If FeuilleExiste(newF) Then
        MsgBox "Cette feuille """ & newF& """ existe déjà !"
        Exit Sub
    End If

avec la fonction

Function FeuilleExiste(sNomFeuille As String) As Boolean
    On Error GoTo Err_FeuilleExiste
    FeuilleExiste = False
    FeuilleExiste = Not ActiveWorkbook.Worksheets(sNomFeuille) Is Nothing
Err_FeuilleExiste:
End Function

surtout ne pas mettre FeuilleExiste = CVErr(xlErrNA) qui ne renvoie pas false ! enfin je n'ai pas essayé mais cela me parait superflu.

Bonjour,

merci beucoup pour votre aide.

j'ai bien tout adapter comme vous me l'avez conseiller malheureusement j'ai un message d'erreur qui me dit :

Erreur de compilation

Type d'argument ByRef incompatible

En surlignant le newF entre parantèse au niveau du if

Déclare le nom

Dim newF as string

Merci beaucoup, vous m'avez grandement aider