Discussion :

[bodd984]

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

[Didier Gonard]

Bonjour,

Quel est le message d'erreur ?

cordialement,

Didier

[bodd984]

J'ai Erreur d'exécution 9, l'indice n'appartient pas à la sélection.

Je ne comprend pas car lorsque j'exécute ce code sur un bouton par exemple il marche très bien mais à l'ouverture impossible!

cordialement

[Yoyo57]

Bonjour,

Le fichier n'est pas encore réellement ouvert lorsque tu veux masquer ton fichier je pense.

Si tu ajoutes la ligne "DoEvents" avant la ligne qui pose problème ca donne quoi ?

[bodd984]

"DoEvents" ne change rien,

C'est possible que le fichier ne soit pas ouvert, par conséquent quel commande je pourrai utiliser pour le cacher automatiquement avec un temps de retard pour le laisser s'ouvrir ?

[Yoyo57]

Tu peux faire ca avec Application.Wait("00:00:05") pour attendre 5 secondes mais ce n'est pas très propre...

Voici une solution plus propre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim Fichier Ouvert as Boolean
 
FichierOuvert = False
Do
    DoEvents
    On Error Resume Next
    Windows("FICHE TECHNIQUE.xlsm").Visible = False
    If Err = 0 Then FichierOuvert = True
    On Error Goto 0
Loop While FichierOuvert = False

Est-ce que cela fonctionne à présent ?