pourrquoi, paul? pour me donner l'occasion de faire ma première réponse (dont je ne suis même pas certain qu'elle soit juste) de l'année... jps
"Paul V." wrote:
Bonjour,
Juste pour satisfaire mon insatiable curiosité : Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro Bonne fraicheur à tou(te)s ThierryGolo
ThierryGolo
Pour répondre à ta question : Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma fenêtre en grand (vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs, les barres de défilement et les têtes de ligne et de colonne. Vraiment ouvert en grand hein? Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?... J'ai chaud............. "Paul V." a écrit dans le message de news: 3f3907cc$0$294$
Bonjour,
Juste pour satisfaire mon insatiable curiosité : Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro Bonne fraicheur à tou(te)s ThierryGolo
Pour répondre à ta question :
Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma
fenêtre en grand
(vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs,
les barres de défilement et les têtes de ligne et de colonne. Vraiment
ouvert en grand hein?
Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma
feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
J'ai chaud.............
"Paul V." <pav4006@skynet.be> a écrit dans le message de news:
3f3907cc$0$294$ba620e4c@reader0.news.skynet.be...
Bonjour,
Juste pour satisfaire mon insatiable curiosité :
Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous
y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur
depuis un bouton macro
Bonne fraicheur à tou(te)s
ThierryGolo
Pour répondre à ta question : Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma fenêtre en grand (vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs, les barres de défilement et les têtes de ligne et de colonne. Vraiment ouvert en grand hein? Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?... J'ai chaud............. "Paul V." a écrit dans le message de news: 3f3907cc$0$294$
Bonjour,
Juste pour satisfaire mon insatiable curiosité : Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro Bonne fraicheur à tou(te)s ThierryGolo
ThierryGolo
Pour répondre à ta question : Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma fenêtre en grand (vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs, les barres de défilement et les têtes de ligne et de colonne. Vraiment ouvert en grand hein? Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?... J'ai chaud............. "Paul V." a écrit dans le message de news: 3f3907cc$0$294$
Bonjour,
Juste pour satisfaire mon insatiable curiosité : Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro Bonne fraicheur à tou(te)s ThierryGolo
Pour répondre à ta question :
Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma
fenêtre en grand
(vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs,
les barres de défilement et les têtes de ligne et de colonne. Vraiment
ouvert en grand hein?
Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma
feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
J'ai chaud.............
"Paul V." <pav4006@skynet.be> a écrit dans le message de news:
3f3907cc$0$294$ba620e4c@reader0.news.skynet.be...
Bonjour,
Juste pour satisfaire mon insatiable curiosité :
Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous
y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur
depuis un bouton macro
Bonne fraicheur à tou(te)s
ThierryGolo
Pour répondre à ta question : Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma fenêtre en grand (vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs, les barres de défilement et les têtes de ligne et de colonne. Vraiment ouvert en grand hein? Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?... J'ai chaud............. "Paul V." a écrit dans le message de news: 3f3907cc$0$294$
Bonjour,
Juste pour satisfaire mon insatiable curiosité : Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro Bonne fraicheur à tou(te)s ThierryGolo
AV
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro
Un petit coup d'enregistreur ?
AV
Voilà je recherche la synthaxe pour sauver et fermer mon classeur
depuis un bouton macro
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro
Un petit coup d'enregistreur ?
AV
ChrisV
Bonjour Thierry,
Une autre p'tite question, je pourrais pas retirer a l'ouverture les menus standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
Dans la feuille de code de ThisWorkbook:
Private Sub Workbook_Open() Dim cmdB As CommandBar With Application .ScreenUpdating = False .DisplayStatusBar = False .DisplayFormulaBar = False .OnKey "^{w}", "" .OnKey "^{s}", "" End With For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False .DisplayHorizontalScrollBar = False End With Application.ScreenUpdating = True CreateBO End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = Not bye End Sub
Dans un module du classeur:
Public Const nomBO = "Macro/sauv/fermeture/etquiréinisialise" Public bye As Boolean
Sub CreateBO() Dim bo As CommandBar On Error Resume Next DeleteBO Set bo = Application.CommandBars.Add(nomBO) With bo.Controls.Add(msoControlButton) .Caption = "Quitter..." .FaceId = 2151 .OnAction = "quitE" End With bo.Visible = True End Sub
Sub DeleteBO() On Error Resume Next Application.CommandBars(nomBO).Delete End Sub
Private Sub quitE() DeleteBO If Workbooks.Count > 1 Then bye = True fermeture Application.DisplayAlerts = False ActiveWorkbook.Close SaveChanges:=True Else bye = True fermeture With Application .DisplayAlerts = False ActiveWorkbook.Save .Quit End With End If End Sub
Private Sub fermeture() Dim cmdB As CommandBar Application.ScreenUpdating = False For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayStatusBar = True .DisplayFormulaBar = True .OnKey "^{w}" .OnKey "^{s}" End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayHorizontalScrollBar = True End With Application.ScreenUpdating = True End Sub
ChrisV
"ThierryGolo" a écrit dans le message de news:
Pour répondre à ta question : Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma fenêtre en grand (vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs,
les barres de défilement et les têtes de ligne et de colonne. Vraiment ouvert en grand hein? Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?... J'ai chaud............. "Paul V." a écrit dans le message de news: 3f3907cc$0$294$
Bonjour,
Juste pour satisfaire mon insatiable curiosité : Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro Bonne fraicheur à tou(te)s ThierryGolo
Bonjour Thierry,
Une autre p'tite question, je pourrais pas retirer a l'ouverture les menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma
feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
Dans la feuille de code de ThisWorkbook:
Private Sub Workbook_Open()
Dim cmdB As CommandBar
With Application
.ScreenUpdating = False
.DisplayStatusBar = False
.DisplayFormulaBar = False
.OnKey "^{w}", ""
.OnKey "^{s}", ""
End With
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
End With
Application.ScreenUpdating = True
CreateBO
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not bye
End Sub
Dans un module du classeur:
Public Const nomBO = "Macro/sauv/fermeture/etquiréinisialise"
Public bye As Boolean
Sub CreateBO()
Dim bo As CommandBar
On Error Resume Next
DeleteBO
Set bo = Application.CommandBars.Add(nomBO)
With bo.Controls.Add(msoControlButton)
.Caption = "Quitter..."
.FaceId = 2151
.OnAction = "quitE"
End With
bo.Visible = True
End Sub
Sub DeleteBO()
On Error Resume Next
Application.CommandBars(nomBO).Delete
End Sub
Private Sub quitE()
DeleteBO
If Workbooks.Count > 1 Then
bye = True
fermeture
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=True
Else
bye = True
fermeture
With Application
.DisplayAlerts = False
ActiveWorkbook.Save
.Quit
End With
End If
End Sub
Private Sub fermeture()
Dim cmdB As CommandBar
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayStatusBar = True
.DisplayFormulaBar = True
.OnKey "^{w}"
.OnKey "^{s}"
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
End With
Application.ScreenUpdating = True
End Sub
ChrisV
"ThierryGolo" <nospam-ThierryGolo@wanadoo.fr> a écrit dans le message de
news: e7N9W5OYDHA.4040@tk2msftngp13.phx.gbl...
Pour répondre à ta question :
Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma
fenêtre en grand
(vu la chaleur) et puis j'ai retiré les onglets de feuille, les
ascenseurs,
les barres de défilement et les têtes de ligne et de colonne. Vraiment
ouvert en grand hein?
Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma
feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
J'ai chaud.............
"Paul V." <pav4006@skynet.be> a écrit dans le message de news:
3f3907cc$0$294$ba620e4c@reader0.news.skynet.be...
Bonjour,
Juste pour satisfaire mon insatiable curiosité :
Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous
y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur
depuis un bouton macro
Bonne fraicheur à tou(te)s
ThierryGolo
Une autre p'tite question, je pourrais pas retirer a l'ouverture les menus standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
Dans la feuille de code de ThisWorkbook:
Private Sub Workbook_Open() Dim cmdB As CommandBar With Application .ScreenUpdating = False .DisplayStatusBar = False .DisplayFormulaBar = False .OnKey "^{w}", "" .OnKey "^{s}", "" End With For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False .DisplayHorizontalScrollBar = False End With Application.ScreenUpdating = True CreateBO End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = Not bye End Sub
Dans un module du classeur:
Public Const nomBO = "Macro/sauv/fermeture/etquiréinisialise" Public bye As Boolean
Sub CreateBO() Dim bo As CommandBar On Error Resume Next DeleteBO Set bo = Application.CommandBars.Add(nomBO) With bo.Controls.Add(msoControlButton) .Caption = "Quitter..." .FaceId = 2151 .OnAction = "quitE" End With bo.Visible = True End Sub
Sub DeleteBO() On Error Resume Next Application.CommandBars(nomBO).Delete End Sub
Private Sub quitE() DeleteBO If Workbooks.Count > 1 Then bye = True fermeture Application.DisplayAlerts = False ActiveWorkbook.Close SaveChanges:=True Else bye = True fermeture With Application .DisplayAlerts = False ActiveWorkbook.Save .Quit End With End If End Sub
Private Sub fermeture() Dim cmdB As CommandBar Application.ScreenUpdating = False For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayStatusBar = True .DisplayFormulaBar = True .OnKey "^{w}" .OnKey "^{s}" End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayHorizontalScrollBar = True End With Application.ScreenUpdating = True End Sub
ChrisV
"ThierryGolo" a écrit dans le message de news:
Pour répondre à ta question : Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma fenêtre en grand (vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs,
les barres de défilement et les têtes de ligne et de colonne. Vraiment ouvert en grand hein? Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?... J'ai chaud............. "Paul V." a écrit dans le message de news: 3f3907cc$0$294$
Bonjour,
Juste pour satisfaire mon insatiable curiosité : Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro Bonne fraicheur à tou(te)s ThierryGolo
ThierryGolo
Bonsoir ChrisV, Je reponds un peu tard mais je te remercie pour ta réponse que je vais tester A+ ThierryGolo "ChrisV" a écrit dans le message de news: #xY$
Bonjour Thierry,
Une autre p'tite question, je pourrais pas retirer a l'ouverture les menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
Dans la feuille de code de ThisWorkbook:
Private Sub Workbook_Open() Dim cmdB As CommandBar With Application .ScreenUpdating = False .DisplayStatusBar = False .DisplayFormulaBar = False .OnKey "^{w}", "" .OnKey "^{s}", "" End With For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False .DisplayHorizontalScrollBar = False End With Application.ScreenUpdating = True CreateBO End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = Not bye End Sub
Dans un module du classeur:
Public Const nomBO = "Macro/sauv/fermeture/etquiréinisialise" Public bye As Boolean
Sub CreateBO() Dim bo As CommandBar On Error Resume Next DeleteBO Set bo = Application.CommandBars.Add(nomBO) With bo.Controls.Add(msoControlButton) .Caption = "Quitter..." .FaceId = 2151 .OnAction = "quitE" End With bo.Visible = True End Sub
Sub DeleteBO() On Error Resume Next Application.CommandBars(nomBO).Delete End Sub
Private Sub quitE() DeleteBO If Workbooks.Count > 1 Then bye = True fermeture Application.DisplayAlerts = False ActiveWorkbook.Close SaveChanges:=True Else bye = True fermeture With Application .DisplayAlerts = False ActiveWorkbook.Save .Quit End With End If End Sub
Private Sub fermeture() Dim cmdB As CommandBar Application.ScreenUpdating = False For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayStatusBar = True .DisplayFormulaBar = True .OnKey "^{w}" .OnKey "^{s}" End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayHorizontalScrollBar = True End With Application.ScreenUpdating = True End Sub
ChrisV
"ThierryGolo" a écrit dans le message de news:
Pour répondre à ta question : Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma fenêtre en grand (vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs,
les barres de défilement et les têtes de ligne et de colonne. Vraiment ouvert en grand hein? Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?... J'ai chaud............. "Paul V." a écrit dans le message de news: 3f3907cc$0$294$
Bonjour,
Juste pour satisfaire mon insatiable curiosité : Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro Bonne fraicheur à tou(te)s ThierryGolo
Bonsoir ChrisV,
Je reponds un peu tard mais je te remercie pour ta réponse que je vais
tester
A+
ThierryGolo
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de news:
#xY$ugTYDHA.1004@TK2MSFTNGP12.phx.gbl...
Bonjour Thierry,
Une autre p'tite question, je pourrais pas retirer a l'ouverture les
menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma
feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
Dans la feuille de code de ThisWorkbook:
Private Sub Workbook_Open()
Dim cmdB As CommandBar
With Application
.ScreenUpdating = False
.DisplayStatusBar = False
.DisplayFormulaBar = False
.OnKey "^{w}", ""
.OnKey "^{s}", ""
End With
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
End With
Application.ScreenUpdating = True
CreateBO
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not bye
End Sub
Dans un module du classeur:
Public Const nomBO = "Macro/sauv/fermeture/etquiréinisialise"
Public bye As Boolean
Sub CreateBO()
Dim bo As CommandBar
On Error Resume Next
DeleteBO
Set bo = Application.CommandBars.Add(nomBO)
With bo.Controls.Add(msoControlButton)
.Caption = "Quitter..."
.FaceId = 2151
.OnAction = "quitE"
End With
bo.Visible = True
End Sub
Sub DeleteBO()
On Error Resume Next
Application.CommandBars(nomBO).Delete
End Sub
Private Sub quitE()
DeleteBO
If Workbooks.Count > 1 Then
bye = True
fermeture
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=True
Else
bye = True
fermeture
With Application
.DisplayAlerts = False
ActiveWorkbook.Save
.Quit
End With
End If
End Sub
Private Sub fermeture()
Dim cmdB As CommandBar
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayStatusBar = True
.DisplayFormulaBar = True
.OnKey "^{w}"
.OnKey "^{s}"
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
End With
Application.ScreenUpdating = True
End Sub
ChrisV
"ThierryGolo" <nospam-ThierryGolo@wanadoo.fr> a écrit dans le message de
news: e7N9W5OYDHA.4040@tk2msftngp13.phx.gbl...
Pour répondre à ta question :
Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma
fenêtre en grand
(vu la chaleur) et puis j'ai retiré les onglets de feuille, les
ascenseurs,
les barres de défilement et les têtes de ligne et de colonne. Vraiment
ouvert en grand hein?
Une autre p'tite question, je pourrais pas retiter a l'ouverture les
menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma
feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
J'ai chaud.............
"Paul V." <pav4006@skynet.be> a écrit dans le message de news:
3f3907cc$0$294$ba620e4c@reader0.news.skynet.be...
Bonjour,
Juste pour satisfaire mon insatiable curiosité :
Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous
y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur
depuis un bouton macro
Bonne fraicheur à tou(te)s
ThierryGolo
Bonsoir ChrisV, Je reponds un peu tard mais je te remercie pour ta réponse que je vais tester A+ ThierryGolo "ChrisV" a écrit dans le message de news: #xY$
Bonjour Thierry,
Une autre p'tite question, je pourrais pas retirer a l'ouverture les menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?...
Dans la feuille de code de ThisWorkbook:
Private Sub Workbook_Open() Dim cmdB As CommandBar With Application .ScreenUpdating = False .DisplayStatusBar = False .DisplayFormulaBar = False .OnKey "^{w}", "" .OnKey "^{s}", "" End With For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB With ActiveWindow .DisplayWorkbookTabs = False .DisplayHeadings = False .DisplayHorizontalScrollBar = False End With Application.ScreenUpdating = True CreateBO End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = Not bye End Sub
Dans un module du classeur:
Public Const nomBO = "Macro/sauv/fermeture/etquiréinisialise" Public bye As Boolean
Sub CreateBO() Dim bo As CommandBar On Error Resume Next DeleteBO Set bo = Application.CommandBars.Add(nomBO) With bo.Controls.Add(msoControlButton) .Caption = "Quitter..." .FaceId = 2151 .OnAction = "quitE" End With bo.Visible = True End Sub
Sub DeleteBO() On Error Resume Next Application.CommandBars(nomBO).Delete End Sub
Private Sub quitE() DeleteBO If Workbooks.Count > 1 Then bye = True fermeture Application.DisplayAlerts = False ActiveWorkbook.Close SaveChanges:=True Else bye = True fermeture With Application .DisplayAlerts = False ActiveWorkbook.Save .Quit End With End If End Sub
Private Sub fermeture() Dim cmdB As CommandBar Application.ScreenUpdating = False For Each cmdB In Application.CommandBars cmdB.Enabled = True Next cmdB With Application .DisplayStatusBar = True .DisplayFormulaBar = True .OnKey "^{w}" .OnKey "^{s}" End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayHorizontalScrollBar = True End With Application.ScreenUpdating = True End Sub
ChrisV
"ThierryGolo" a écrit dans le message de news:
Pour répondre à ta question : Pourqui ne pas se servir des boutons standard, parceque j'ai ouvert ma fenêtre en grand (vu la chaleur) et puis j'ai retiré les onglets de feuille, les ascenseurs,
les barres de défilement et les têtes de ligne et de colonne. Vraiment ouvert en grand hein? Une autre p'tite question, je pourrais pas retiter a l'ouverture les menus
standard (sans oublier de les replacer à la fermeture) et avoir sur ma feuille un bouton/Macro/sauv/fermeture/etquiréinisialise?... J'ai chaud............. "Paul V." a écrit dans le message de news: 3f3907cc$0$294$
Bonjour,
Juste pour satisfaire mon insatiable curiosité : Pourquoi ne pas utiliser les boutons standard???
A+
Paul V.
ThierryGolo wrote:
Bonjour à tous y'a qq'un de sympa pour m'éclairer
Voilà je recherche la synthaxe pour sauver et fermer mon classeur depuis un bouton macro Bonne fraicheur à tou(te)s ThierryGolo
ChrisV
Salut JP,
Tout d'abord... toutes mes excuses à tous pour ce post, parti un peu trop vite avec une zic de fond (Lenny Kravitz-Are you gonna go my way) testée pour l'occas, mais qui à fait passer le poids de 4 à 52 Ko...
Pour le reste (au bout d'un certain temps... ?), configure ton Mozilla/5.0 pour qu'il accepte les scripts Java...! Et si tu veux voir plus précisément... Ctrl+F2 ;-)
Bonne nuit JP
ChrisV
"sabatier" a écrit dans le message de news:
c'est quoi ce truc? jps PS chez moi, c'est sorti sur fond vert et au bout d'un certain temps...
ChrisV a écrit:
Bonsoir ChrisV, Je réponds un peu tard mais je te remercie pour ta réponse que je vais tester A+ ThierryGolo
Salut JP,
Tout d'abord... toutes mes excuses à tous pour ce post, parti un peu trop
vite avec une zic de fond (Lenny Kravitz-Are you gonna go my way) testée
pour l'occas, mais qui à fait passer le poids de 4 à 52 Ko...
Pour le reste (au bout d'un certain temps... ?), configure ton Mozilla/5.0
pour qu'il accepte les scripts Java...! Et si tu veux voir plus
précisément... Ctrl+F2 ;-)
Bonne nuit JP
ChrisV
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F3AC37A.8060808@wanadoo.fr...
c'est quoi ce truc?
jps
PS chez moi, c'est sorti sur fond vert et au bout d'un certain temps...
ChrisV a écrit:
Bonsoir ChrisV,
Je réponds un peu tard mais je te remercie pour ta réponse que je vais
tester
A+
ThierryGolo
Tout d'abord... toutes mes excuses à tous pour ce post, parti un peu trop vite avec une zic de fond (Lenny Kravitz-Are you gonna go my way) testée pour l'occas, mais qui à fait passer le poids de 4 à 52 Ko...
Pour le reste (au bout d'un certain temps... ?), configure ton Mozilla/5.0 pour qu'il accepte les scripts Java...! Et si tu veux voir plus précisément... Ctrl+F2 ;-)
Bonne nuit JP
ChrisV
"sabatier" a écrit dans le message de news:
c'est quoi ce truc? jps PS chez moi, c'est sorti sur fond vert et au bout d'un certain temps...
ChrisV a écrit:
Bonsoir ChrisV, Je réponds un peu tard mais je te remercie pour ta réponse que je vais tester A+ ThierryGolo
sabatier
bien, chef jps PS je réponds par politesse mais je doute que tu sois déjà levé!
ChrisV wrote:
Salut JP,
Tout d'abord... toutes mes excuses à tous pour ce post, parti un peu trop vite avec une zic de fond (Lenny Kravitz-Are you gonna go my way) testée pour l'occas, mais qui à fait passer le poids de 4 à 52 Ko...
Pour le reste (au bout d'un certain temps... ?), configure ton Mozilla/5.0 pour qu'il accepte les scripts Java...! Et si tu veux voir plus précisément... Ctrl+F2 ;-)
Bonne nuit JP
ChrisV
"sabatier" a écrit dans le message de news:
c'est quoi ce truc? jps PS chez moi, c'est sorti sur fond vert et au bout d'un certain temps...
ChrisV a écrit:
Bonsoir ChrisV, Je réponds un peu tard mais je te remercie pour ta réponse que je vais tester A+ ThierryGolo
bien, chef
jps
PS je réponds par politesse mais je doute que tu sois déjà levé!
ChrisV wrote:
Salut JP,
Tout d'abord... toutes mes excuses à tous pour ce post, parti un peu trop
vite avec une zic de fond (Lenny Kravitz-Are you gonna go my way) testée
pour l'occas, mais qui à fait passer le poids de 4 à 52 Ko...
Pour le reste (au bout d'un certain temps... ?), configure ton Mozilla/5.0
pour qu'il accepte les scripts Java...! Et si tu veux voir plus
précisément... Ctrl+F2 ;-)
Bonne nuit JP
ChrisV
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F3AC37A.8060808@wanadoo.fr...
c'est quoi ce truc?
jps
PS chez moi, c'est sorti sur fond vert et au bout d'un certain temps...
ChrisV a écrit:
Bonsoir ChrisV,
Je réponds un peu tard mais je te remercie pour ta réponse que je vais
tester
A+
ThierryGolo
bien, chef jps PS je réponds par politesse mais je doute que tu sois déjà levé!
ChrisV wrote:
Salut JP,
Tout d'abord... toutes mes excuses à tous pour ce post, parti un peu trop vite avec une zic de fond (Lenny Kravitz-Are you gonna go my way) testée pour l'occas, mais qui à fait passer le poids de 4 à 52 Ko...
Pour le reste (au bout d'un certain temps... ?), configure ton Mozilla/5.0 pour qu'il accepte les scripts Java...! Et si tu veux voir plus précisément... Ctrl+F2 ;-)
Bonne nuit JP
ChrisV
"sabatier" a écrit dans le message de news:
c'est quoi ce truc? jps PS chez moi, c'est sorti sur fond vert et au bout d'un certain temps...
ChrisV a écrit:
Bonsoir ChrisV, Je réponds un peu tard mais je te remercie pour ta réponse que je vais tester A+ ThierryGolo
