Bonjour, j'ai une erreur d'exécution que je n'arrive pas à régler :

Impossible de renommer une feuille comme une autre feuille, une bibliothèque d'objets référencée ou un classeur ...

Je crois que cela vient du fait que la feuille existe déjà, j'aimerais pourtant qu'il m'écrive le message de la boîte à chaque fois que je clique sur le bouton ! Mais même en supprimant le reste de l'exécution, je remarque qu'il ignore juste cette ligne ! Pourquoi et comment corriger cela ?

je reviens encore à la charge :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim WsSOurce As Worksheet, filtre As Workbook, WsCible As Worksheet
    Dim Dab As String, Fin As String
    Application.ScreenUpdating = False
    Set WsSOurce = ThisWorkbook.Sheets("en cours liste complète réseau")
    On Error Resume Next: WsSOurce.ShowAllData: On Error GoTo 0
 
        'Application.DisplayAlerts = False
    If FeuilleExiste("réseau en cours tarifé" & Year(Date)) = True Then
      '  Sheets("réseau en cours tarifé" & Year(Date)).Delete
      MsgBox ("L'onglet Réseau en cours tarifé " & Year(Date) & " exsite déjà ! Veuillez d'abord la supprimer")
        'Application.DisplayAlerts = True
 
    End If





Ici ma fonction qui vérifie si la feuille existe

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Public Function FeuilleExiste(Nom As String) As Boolean
    Dim sh As Object
 
    For Each sh In Sheets
        If UCase(sh.Name) = UCase(Nom) Then
            FeuilleExiste = True
            Exit For
        End If
    Next
End Function
Merci pour votre aide