Disparition barre d'outils

[lynyrd]

Bonjour le forum
La barre d'outils du haut a disparu (fichier,édition,affichage,insertion,format,outils,données,fenêtre)

J'ai réinstallé office2003,c'est la même chose,de plus à chaque ouverture d'excel,voici le message qui apparaît (erreur de compilation dans le module caché : ThisWorkbook)
Quelqu'un aurait t'il une idée
Merci.

 

[Staple1600]

Re : Disparition barre d'outils

Bonjour

Voici une bouée de secours

https://www.excel-downloads.com/threads/excel-jai-perdu-mes-barres-doutils-et-menu.81049/

 

[lynyrd]

Re : Disparition barre d'outils

Bonjour Staple1600 et merci

Ca fonctionne sur le fichier qui est ouvert,mais à la fermeture puis réouverture j'ai toujours le même problème.

 

[Staple1600]

Re : Disparition barre d'outils

Re


Essayes en supprimant le fichier Excel.xlb
(Sauvegarde avant au cas ou)

Ensuite ouvres Excel.

Toujours le même problème ?

 

[JCGL]

Re : Disparition barre d'outils

Bonjour à tous,

Fais une recherche sur ton DD et supprime Excelxx.xlb dans C:\Documents and Settings\...Ton Profil....\Application Data\Microsoft\Excel

Pour XL 2003, c'est Excel11.xlb.

Il sera recréé à l'ouverture mais tu auras les barres d'origine

A+

 

[lynyrd]

Re : Disparition barre d'outils

Bonjour JCGL
J'ai pas application data dans "mon profil"

 

[ledzepfred]

Re : Disparition barre d'outils

bonsoir à tous

fais donc une recherche de Excel11.xlb sur ton disque C et supprime-le

a+

 

[lynyrd]

Re : Disparition barre d'outils

Bonjour Ledzepfred
J'ai fait la recherche et le fichier est inexistant!!

 

[Staple1600]

Re : Disparition barre d'outils

Re


Fais une recherche

*.xlb

Ps: Dans Windows, coche : Afficher les fichers cachés
http://www.commentcamarche.net/faq/...fficher-les-extensions-et-les-fichiers-caches

 

[JCGL]

Re : Disparition barre d'outils

Bonjour à tous,

Pense à afficher les fichiers masqués... par l'Explorateur / Outils /Options des Dossiers / Affichage et Coche Afficher les Dossiers et Fichiers Masqués

A+

 

[Staple1600]

Re : Disparition barre d'outils

Bonsoir JCGL 😉

 

[lynyrd]

Re : Disparition barre d'outils

Je reinstalle une nouvelle fois office2003 et je vous tiens au courant
A+

 

[JCGL]

Re : Disparition barre d'outils

Re,
Re Staple 🙂,

Non ne réinstalle pas XL...

Fais ce que l'on te dit... Il n'y a aucun risque

A+ 🙂 et au plaisir de te suivre de quelques minutes arf arf

A+ à tous

 

[bqtr]

Re : Disparition barre d'outils

Bonjour à tous,

Il y a quelque chose que je trouve bizarre, c'est que même après avoir réinstallé Excel il y a toujours le problème.
Normalement le fichier *.xlb doit être recrée non ?.

De plus la solution sur la FAQ fonctionne mais quand le fichier est déjà ouvert.

N'aurais tu pas installé un fichier dans le répertoire des macros personnelles ou bien un *.xla récemment qui agirait à l'ouverture d'excel ?

D'ailleurs le répertoire des macros perso et les liaisons avec les *.xla sont ils (elles) effacés quand on réinstalle Excel ?

Désolé si je suis à côté de la plaque 😱

A+

 

[lynyrd]

Re : Disparition barre d'outils

J'ai affiché les fichiers masqués,toujours rien
Si cela peut vous aider,c'est ce code,trouvé sur le forum que j'ai voulu tester
'un truc peu connu : cacher la barre des menus en la remplaçant par une "fausse"
'repose sur le fait qu'Excel ne peut afficher 2 barres de menu en même temps

Sub MakeEmptyMenuBar()
Dim NewmenuBar As CommandBar

Call deleteEmptyMenuBar 'toujour une bonne pratique

Set NewmenuBar = CommandBars.Add(MenuBar:=True)
With NewmenuBar
.Name = "MyEmptyMenu"
.Visible = True ' this is the the trick
End With

End Sub

Sub deleteEmptyMenuBar()
On Error Resume Next
CommandBars("MyEmptyMenu").Delete
On Error GoTo 0
End Sub

'la manière classique de cacher la barre de menus d'Excel
'préférable : ne laisse pas un "vide" sous la barre de titre
Sub CacheMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MontreMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub