Discussion :

[fournier]

Bonjour a tous

voila je voudrais savoir si il est possible lors de l'ouverture de exel de fermer tous les fichier exel ouvert merci pour l'info

[AlainTech]

J'ai pas bien compris le but, là...

Normalement, si on ouvre Excel c'est qu'il était fermé avant et donc tous les fichiers aussi.

Normalement veut dire: Sauf cas particulier où on ouvre plusieurs instances d'Excel.
Est-ce ton cas?

Il nous faut un peu plus d'infos pour te répondre.

[AlainTech]

salut merci d'avoir repondu

voila j ai crée une application sous exel mon fichier lorsqu'il s'ouvre ferme toutes les applications exel deja ouverte et j'ai supprimé la barre des menus car j'ai des feuilles cachées et je ne veux pas que les utilisateurs y accedent mais j'ai un petit probleme lorsque j'ouvre un autre fichier exel la barre des menus apparait ce qui et normal donc quand je bascule sur mon fichier la barre des menus y est aussi donc je voudrais que lorsqu'un fichier exel s'ouvre le miens se ferme

voila ce que j'ai mis dans le thisworbook de mon fichier pour fermer les autre appication

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
Private Sub Workbook_Open() 
 
Dim Wbk As Workbook, Arr 
 
Arr = Array("réincorpo3.xls", ThisWorkbook.Name) 
For Each Wbk In Workbooks 
Wbk.Save 
If IsError(Application.Match(Wbk.Name, Arr, 0)) Then Wbk.Close 
Next Wbk 
With Application 
.CommandBars(1).Enabled = False 
 
.DisplayFormulaBar = False 
.ActiveWindow.DisplayHeadings = False 
End With 
 
End Sub

[Igloobel]

Je te proposerais dans sub workbook_activate() de caché tes menus enfin tout ce que tu veux faire dès que le classeur est activé

Igloobel