Discussion :

[Phenx]

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

[random]

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

[Phenx]

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

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

[SilkyRoad]

bonjour

j'espere que cet exemple poura t'aider

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