Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour Daniel,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Open() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With ActiveWindow.DisplayWorkbookTabs = False End Sub
'puis les remettres à la fermeture du classeur Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With ActiveWindow.DisplayWorkbookTabs = True End Sub
ChrisV
"Daniel Corréia" a écrit dans le message de news:
Bonjour,
Est-il possible de masquer la barre menus, toutes les barres d'outils, barre
de formule, barre d'états à l'ouverture d'un fichier excel ?
Contexte : Se retrouver dans un mode plein écran pour diffusion sur d'une fichier excel sur CD.
Merci
Daniel CORREIA
Bonjour Daniel,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
ActiveWindow.DisplayWorkbookTabs = False
End Sub
'puis les remettres à la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
ActiveWindow.DisplayWorkbookTabs = True
End Sub
ChrisV
"Daniel Corréia" <dcorreia@mcp.fr> a écrit dans le message de news:
efBcgG22DHA.2948@TK2MSFTNGP09.phx.gbl...
Bonjour,
Est-il possible de masquer la barre menus, toutes les barres d'outils,
barre
de formule, barre d'états à l'ouverture d'un fichier excel ?
Contexte : Se retrouver dans un mode plein écran pour diffusion sur d'une
fichier excel sur CD.
Private Sub Workbook_Open() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With ActiveWindow.DisplayWorkbookTabs = False End Sub
'puis les remettres à la fermeture du classeur Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With ActiveWindow.DisplayWorkbookTabs = True End Sub
ChrisV
"Daniel Corréia" a écrit dans le message de news:
Bonjour,
Est-il possible de masquer la barre menus, toutes les barres d'outils, barre
de formule, barre d'états à l'ouverture d'un fichier excel ?
Contexte : Se retrouver dans un mode plein écran pour diffusion sur d'une fichier excel sur CD.
Merci
Daniel CORREIA
Daniel Corréia
Merci pour votre aide :
le code fourni fonctionne , mais je n'arrive pas à ce qu'il soit exécuté à l'ouverture du fichier excel : il ne passe pas dans le statement woorkbook_open (j'ai ajouté une instruction msgbox pour bien le vérifier)
j'ai placé ce source dans la feuille de code associée à la première feuille de calcul du classeur.
si je crée un bouton en lui associant ce code cela fonctionne bien
pouvez-vous me préciser quelle manip pour insérer ce code au bon endroit...merci d'avance
"ChrisV" a écrit dans le message de news: #
Bonjour Daniel,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Open() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With ActiveWindow.DisplayWorkbookTabs = False End Sub
'puis les remettres à la fermeture du classeur Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With ActiveWindow.DisplayWorkbookTabs = True End Sub
ChrisV
"Daniel Corréia" a écrit dans le message de news:
Bonjour,
Est-il possible de masquer la barre menus, toutes les barres d'outils, barre
de formule, barre d'états à l'ouverture d'un fichier excel ?
Contexte : Se retrouver dans un mode plein écran pour diffusion sur d'une
fichier excel sur CD.
Merci
Daniel CORREIA
Merci pour votre aide :
le code fourni fonctionne , mais je n'arrive pas à ce qu'il soit exécuté à
l'ouverture du fichier excel : il ne passe pas dans le statement
woorkbook_open (j'ai ajouté une instruction msgbox pour bien le vérifier)
j'ai placé ce source dans la feuille de code associée à la première feuille
de calcul du classeur.
si je crée un bouton en lui associant ce code cela fonctionne bien
pouvez-vous me préciser quelle manip pour insérer ce code au bon
endroit...merci d'avance
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de news:
#p7cCQ22DHA.3088@TK2MSFTNGP09.phx.gbl...
Bonjour Daniel,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
ActiveWindow.DisplayWorkbookTabs = False
End Sub
'puis les remettres à la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
ActiveWindow.DisplayWorkbookTabs = True
End Sub
ChrisV
"Daniel Corréia" <dcorreia@mcp.fr> a écrit dans le message de news:
efBcgG22DHA.2948@TK2MSFTNGP09.phx.gbl...
Bonjour,
Est-il possible de masquer la barre menus, toutes les barres d'outils,
barre
de formule, barre d'états à l'ouverture d'un fichier excel ?
Contexte : Se retrouver dans un mode plein écran pour diffusion sur
d'une
le code fourni fonctionne , mais je n'arrive pas à ce qu'il soit exécuté à l'ouverture du fichier excel : il ne passe pas dans le statement woorkbook_open (j'ai ajouté une instruction msgbox pour bien le vérifier)
j'ai placé ce source dans la feuille de code associée à la première feuille de calcul du classeur.
si je crée un bouton en lui associant ce code cela fonctionne bien
pouvez-vous me préciser quelle manip pour insérer ce code au bon endroit...merci d'avance
"ChrisV" a écrit dans le message de news: #
Bonjour Daniel,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Open() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With ActiveWindow.DisplayWorkbookTabs = False End Sub
'puis les remettres à la fermeture du classeur Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With ActiveWindow.DisplayWorkbookTabs = True End Sub
ChrisV
"Daniel Corréia" a écrit dans le message de news:
Bonjour,
Est-il possible de masquer la barre menus, toutes les barres d'outils, barre
de formule, barre d'états à l'ouverture d'un fichier excel ?
Contexte : Se retrouver dans un mode plein écran pour diffusion sur d'une
fichier excel sur CD.
Merci
Daniel CORREIA
ChrisV
Re,
Tu peux me transmettre ton classeur en bal perso ?
ChrisV
"Daniel Corréia" a écrit dans le message de news:
Merci pour votre aide :
le code fourni fonctionne , mais je n'arrive pas à ce qu'il soit exécuté à l'ouverture du fichier excel : il ne passe pas dans le statement woorkbook_open (j'ai ajouté une instruction msgbox pour bien le vérifier)
j'ai placé ce source dans la feuille de code associée à la première feuille
de calcul du classeur.
si je crée un bouton en lui associant ce code cela fonctionne bien
pouvez-vous me préciser quelle manip pour insérer ce code au bon endroit...merci d'avance
"ChrisV" a écrit dans le message de news: #
Bonjour Daniel,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Open() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With ActiveWindow.DisplayWorkbookTabs = False End Sub
'puis les remettres à la fermeture du classeur Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With ActiveWindow.DisplayWorkbookTabs = True End Sub
ChrisV
"Daniel Corréia" a écrit dans le message de news:
Bonjour,
Est-il possible de masquer la barre menus, toutes les barres d'outils, barre
de formule, barre d'états à l'ouverture d'un fichier excel ?
Contexte : Se retrouver dans un mode plein écran pour diffusion sur d'une
fichier excel sur CD.
Merci
Daniel CORREIA
Re,
Tu peux me transmettre ton classeur en bal perso ?
ChrisV
"Daniel Corréia" <dcorreia@mcp.fr> a écrit dans le message de news:
egR1PG42DHA.2408@tk2msftngp13.phx.gbl...
Merci pour votre aide :
le code fourni fonctionne , mais je n'arrive pas à ce qu'il soit exécuté à
l'ouverture du fichier excel : il ne passe pas dans le statement
woorkbook_open (j'ai ajouté une instruction msgbox pour bien le vérifier)
j'ai placé ce source dans la feuille de code associée à la première
feuille
de calcul du classeur.
si je crée un bouton en lui associant ce code cela fonctionne bien
pouvez-vous me préciser quelle manip pour insérer ce code au bon
endroit...merci d'avance
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de news:
#p7cCQ22DHA.3088@TK2MSFTNGP09.phx.gbl...
Bonjour Daniel,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
ActiveWindow.DisplayWorkbookTabs = False
End Sub
'puis les remettres à la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
ActiveWindow.DisplayWorkbookTabs = True
End Sub
ChrisV
"Daniel Corréia" <dcorreia@mcp.fr> a écrit dans le message de news:
efBcgG22DHA.2948@TK2MSFTNGP09.phx.gbl...
Bonjour,
Est-il possible de masquer la barre menus, toutes les barres d'outils,
barre
de formule, barre d'états à l'ouverture d'un fichier excel ?
Contexte : Se retrouver dans un mode plein écran pour diffusion sur
d'une
Tu peux me transmettre ton classeur en bal perso ?
ChrisV
"Daniel Corréia" a écrit dans le message de news:
Merci pour votre aide :
le code fourni fonctionne , mais je n'arrive pas à ce qu'il soit exécuté à l'ouverture du fichier excel : il ne passe pas dans le statement woorkbook_open (j'ai ajouté une instruction msgbox pour bien le vérifier)
j'ai placé ce source dans la feuille de code associée à la première feuille
de calcul du classeur.
si je crée un bouton en lui associant ce code cela fonctionne bien
pouvez-vous me préciser quelle manip pour insérer ce code au bon endroit...merci d'avance
"ChrisV" a écrit dans le message de news: #
Bonjour Daniel,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Open() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With Application .DisplayFullScreen = True .DisplayStatusBar = False .DisplayFormulaBar = False End With ActiveWindow.DisplayWorkbookTabs = False End Sub
'puis les remettres à la fermeture du classeur Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With ActiveWindow.DisplayWorkbookTabs = True End Sub
ChrisV
"Daniel Corréia" a écrit dans le message de news:
Bonjour,
Est-il possible de masquer la barre menus, toutes les barres d'outils, barre
de formule, barre d'états à l'ouverture d'un fichier excel ?
Contexte : Se retrouver dans un mode plein écran pour diffusion sur d'une
