[VBA-E] On error resum next

Version imprimable

Bonjour voici mon code
Code:

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 ??????

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub OuvreToto()
dim i as integer
i=0
do 
i=i+1
  On Error goto fin 
      test = Chr(96 + i)
    Workbooks.Open FileName:="c:\windows\bureau\toto.xls", password:=test
 exit do
 
fin :
test=""
loop until i=4
msgbox "trouvé:" & test<>"" & " " & test  
 on error goto 0    
End Sub

Si mais ...
A la deuxième boucle il bug : erreur n1004 du mot de passe.... etc
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub OuvreToto2() Dim i As Integer i = 0 Do i = i + 1 On Error GoTo fin test = Chr(96 + i) Workbooks.Open FileName:="c:\windows\bureau\toto.xls", password:=test Exit Do fin: test = "" Loop Until i = 4 MsgBox "trouvé:" & test <> "" & " " & test On Error GoTo 0 End Sub
Je suis sous Windows 98 est ce que ca peut jouer ?
On dirait qu'il n'évite pas le message d'erreur des le deuxième passage ??
Est ce normal docteur ??

bonjour

j'espere que cet exemple poura t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub OuvreToto2()
    Dim i As Integer
    Dim Test As String
    Dim Wb As Workbook
 
    On Error Resume Next
    For i = 1 To 4
        Test = Chr(96 + i)
        Set Wb = _
        Workbooks.Open(Filename:="C:\toto.xls", _
                Password:=Test)
 
        If Not Wb Is Nothing Then
            MsgBox "trouvé: " & Test
            Exit For
        End If
 
    Next i
End Sub

michel