Excel bloque a l'ouverture (chargement infini)

**Mimosa777** · 17/04/2008, 15h42

Bonjour a tous,

je viens de tomber sur un probleme qui me fait extremement peur en ce moment. Mon application fonctionnait a merveuille il ya quelques heures et depuis que j'ai modifié un petit bout de code dans une de mes macros, a chaque fois que j'ouvre mon application, il se met en mode chargement comme s'il executait quelque chose mais reste comme cela pendant des minutes sinon des heures. Je ne peux meme pas pendant ce temps renter dans mon code vba pour modifier quoi que ce soit.

Svp, y a t-il un moyen d'arreter le chargement et enlever le bout de code que j'ai ajouter qui a initialiser ce bug ?? j'ai essayer. ctrl-pause, ca rien donné. Ca continue.

Votre aide est hyper apprecié. Merci

**ouskel'n'or** · 17/04/2008, 15h45

Ctrl + Pause pour arrêter la macro, ou bien, lors de la demande d'ouverture de ton fichier, tu maintiens appuyée la touche MAJ

**Mimosa777** · 17/04/2008, 15h50

Bonjour ouskel'n'or,

non ca ne marches pas. peu importe l'un ou l'autre, il continue a loader a l'ouverture du fichier. Il ya toujours le petit sablier qui est la et qui m'empeche de cliquer n'importe ou dans mon application.

