Code indépendant du nom de fichier

Version imprimable

Bonjour,

Je travaille sous Excel 2003 et je veux rendre le code ci-dessous indépendant du nom du fichier mais les lignes suivantes ne fonctionnent pas:

Code:

Windows (ActiveWorkbook.Name).Visible = True

Code:

Windows (Fichier).Visible = True

Celle qui fonctionne:

Code:

Windows("budget.xls").Visible = True

Quelqu'un a des idées.

Merci

Code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Application.EnableCancelKey = xlDisabled
  If Sh.Name = "Admin" Then
     ActiveWindow.Visible = False
     Dim Fichier As String
     Fichier = ActiveWorkbook.Name
     Dim MotDePasse As String
     MotDePasse = InputBox("Entrez votre mot de passe.", _     "Mot de passe requis", "*****")
     If Not MotDePasse = "toto" Then
       MsgBox "Le mot de passe saisi est incorrect.", _
       vbOKOnly* + *vbInformation, "Mot de passe incorrect"
       ThisWorkbook.Sheets("Feuil 1").Activate
     End If
 
     ' Windows("budget.xls").Visible = True
     Windows (ActiveWorkbook.Name).Visible = True
     ' Windows (Fichier).Visible = True
 
  End If
End Sub

Seulement pour la compréhension de la syntaxe et non pour le résultat attendu incompréhensible pour moi.
mieux de travailler ainsi avec le classeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim wbk As Workbook
Dim Fichier As String
Dim MotDePasse As String
 
 
Application.EnableCancelKey = xlDisabled
Set wbk = ThisWorkbook
 
  If Sh.Name = "Admin" Then
     Windows(wbk.Name).Visible = False
 
     MotDePasse = InputBox("Entrez votre mot de passe.", "Mot de passe requis", "*****")
     If Not MotDePasse = "toto" Then
       MsgBox "Le mot de passe saisi est incorrect.", vbOKOnly + vbInformation, "Mot de passe incorrect"
       Windows(wbk.Name).Visible = True
       MsgBox "kuku, sans toto"
     End If
 
    MsgBox "Waw, après toto"
     Windows(wbk.Name).Visible = True
 
  End If
 
End Sub

19/09/2009, 21h58
urbania

Merci mercatog, cela fonctionne maintenant!