Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils"
ont disparues de la barre des menus. J'ai complètement désinstallé et
réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas
réapparus.
Que faire ?
Merci de votre aide,
Cordialement,
René
Sélectionnes la commande souhaitée et glisser/coller sur la barre à l'endroit désiré
Fais des essais et dis moi !!!!!
ChristianM
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
essaie ceci,
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
--
ChristianM
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de news:
eJuQ4cVrJHA.3848@TK2MSFTNGP02.phx.gbl...
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et
"Outils" ont disparues de la barre des menus. J'ai complètement
désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu
n'ont pas réapparus.
Que faire ?
Merci de votre aide,
Cordialement,
René
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
René
Bonjour,
Merci, mais comme la commande "Outils" du menu Excel a disparu, je ne peut pas atteindre les commandes suivantes. Y-a-t-il un autre moyen d'accéder au menu "Outils" ? Cordialement, René
Sélectionnes la commande souhaitée et glisser/coller sur la barre à l'endroit désiré
Fais des essais et dis moi !!!!!
Bonjour,
Merci, mais comme la commande "Outils" du menu Excel a disparu, je ne peut
pas atteindre les commandes suivantes. Y-a-t-il un autre moyen d'accéder au
menu "Outils" ?
Cordialement,
René
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
2BDFAED1-F1D9-48C8-ACAF-8864842C06F8@microsoft.com...
Merci, mais comme la commande "Outils" du menu Excel a disparu, je ne peut pas atteindre les commandes suivantes. Y-a-t-il un autre moyen d'accéder au menu "Outils" ? Cordialement, René
Sélectionnes la commande souhaitée et glisser/coller sur la barre à l'endroit désiré
Fais des essais et dis moi !!!!!
René
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
Bonjour Christian,
Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai
bien copié la macro Sésame dans un module et exécuté, mais rien se passe.
Cordialement,
René
"ChristianM" <A@A> a écrit dans le message de news:
OEcQyrVrJHA.4460@TK2MSFTNGP06.phx.gbl...
essaie ceci,
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
--
ChristianM
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de news:
eJuQ4cVrJHA.3848@TK2MSFTNGP02.phx.gbl...
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et
"Outils" ont disparues de la barre des menus. J'ai complètement
désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du
menu n'ont pas réapparus.
Que faire ?
Merci de votre aide,
Cordialement,
René
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
MichDenis
sub test() Application.commandBars(1).Reset End sub
"René" a écrit dans le message de groupe de discussion :
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
sub test()
Application.commandBars(1).Reset
End sub
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de groupe de discussion :
OrttSVWrJHA.3856@TK2MSFTNGP03.phx.gbl...
Bonjour Christian,
Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai
bien copié la macro Sésame dans un module et exécuté, mais rien se passe.
Cordialement,
René
"ChristianM" <A@A> a écrit dans le message de news:
OEcQyrVrJHA.4460@TK2MSFTNGP06.phx.gbl...
essaie ceci,
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
--
ChristianM
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de news:
eJuQ4cVrJHA.3848@TK2MSFTNGP02.phx.gbl...
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et
"Outils" ont disparues de la barre des menus. J'ai complètement
désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du
menu n'ont pas réapparus.
Que faire ?
Merci de votre aide,
Cordialement,
René
sub test() Application.commandBars(1).Reset End sub
"René" a écrit dans le message de groupe de discussion :
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
René
Bonjour MichDenis,
Merci mille fois, une seule ligne de code a suffi, les deux commandes ont réapparu. Cordialement, René
"MichDenis" a écrit dans le message de news:
sub test() Application.commandBars(1).Reset End sub
"René" a écrit dans le message de groupe de discussion :
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
Bonjour MichDenis,
Merci mille fois, une seule ligne de code a suffi, les deux commandes ont
réapparu.
Cordialement,
René
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
23C5D499-5155-4F4A-8B16-30DA188B64FF@microsoft.com...
sub test()
Application.commandBars(1).Reset
End sub
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de groupe
de discussion :
OrttSVWrJHA.3856@TK2MSFTNGP03.phx.gbl...
Bonjour Christian,
Merci du conseil, mais malheureusement, je suis toujours au même point.
J'ai
bien copié la macro Sésame dans un module et exécuté, mais rien se passe.
Cordialement,
René
"ChristianM" <A@A> a écrit dans le message de news:
OEcQyrVrJHA.4460@TK2MSFTNGP06.phx.gbl...
essaie ceci,
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
--
ChristianM
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de news:
eJuQ4cVrJHA.3848@TK2MSFTNGP02.phx.gbl...
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et
"Outils" ont disparues de la barre des menus. J'ai complètement
désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du
menu n'ont pas réapparus.
Que faire ?
Merci de votre aide,
Cordialement,
René
Merci mille fois, une seule ligne de code a suffi, les deux commandes ont réapparu. Cordialement, René
"MichDenis" a écrit dans le message de news:
sub test() Application.commandBars(1).Reset End sub
"René" a écrit dans le message de groupe de discussion :
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
Modeste
Bonsour® ChristianM avec ferveur ;o))) vous nous disiez :
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
il n'y qu'un pas pour que certains m'accusent d'étre vendu ???
;o))) A quand les macros aux enchères sur ebay ???
Mgr T. Banni
un vrai magicien, notre michel du québec manque plus qu'un p'tit coup de :
Application.LapinBlanc(3).Reset
pour ma part, je remercie le Ciel de m'avoir fait son humble serviteur car ce même michel n'aurait pas hésité à me proposer :
Application.BelleMere(1).Reset
Mgr T.B.
"René" a écrit dans le message de news: eO%
Bonjour MichDenis,
Merci mille fois, une seule ligne de code a suffi, les deux commandes ont réapparu. Cordialement, René
"MichDenis" a écrit dans le message de news:
sub test() Application.commandBars(1).Reset End sub
"René" a écrit dans le message de groupe de discussion :
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
un vrai magicien, notre michel du québec
manque plus qu'un p'tit coup de :
Application.LapinBlanc(3).Reset
pour ma part, je remercie le Ciel de m'avoir fait son humble serviteur car
ce même michel n'aurait pas hésité à me proposer :
Application.BelleMere(1).Reset
Mgr T.B.
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de news:
eO%23fcgWrJHA.1212@TK2MSFTNGP04.phx.gbl...
Bonjour MichDenis,
Merci mille fois, une seule ligne de code a suffi, les deux commandes ont
réapparu.
Cordialement,
René
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
23C5D499-5155-4F4A-8B16-30DA188B64FF@microsoft.com...
sub test()
Application.commandBars(1).Reset
End sub
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de
groupe de discussion :
OrttSVWrJHA.3856@TK2MSFTNGP03.phx.gbl...
Bonjour Christian,
Merci du conseil, mais malheureusement, je suis toujours au même point.
J'ai
bien copié la macro Sésame dans un module et exécuté, mais rien se passe.
Cordialement,
René
"ChristianM" <A@A> a écrit dans le message de news:
OEcQyrVrJHA.4460@TK2MSFTNGP06.phx.gbl...
essaie ceci,
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
--
ChristianM
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de
news:
eJuQ4cVrJHA.3848@TK2MSFTNGP02.phx.gbl...
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et
"Outils" ont disparues de la barre des menus. J'ai complètement
désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du
menu n'ont pas réapparus.
Que faire ?
Merci de votre aide,
Cordialement,
René
un vrai magicien, notre michel du québec manque plus qu'un p'tit coup de :
Application.LapinBlanc(3).Reset
pour ma part, je remercie le Ciel de m'avoir fait son humble serviteur car ce même michel n'aurait pas hésité à me proposer :
Application.BelleMere(1).Reset
Mgr T.B.
"René" a écrit dans le message de news: eO%
Bonjour MichDenis,
Merci mille fois, une seule ligne de code a suffi, les deux commandes ont réapparu. Cordialement, René
"MichDenis" a écrit dans le message de news:
sub test() Application.commandBars(1).Reset End sub
"René" a écrit dans le message de groupe de discussion :
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
Jacky
Bonsoir,
Eh ben...... 4 ans déjà, faut dire que tu avais fait fort à cette époque, même que jps n'osait plus ouvrir tes classeurs -- Salutations JJ
"Modeste" a écrit dans le message de news:
Bonsour® ChristianM avec ferveur ;o))) vous nous disiez :
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
il n'y qu'un pas pour que certains m'accusent d'étre vendu ???
http://groups.google.com/groups/search?hl=fr&ie=UTF-8&oe=UTF-8&safe=off&q=sesame+enabled+imp%C3%A9tuosit%C3%A9+group%3Amicrosoft.public.fr.excel&btnG=Rechercher&as_mind&as_minm&as_miny 05&as_maxd&as_maxm&as_maxy 05&as_drrb=b&sitesearch ;o))) A quand les macros aux enchères sur ebay ???
Bonsoir,
Eh ben......
4 ans déjà, faut dire que tu avais fait fort à cette époque, même que jps
n'osait plus ouvrir tes classeurs
--
Salutations
JJ
"Modeste" <GD@libre.fr> a écrit dans le message de news:
O2rwftYrJHA.5356@TK2MSFTNGP03.phx.gbl...
Bonsour® ChristianM avec ferveur ;o))) vous nous disiez :
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
il n'y qu'un pas pour que certains m'accusent d'étre vendu ???
http://groups.google.com/groups/search?hl=fr&ie=UTF-8&oe=UTF-8&safe=off&q=sesame+enabled+imp%C3%A9tuosit%C3%A9+group%3Amicrosoft.public.fr.excel&btnG=Rechercher&as_mind&as_minm&as_miny 05&as_maxd&as_maxm&as_maxy 05&as_drrb=b&sitesearch
;o))) A quand les macros aux enchères sur ebay ???
Eh ben...... 4 ans déjà, faut dire que tu avais fait fort à cette époque, même que jps n'osait plus ouvrir tes classeurs -- Salutations JJ
"Modeste" a écrit dans le message de news:
Bonsour® ChristianM avec ferveur ;o))) vous nous disiez :
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
il n'y qu'un pas pour que certains m'accusent d'étre vendu ???
http://groups.google.com/groups/search?hl=fr&ie=UTF-8&oe=UTF-8&safe=off&q=sesame+enabled+imp%C3%A9tuosit%C3%A9+group%3Amicrosoft.public.fr.excel&btnG=Rechercher&as_mind&as_minm&as_miny 05&as_maxd&as_maxm&as_maxy 05&as_drrb=b&sitesearch ;o))) A quand les macros aux enchères sur ebay ???
MichDenis
;-)))
As-tu vérifié ta mal aujourdhui ?
"Mgr T. Banni" a écrit dans le message de groupe de discussion : # un vrai magicien, notre michel du québec manque plus qu'un p'tit coup de :
Application.LapinBlanc(3).Reset
pour ma part, je remercie le Ciel de m'avoir fait son humble serviteur car ce même michel n'aurait pas hésité à me proposer :
Application.BelleMere(1).Reset
Mgr T.B.
"René" a écrit dans le message de news: eO%
Bonjour MichDenis,
Merci mille fois, une seule ligne de code a suffi, les deux commandes ont réapparu. Cordialement, René
"MichDenis" a écrit dans le message de news:
sub test() Application.commandBars(1).Reset End sub
"René" a écrit dans le message de groupe de discussion :
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René
;-)))
As-tu vérifié ta mal aujourdhui ?
"Mgr T. Banni" <vaderetrosp@mas> a écrit dans le message de groupe de discussion :
#4j8X1YrJHA.3584@TK2MSFTNGP05.phx.gbl...
un vrai magicien, notre michel du québec
manque plus qu'un p'tit coup de :
Application.LapinBlanc(3).Reset
pour ma part, je remercie le Ciel de m'avoir fait son humble serviteur car
ce même michel n'aurait pas hésité à me proposer :
Application.BelleMere(1).Reset
Mgr T.B.
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de news:
eO%23fcgWrJHA.1212@TK2MSFTNGP04.phx.gbl...
Bonjour MichDenis,
Merci mille fois, une seule ligne de code a suffi, les deux commandes ont
réapparu.
Cordialement,
René
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
23C5D499-5155-4F4A-8B16-30DA188B64FF@microsoft.com...
sub test()
Application.commandBars(1).Reset
End sub
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de
groupe de discussion :
OrttSVWrJHA.3856@TK2MSFTNGP03.phx.gbl...
Bonjour Christian,
Merci du conseil, mais malheureusement, je suis toujours au même point.
J'ai
bien copié la macro Sésame dans un module et exécuté, mais rien se passe.
Cordialement,
René
"ChristianM" <A@A> a écrit dans le message de news:
OEcQyrVrJHA.4460@TK2MSFTNGP06.phx.gbl...
essaie ceci,
(je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
--
ChristianM
"René" <nospam-rene.limacher@wanadoo.fr> a écrit dans le message de
news:
eJuQ4cVrJHA.3848@TK2MSFTNGP02.phx.gbl...
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et
"Outils" ont disparues de la barre des menus. J'ai complètement
désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du
menu n'ont pas réapparus.
Que faire ?
Merci de votre aide,
Cordialement,
René
"Mgr T. Banni" a écrit dans le message de groupe de discussion : # un vrai magicien, notre michel du québec manque plus qu'un p'tit coup de :
Application.LapinBlanc(3).Reset
pour ma part, je remercie le Ciel de m'avoir fait son humble serviteur car ce même michel n'aurait pas hésité à me proposer :
Application.BelleMere(1).Reset
Mgr T.B.
"René" a écrit dans le message de news: eO%
Bonjour MichDenis,
Merci mille fois, une seule ligne de code a suffi, les deux commandes ont réapparu. Cordialement, René
"MichDenis" a écrit dans le message de news:
sub test() Application.commandBars(1).Reset End sub
"René" a écrit dans le message de groupe de discussion :
Bonjour Christian, Merci du conseil, mais malheureusement, je suis toujours au même point. J'ai bien copié la macro Sésame dans un module et exécuté, mais rien se passe. Cordialement, René
"ChristianM" a écrit dans le message de news:
essaie ceci, (je ne sais plus qui est l'auteur ! Qu'il soit loué !)
Sub Sesame() 'récupération de la barre des menus For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB With Application .DisplayFullScreen = False .DisplayStatusBar = True .DisplayFormulaBar = True End With With ActiveWindow .DisplayWorkbookTabs = True .DisplayHeadings = True End With End Sub
-- ChristianM
"René" a écrit dans le message de news:
Bonjour,
Par une fausse manipulation en VBA, mes deux commandes "Fichier" et "Outils" ont disparues de la barre des menus. J'ai complètement désinstallé et réinstallé Microsoft Office 2003, mais ces éléments du menu n'ont pas réapparus. Que faire ? Merci de votre aide, Cordialement, René