Discussion :

[aziz1015]

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

[Gado2600]

Bonjour,

Dans ta fonction, mets ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Function FeuilleExiste(Nom As String) As Boolean
    Dim sh As Object
 
    FeuilleExiste = false
    For Each sh In Sheets
        If UCase(sh.Name) = UCase(Nom) Then
            FeuilleExiste = True
            Exit For
        End If
    Next
End Function

Pour moi, le manque d'initialisation de variable dans ta fonction lui retourne par défaut "True".
En effet, dans le cas où tu n'initialise pas tes variables, VBA s'en charge pour toi et, il se peut qu'il le fera de manière à t'embêter un peu

Cordialement,

[aziz1015]

Merci, ça marche

[vinc_bilb]

Bonjour,

Vous pouvez aussi le faire directement par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IsObject

ou par un test direct sans passer par toutes les feuilles, en testant l'erreur retournée

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function Exist_Wsh(Wbk As Workbook, WshName As String) As Boolean
'=============================================================================
 
    If IsMissing(Wbk) Then Set Wbk = ActiveWorkbook
 
    On Error GoTo Err_notexist
    Exist_Wsh = False
    If Wbk.Worksheets(WshName).Name <> "" Then Exist_Wsh = True 'On accède directement
 
Err_notexist:
 
        ' Si on a une erreur, on teste si c'est un code 9 (sheet inexistante)
    If err.Number = 9 Then
            err.Clear
 
    Else:
        If err.Number > 0 Then
            MsgBox "Error: " & err.Number & vbCrLf & err.Description, vbCritical
            Exist_Wsh = False
            err.Clear
        End If
    End If
End Function

[Marc-L]

Bonjour,

on peut tester l'existence d'une feuille avec la fonction de feuille de calculs ESTREF (1 ou 2 lignes de code),
voir les liens que j'ai déjà postés dans son autre discussion sur le même sujet pourtant …