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 : Sélectionner tout - Visualiser dans une fenêtre à part
Windows (ActiveWorkbook.Name).Visible = True
ou
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Windows (Fichier).Visible = True
Celle qui fonctionne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Windows("budget.xls").Visible = True
Quelqu'un a des idées.

Merci

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