problème d'exécution de code

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 :D:D:

Code:

---

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

---

:aie::aie:



Ici ma fonction qui vérifie si la feuille existe

Code:

---

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

Bonjour,

Dans ta fonction, mets ceci :

Code:

---

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,

Merci, ça marche :D

Bonjour,

Vous pouvez aussi le faire directement par

Code:

---

IsObject

---

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

Exemple:

Code:

---

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

---

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 …