Y a t-il autre chose que je peux faire ? (je n'ai pas fait de sauvegarde

**fring** · 17/04/2008, 15h51

Bonjour Mimosa, Ousk (ta valise est prete ?)

Autre solution, à l'ouverture du classeur, opter pour "désactiver les macros".

Si cette question n'est pas posée à l'ouverture du classeur, c'est que le niveau de sécurité est mis au plus bas et là...

Si c'est le cas, aller dans le menu Outils / Macro / Sécurité et mettre le niveau sur "Moyen"
Et pour te former, les cours et tutoriels Excel : https://excel.developpez.com/cours/

**Gorfael** · 17/04/2008, 15h52

Envoyé par ouskel'n'or

Ctrl + Pause pour arrêter la macro, ou bien, lors de la demande d'ouverture de ton fichier, tu maintiens appuyée la touche MAJ

Salut à tous
question ouskel'n'or : si ça ne fonctionne pas, peut-on envisager d'ouvrir un classeur quelconque et de lancer une macro avec juste Application.EnableEvents = false
Comme je ne connais pas la raison du problème, c'est difficile de se prononcer, mais dans ce cas, les macros d'ouvertures devraient être inhibées, non ?
A+

**Mimosa777** · 17/04/2008, 15h59

Salut Fring,

j'ai aussi essayer cela mais ca ne m,arches toujours pas. IL veut rien savoir, il continue a m'afficher le petit sablier a l'ouvrture indefiniment. J'ai ouvert excel de nouveau et essayer d'ouvrir mon application a partir de ce nouveau classeur en mettant la securite a moyen et aussi essayer a high, mais rien a faire. toujours geler.

J'espere que y a d'autres alternatives pour recuperer au moins mes codes sources.

**Mimosa777** · 17/04/2008, 16h02

ok je viens de remarquer que lorsque je change mon niveau de securite a moyen ou autre chose que le plus bas possible et que je clique sur ok, il le remet toujours au plus bas niveau par defaut. voila pourquoi l'option de desactiver ne s'affiche jamais je crois. Que dois-je faire ?

**ouskel'n'or** · 17/04/2008, 16h17

Que fait ton code ? Est-ce qu'il désactive le clavier ? Parce que sinon MAJ à l'ouverture de ton fichier désactive les macros.

Envoyé par Gorfael

si ça ne fonctionne pas, peut-on envisager d'ouvrir un classeur quelconque et de lancer une macro avec juste Application.EnableEvents = false
Comme je ne connais pas la raison du problème, c'est difficile de se prononcer, mais dans ce cas, les macros d'ouvertures devraient être inhibées, non ?

Je complète ton idée :
Créer, dans un autre fichier une macro qui ouvre le fichier récalcitrant sur la ligne succédant à EnabledEvents

Code :

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

1
2
EnabledEvents = False
Workbooks.open "C:\Chemin\Le fichier qui nous fait suer.xls"

devrait effectivement régler le problème.
Cependant, compte tenu du fait que MAJ ou Ctrl + Pause ne fonctionnent pas, je pense que le pb est encore ailleurs

As-tu redémarré Excel ?

**ouskel'n'or** · 17/04/2008, 16h26

Comme je m'en vais, je te passe une adresse pour une mesure extrème, http://excel.developpez.com/faq/inde...sseurEndommage, qui te permet de récupérer les données de ton fichier, au chapitre "Comment récupérer les données dans un classeur Excel endommagé ?"
Je crois me souvenir qu'il existe un code, en passant par Office qui permet de récupérer également les macros...
C'est pas que je sois particulièrement d'une nature pessimiste mais comme je suis passé par là...

Bon courage et M...e
Mais raconte-nous la suite, qu'on ne meurre pas idiot

**Mimosa777** · 17/04/2008, 16h33

Salut,

oui j'ai redemarre Excel et sans resultat. J'ai essayer de creer un autre fichier avec EnabledEvents = False qui fait appelle a mon fichier qui ne fonctionne plus. A l'ouverture de celuii-ci, meme probleme. le sablier apparait et rien a faire.

J'aurai aime vous passer mon fichier en fichier joint et me dire SVP si vous etes en mesure de l'ouvrir sans probleme mais helas, le forum supporte pas plus de 128kb pour un fichier excel et le mien fait 892kb

Ai-je tout perdu ?

**fring** · 17/04/2008, 16h46

Envoyé par ouskel'n'or

Que fait ton code ? Est-ce qu'il désactive le clavier ? Parce que sinon MAJ à l'ouverture de ton fichier désactive les macros.

Je ne connaissais pas cette méthode mais j'ai beau me mettre debout sur la touche Shift...toujours le message d'activation des macros ou non

**Mimosa777** · 17/04/2008, 16h53

Non je n'ai aucun code qui desactive le clavier. Normalement je n'ai aucun code qui doit rouler a l'ouverture. Seulement un userform qui s'ouvre. Cependant, a l'ouverture de mon worksheet, application.visible = false

Effectivement.. La touche shift ou Maj ne fonctionne pas...mais pourquoi lorsque je change le niveau de securite, celui-ci ne prend pas effet. il revient toujours au niveau le plus bas et je suis donc incapable d'afficher la fenetre qui demande d'activer ou desactiver les macros

**Jean-Pierre49** · 17/04/2008, 16h56

Bonjour

J'ai deja eu un problème similaire: mon fichier était foutu de chez foutu,
l'orsque je passais la souris dessus mon bureau foutait le camp.
J'ai pu l'ouvrir en passant par un autre fichier Excel (icone Ouvrir)

Essaye avec un peu de chance.....

**Mimosa777** · 17/04/2008, 17h01

Non, j'ai deja essayé cela mais ca n'a pas marché non plus. J'ai meme essayer de faire ouvrir ( en mode open and repair) et touours sans succès. Le sablier est toujours la et ca roule a l'infini. Si je pouvais seulement recuperer le code de mon formulaire, je pourrai recreer une nouvelle application car j'ai pas mal de code de sauvegarder. C,est juste ces deux derniers jours j'ai travaille extremement fort sur une macro de rafraichissement et ca me tuerai si je suis pas en mesure de la recuperer dans mon form. Des jours de travail perdu et le pire, je dois recommencer a 0

**Jean-Pierre49** · 17/04/2008, 17h15

as-tu tenté en reboutant ton PC?

**Mimosa777** · 17/04/2008, 17h17

Tu crois que cela pourrait aider ? mes autres applications marchent bien. Seulement un fichier excel qui fait cela.
Je vais essayer ta proposition. De toute facon, je ne peux pas perdre plus que cela

**Jean-Pierre49** · 17/04/2008, 17h20

Il ce peut qu'il se perde avec ses temporaires.

**Mimosa777** · 17/04/2008, 17h27

Salut, j'ai essaye de rebooter mais toujours sans succes. Le sablier est toujours la et l'application roule mais je sais pas quoi !!!

**ouskel'n'or** · 17/04/2008, 17h45

Chuis reviendu !

application.visible = false

Tu ne pouvais pas le dire plus vite ?
Comme je vais repartir, Voilà l'idée que d'autres t'aideront à ralialiser
Tu crées un macro dans un fichier tout neuf.
Dans cette macro, tu crées une instance de l'appli Excel, puis tu crées dans cette instance une instance de ton fichier "qu'est pas bien" et, par l'instance de l'appli, disons appxl, tu mets
AppXl.visible = true
Un truc comme ça (sans filet)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub NewInst()
dim appxl As Excel.Application 'Application Excel
dim wbxl As Excel.workbook 'Classeur Excel
    Set appxl = Createobject("Excel.Application")
    DoEvents
    set wbxl = appxl.workbooks.open("d:\TonRep\Ton foutu fichier.xls")
    Application.Wait(Now + TimeValue("0:00:02")) 'tu as un gros fichier
    appxl.Visible = true
    set appxl = NoThing
    set wbxl = nothing
end sub