Bonjour,

Je désire à l'ouverture de mon fichier ouvrir un autre classeur et le masquer(Salariés2018.xlsx), une solution fonctionne mais masque les 2 classeurs.
La première partie du code ouvre un classeur (TSH 2018.xlsx) et le referme, cela fonctionne.

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
Private Sub Workbook_Open()
With ThisWorkbook
        Workbooks.Open ("Q:\Commun\TSH 2018.xlsx")
        Set WbkS = ActiveWorkbook
        ActiveWorkbook.RefreshAll
        ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
        WbkS.Close False
    End With
 
 
Dim MonClasseurAmoi As Workbook, LeClasseurDeMaCollegue As Workbook, FenetreActive As Window
   Set MonClasseurAmoi = ThisWorkbook
   Set LeClasseurDeMaCollegue = Workbooks.Open("Q:\Commun\Salaries2018.xlsx")
   Set FenetreActive = ActiveWindow
 
   LeClasseurDeMaCollegue.RefreshAll
   MonClasseurAmoi.UpdateLinks = xlUpdateLinksAlways
   FenetreActive.Visible = False
End Sub

J'ai essayé de remplacer FenetreActive.Visible = False par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Windows(ActiveWorkbook.LeClasseurDeMaCollegue).Visible = False
OU
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Windows("Q:\Commun\Salaries2018.xlsx").Visible = False
Mais ca me note erreur '9'

Pouvez vous m'aider svp

Je vous remercie

Cordialement