Discussion :

[itwoo]

Bonjour,

hier j'ai voulu aider un ami en panne sous VBA, son écran n'ayant plus rien ni la barre de menu sous VBA (alors que sur la feuille excel elle est toujours là) ni la barre standard ou autre

Voilà ce que je voulais obtenir la barre de menus et aussi pourquoi pas la barre standard


Eh bien non seulement cela n'a jamais voulu fonctionner et donc après un sacré bout de temps j'ai décidé de tenter une approche par le code VBA en faisant des tests sur mon ordi après avoir pioché du code sur le web!!!
Voici le code que j'ai lancé en forcant excel sur mon ordi pour qu'il affiche et autorise toutes les commandes barres et autres...et voir ce qui bloquait chez lui:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Sesame()
Dim c As Range
Sheets(1).Select
Cells.Clear
Set c = Range("A1")
'NB liste barre mieux car plus détaillée
i = Application.CommandBars.Count
For Each cmdb In Application.CommandBars
 'MsgBox "Name de la Commandbars" & cmdb.Name
 'MsgBox "Local Name de la Commandbars" & cmdb.NameLocal
 c.Value = cmdb.Name
 Set c = c.Offset(1, 0)
 cmdb.Enabled = True
 On Error Resume Next
 cmdb.Visible 'pour les faire apparaitre ou continuer s'il y a une erreur
 Err.Clear
 On Error GoTo 0
Next cmdb
 
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
'ou
Application.CommandBars(1).Enabled = True
Application.CommandBars("Worksheet Menu Bar").Visible = True
'ou
Application.CommandBars(1).Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Standard").Enabled = True
 
For j = 1 To i
Application.CommandBars(j).Enabled = True
On Error Resume Next
Application.CommandBars(j).Visible = True
Err.Clear
On Error GoTo 0
Next j
 
End Sub
Sub ListeBarre()
     Dim cbar As CommandBar
     Sheets(1).Select
     Cells.Clear
     Range("A1").Select
     For Each cbar In Application.CommandBars 'pour chaque barre de l'application
          ActiveCell = cbar.Index                      'index de la barre dans la cellule active
          ActiveCell.Offset(0, 1) = cbar.NameLocal 'nom local de la barre dans la cellule située à droite de la cellule active
          ActiveCell.Offset(0, 2) = cbar.Name ' nom de la barre dans la cellule située à 2 colonnes à droite de la cellule active
          ActiveCell.Offset(1, 0).Select 'sélection de la cellule situé sous la cellule active
     Next
End Sub

Et bien maintenant non seulement ca ne marche toujours pas chez lui mais en plus mon excel ne veut plus s'ouvrir autrement qu'en passant par le mode sans échec: le message d'erreur est: Microsoft Office a cessé de fonctionner puis ensuite Windows ne trouve pas : (ici le chemin d'accès + le nom du fichier)
Vérifiez que vous avez entré le nom correct, puis réessayer
Pour info j'ai lancé l'exécution de diagnostic excel et voici le rapport d'erreur


Il y a plein d'aide partout sur ces problèmes (toutes différentes) mais avant d'aller plus loin je préfère vous demandez la démarche sûr à suivre car en continuant mes petites expèriences j'ai peur de faire plus de mal que de bien!!!
Merci pour votre aide

[unparia]

Bonjour

Voici le code que j'ai lancé en forcant excel sur mon ordi pour qu'il affiche et autorise toutes les commandes barres et autres...et voir ce qui bloquait chez lui:

Tu as chargé son classeur sur ta machine ?

[itwoo]

non, juste lancé le code VBA précédent sur ma machine pour voir ce que cela donné avant de lui dire de faire pareil...mais lui du coup il ne l'a pas lancé vu le résultat chez moi

[unparia]

Chercher du "code" sur la toile et utiliser ce que l'on y trouve et croit comprendre est insensé.
Déjà :
C'est l'éditeur VBE, qui est concerné et donc :

Code :

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

For Each cmdb In Application.VBE.CommandBars

Code :

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

cmdb.Visible

