Bonjour voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub OuvreToto()

  On Error Resume Next
  For i = 1 To 4
    test = Chr(96 + i)
    Workbooks.Open FileName:="c:\windows\bureau\toto.xls", password:=test
            
    If Workbooks("toto").Open = True Then
            
      Exit Sub
    End If
  Next i

End Sub
Dans cette macro, j'ai un fichier toto protégé par un mot de passe "c", je demande d'ouvrir "toto" et de tester les mots de passe "a" puis"b", puis "c", puis"d".
Tout se passe très bien sauf que je voudrais que lorsqu'il trouve le bon mot de passe la macro s'arrete ... et j'y arrive pas.
Quelqu'un a une idée de piste à suivre ??????