Bonjour,

J'ai une erreur lorsque je veux cacher le fichier que j'ouvre automatiquement a l'ouverture d'un autre.

La ligne posant problème est la suivante:

Windows("FICHE TECHNIQUE.xlsm").Visible = False

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub Workbook_Open()
 
Set file = CreateObject("Scripting.FileSystemObject")
If file.FileExists("W:\...\FICHE TECHNIQUE.xlsm") Then
Workbooks.Open Filename:="W:\...\FICHE TECHNIQUE.xlsm", ReadOnly:=True
Windows("FICHE TECHNIQUE.xlsm").Visible = False
End If
 
End Sub