Discussion :

[Nanit6]

Bonjour,
J'ai un fichier excel dans lequel j'appelle par lien hypertext un autre fichier excel. Ce que je voudrais faire c'est que le second fichier que j'ouvre soit sans, ou avec le moins possible, barre d'outils.
Comment faire sachant que ce fichier sera ouvert par plusieurs PC différents donc configurés pour excel différemment.
Merci de votre aide

[jfontaine]

Attention en faisant ca de ne pas te mettre a dos tous les utilisateurs qui ne retrouveront pas leurs barres d'outils a la fermeture de ton fichier

procedure à appeler à l'ouverture de ton classeur (Open)

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
 
Sub DesactiveCommandBar()
 
Dim mb As CommandBar
Dim i As Integer
i = 1
 
For Each mb In Application.CommandBars
 
    If mb.Visible = True Then
        Sheets("SaveCommand").Range("A" & i).Value = mb.Name
        If mb.Index > 1 Then mb.Visible = False
        i = i + 1
    End If
 
Next
 
 
End Sub

Procedure a appeler a la fermeture de ton classeur (beforeClose)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub ReactiveCommandBar()
 
Dim i As Integer
i = 1
 
Do While Sheets("SaveCommand").Range("A" & i).Value <> ""
    Application.CommandBars(Sheets("SaveCommand").Range("A" & i).Value).Visible = True
    i = i + 1
Loop
 
 
End Sub

dans ce code la liste des barres d'outil visible est sauvegarder dans la feuille SaveCommand.

[Nanit6]

Ou alors pour ne pas qu'il y ait de problème avec mes utilisateurs, serait-il possible d'ouvrir ce fichier en plein ecran. Ce ne serait-il pas plus facile ?
Sinon merci pour ta réponse jfontaine

[jfontaine]

Oui, en effet, j'ai pas percuter d'utiliser le plein ecran

dans les memes evenements

Pour basculer en plein ecran

Code :

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

    Application.DisplayFullScreen = True

[Nanit6]

T'entends quoi par "dans les memes evenements" ?
Et pourrais-tu me dire comment je programme le fait que cela doit se faire à l'ouverture du fichier.
En tout cas ça va être plus facile maintenant...!

[jfontaine]

Dans le menu Outils / Macro / visual Basic Editor

si tu ne connais pas lis ca avant pour te familiariser http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Dans l'évenement Workbook_Open()
Action a l'ouverture du classeur

Code :

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

Application.DisplayFullScreen = True

Dans l'évenement Workbook_BeforeClose(Cancel As Boolean)
Action avant la fermeture du classeur

Code :

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

Application.DisplayFullScreen = False

[Nanit6]

OK merci beaucoup pour ton aide !

[LaPanic]

Bonjour,

jfontaine a dit:
dans ce code la liste des barres d'outil visible est sauvegarder dans la feuille SaveCommand.

je n'ai pas compris comment ca doit ce faire
Merci pour votre aide

[jfontaine]

Avec ce code je sauvegarde la liste des barre d'outils activées sur le poste

Code :

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

Sheets("SaveCommand").Range("A" & i).Value = mb.Name

[LaPanic]

Merci jfontaine,
si je crois bien comprendre la colonne (A:A) doit rester vide ...!?
Merci pour les explications.