n'a, ainsi écrit, aucun sens
Et j'en passe
Et je sors personnellement de cette discussion.

EDIT : Bon ... Colère exprimée et passée ...
Enfin quoi ! L'analyste que tu es a-t-il au moins commencé par analyser ce qui était encore à sa disposition ? A-t-il analysé le mot "Affichage" ? A-t-il pensé que ce bouton pouvait conduire à la détermination de certaines choses ?
Et si oui : qu'a-t-il fait/tenté au moins de faire à partir de là ?

J'ignore par contre la nature et/ou la cause des dégâts maintenant présents sur ta machine (pas celle de ton copain). Tu peux toujours tout remettre en place en réinstallant maintenant Office sur TA machine. Celle de ton copain est apparemment en moins mauvaise situation que la tienne (il devrait suffire, sur la sienne, d'utiliser l'onglet affichage et ce qu'il propose, hein ...)

[itwoo]

Mais justement sous VBA il n'a plus rien de rien à sa disposition (les images mises sont de mon ordi pour montrer ce que l'on recherche!!!) ni barre de menu avec affichage ni la barre standard ...il n'y a que sous la feuille excel qu'il y a tout...et pas moyen de les remettre sous VBA c'est bien ca le problème...

ok je vais lui dire de tester For Each cmdb In Application.VBE.CommandBars

pour mon ordi je ne sais pas non plus d'où ca vient, tout marche nickel en mode sans échec, pour Office houla ca fait un bail qu'elle est là cette version...pour la retrouver ca doit être possible j'espère...

Perso sur mon ordi voici le message pour

Code :

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

For Each cmdb In Application.VBE.CommandBars

Erreur 1004 l’accès au projet Visual Basic n’est pas fiable

[itwoo]

Pour le message d'erreur suivant:
Erreur 1004 l’accès au projet Visual Basic n’est pas fiable

et bien comme pour le moment remis la version sans échec le niveau de sécurité est remonté à moyen ou fort, donc ca doit bloquer l'exécution de Application.VBE.CommandBars, d'ailleurs ce message s'affiche maintenant pour des lignes de code en rapport avec vbcomponents qui avant marchaient nickel, donc ce message est en rapport avec le niveau de sécurité...

retrouvé Office Excel d'origine, réinstallation possible mais pour le moment test pour voir et essayer de trouver d'où vient le plantage systématique d'excel lors de son ouverture et renvoie sur la version mode sans échec...

autant l'astuce consiste à descendre en niveau sécurité bas, lancé le code vba pour tout faire réapparaitre puis remonter en niveau sécurité moyen ou fort, mais avant de faire ca test en cours car il ne s'agit pas de tout planter...

[itwoo]

Bonjour,

Malgré de multiples tentatives (depuis 2-3 semaines) pas moyen sur mon ordi de sortir du mode sans échec sous excel...j'ai bien les cd office PME 2007 mais lors de l'exécution excel propose de réparer mais cela ne marche pas malgré tout.
Sinon dans le Panneau de configuration je ne trouve pas excel pour le désinstaller et le réinstaller et en plus j'ai peur de faire plus de dégâts....
Si vous avez une idée MERCI.
Du coup il me manque beaucoup de fonctionnalités

Pour info: pour le collégue lui il a carrément acheté la dernière version qui elle marche nickel, mais sa version précédente n'a pas été désintallée, n'a toujours pas les bandeaux manquants, et en plus maintenant les 2 versions cohabitent sur le même ordinateur!!!ca semble lui convenir faute de mieux...

[itwoo]

Bonjour,

Bon reste plus qu’une seule solution tout reformater...

[Marc-L]

Bonjour,

toute version d'Excel fermée, repérer dans les variables d'environnement le chemin physique de APPDATA
dans lequel se trouve un sous répertoire \Microsoft\Excel\ contenant un fichier ExcelXX.xlb
(XX correspondant à la version) :  renommer l'extension (ou déplacer le fichier ailleurs) puis vérifier dans Excel …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[itwoo]

Merci Marc de ton aide, je vais regarder tout cela avant formatage et j’ai aussi un copain qui passe venir voir...