Probleme sur boucle

& ' essai(s) !'

Cliquez pour agrandir...

Sub MAJFichierDonnees()
Dim Sesame        As String, CompteurSesame            As Byte
With MAJDonnees
        Sesame = .MotdePasseMAJDonnees.Value
        CompteurSesame = 0
        If Sesame = 'TATA' Then
                .Hide
                .Show
        Else
                With .MotdePasseMAJDonnees
                            Do
                                    MsgBox 'Mot de Passe incorrect, recommencez, il vous reste ' & 3 - CompteurSesame & ' essai(s) !'
                                .Text = ''
                                .SetFocus
                                    CompteurSesame = CompteurSesame + 1
                            Loop Until Sesame = 'TATA' Or CompteurSesame = 3
                End With
                If Not Sesame = 'TATA' Then
                        MsgBox 'Mot de Passe incorrect, au revoir !'
                    .Hide
                End If
        End If
End With
End Sub

Cliquez pour agrandir...

Sub MAJFichierDonnees()
Dim Sesame As String
Static CompteurSesame As Byte
      With MAJDonnees
            Sesame = .MotdePasseMAJDonnees.Value
            If Sesame = 'TATA' Then
                  Unload MAJDonnees
                  ChoixMAJDonnees.Show
            Else
                  CompteurSesame = CompteurSesame + 1
                  If CompteurSesame < 3 Then
                        MsgBox 'Mot de Passe incorrect, recommencez, il vous reste ' & _
                                    3 - CompteurSesame & ' essai(s) !'
                        With .MotdePasseMAJDonnees
                              .Text = ''
                              .SetFocus
                        End With
                  Else
                        MsgBox 'Mot de Passe incorrect, au revoir !'
                        Unload MAJDonnees
                  End If
            End If
      End With
End Sub

Cliquez pour agrandir...