Discussion :

[persjussysylvain]

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

[Transitoire]

Bonjour, J'ai rien pour vérifier, mais vous pouvez peut être essayer le code ci-dessous. Sur un malentendu ça peut marcher?

Code :

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

1
2
3
4
5
6
7
Dim MonClasseurAmoi As Workbook, LeClasseurDeMaCollegue As Workbook, FenetreActive As Window
   Set MonClasseurAmoi = ThisWorkbook
   Set LeClasseurDeMaCollegue = Workbooks.Open("Q:\Commun\Salaries2018.xlsx")
   Set FenetreActive = ActiveWindows
   LeClasseurDeMaCollegue.RefreshAll
   MonClasseurAmoi.UpdateLinks = xlUpdateLinksAlways
   FenetreActive.Visible = False

N'oubliez pas lorsque vous n'en avez plus besoin de remettre a zéro pour libérer de la mémoire: exemple

Code :

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

Set FenetreActive = nothing

Cordialement

[persjussysylvain]

Je ne comprends pas
C'est le même code
Je dois rajouter

Code :

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

Set FenetreActive = nothing

àla fin du code
Merci

[persjussysylvain]

J'ai essayé ce 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
21
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
 
With ThisWorkbook
        Workbooks.Open ("Q:\Commun\Salaries2018.xlsx")
        Set WbkD = ActiveWorkbook
        ActiveWorkbook.RefreshAll
        ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
        Windows(ActiveWorkbook.WbkD).Visible = False
        End With
 
 
End Sub

Mais erreur d'execution 438 ???

[Arkham46]

Bonjour,

Ne travaillez pas avec ActiveWorkbook alors que vous avez une référence au classeur (LeClasseurDeMaCollegue).
En partant de cette référence, rendre invisible la première fenêtre de ce classeur, c'est la fenêtre principale.

Code :

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

1
2
3
4
5
6
7
Dim MonClasseurAmoi As Workbook, LeClasseurDeMaCollegue As Workbook, FenetreActive As Window
   Set MonClasseurAmoi = ThisWorkbook
   Set LeClasseurDeMaCollegue = Workbooks.Open("Q:\Commun\Salaries2018.xlsx")
 
   LeClasseurDeMaCollegue.RefreshAll
   MonClasseurAmoi.UpdateLinks = xlUpdateLinksAlways
   LeClasseurDeMaCollegue.Windows(1).Visible = False

[persjussysylvain]

Ca marche parfaitement
Merci beaucoup

A quoi sert le (1) dans

Code :

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

LeClasseurDeMaCollegue.Windows(1).Visible = False

svp ?
Merci

[persjussysylvain]

Une autre question :

J'ai partagé mon fichier sur le onedrive de l'etablissement pour partager avec la secrétaire.

Si je ferme mon fichier alors que la secrétaire est en train de l'utiliser, est-ce que le fichier salaries2018 va se fermer pour la secrétaire ?

Merci beaucoup de votre aide précieuse

Cordialement

[Arkham46]

A quoi sert le (1) dans

Code :

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

LeClasseurDeMaCollegue.Windows(1).Visible = False

svp ?

Le 1 c'est la première fenêtre du classeur, c'est ça que j'avais appelé "fenêtre principal" du classeur dans mon précédent message.

Une autre question :

J'ai partagé mon fichier sur le onedrive de l'etablissement pour partager avec la secrétaire.

Si je ferme mon fichier alors que la secrétaire est en train de l'utiliser, est-ce que le fichier salaries2018 va se fermer pour la secrétaire ?

Merci beaucoup de votre aide précieuse

Cordialement

Non aucune raison que ça ferme le fichier sur son poste.
Par contre je ne sais pas comment se comporte onedrive sur les accès concurrents.

[persjussysylvain]

Je vous remercie beaucoup

Bonne journée