Discussion :

[mikael2403]

Bonjour,

Je cherche de l'aide concernant un code VBA.
J'ai trouvé différents échanges sur le forum mais pas de solutions.

J'ai une feuille Active avec un Bouton qui active la macro ci-dessous.
Le but est de copier en dernier une feuille masquée nomée "TRAME_PERIODE" en changeant le nom mais de vérifier que le nom entré dans l'inputbox n'est pas une feuille déjà existante.
J'ai un message d'erreur qui m'indique "Erreur d'exécution '438' : Propriété ou méthode non gérée pour cet objet

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
Private Sub CREER_PERIODE_Click()
 
    Dim periode As String
    Dim WS As Worksheet
    Dim WSname As String
 
    periode = InputBox("Veuillez entrer le nom de votre Période")
 
    For Each WS In Worksheets
        If WS.Name = periode Then
            MsgBox ("Cette période existe déjà, merci d'entrer un autre nom")
            Exit Sub
        End If
    Next
    Sheets("TRAME_PERIODE").Visible = True
    Sheets("TRAME_PERIODE").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = periode
    ActiveSheet.Unprotect
    Selection.OnAction = "ACCUEIL"
    Range("A3").Select
End Sub

Avez-vous une solution ou une modification de mon code ?

Je vous remercie de votre aide.

Mikael