ActiveWorkbook.close dans ThisWorkbook

Bonjour,
Voilà, je crois que tout est dit dans le texte.
Je débute en VB et j'ai écrit ActiveWorkbook.close dans ThisWorkbook du coup j'ai plus accès à mon programme.
Voilà si quelqu'un pourrait m'aider pour que je retrouve mon code, ce serait sympas, merci par avance

Ouvre ton classeur en appuyant sur la touche SHIFT ou MAJ ;)

Marche po :(

Tu la tiens bien appuyée tout le long de l'opération d'ouverture ?
Si oui, tu as peut-être une autre solution. Je dois avoir ça dans mes archives.
A+

Une solution (peut etre) est de modifier ton niveau de securite pour interdire d'executer les macros (a faire en creant un nouveau fichier), redemarrer, ouvrir le fichier en question et supprimer la ligne genante, le sauvegarder et remettre le niveau de securite que tu veux puis redemarrer encore.
Outils -> Macro -> Securite
Tu devras peut etre aussi supprimer des choses de la liste des "Source de confiance" (pas sur du nom, j'utilise Office en anglais), n'oublie pas le papier et le crayon pour tout remettre en place apres ;)

Je viens de faire le test avec un fichier tout neuf, ca marche chez moi (niveau de securite moyen -> tres haut, liste de confiance videe puis re-moyen)

J'ai maintenu appuyé ...
Toujours rien, j'apperçois furtivement ma feuille et c'est tout

Voilà.
tu crées une macro dans un nouveau fichier, macro que tu places dans un module

Code:

---

1 2 3 4

Sub Ouvrir() Application.EnableEvents = False Workbooks(Chemin & Tonfichier).open End sub

---

Pas testé.
Sinon, essaie de l'ouvrir en appuyant sur Ctrl + Pause
Après, je suis sec. Je ne sais pas s'il est possible de supprimer une macro sur un fichier fermé. En fait, je ne pense pas.
Par contre, avec OpenOffice, Silky m'avait donné ici une solution pour récupérer les macros d'un fichier vérolé. En désespoir de cause :(
A+

J'ai modifié le niveau de sécurité mais il ne "s'enregistre" pas, du coup pas de changement ...

A propos de EnableEvents :

Citation:

---

Envoyé par L'aide

EnableEvents, propriété
Voir aussi S'applique à Exemple Spécificités
Cette propriété a la valeur True si des événements sont activés pour l'objet spécifié. Type de données Boolean en lecture-écriture.

Exemple
Cet exemple montre comment désactiver des événements avant l'enregistrement d'un fichier de telle sorte que l'événement BeforeSave n'ait pas lieu.

Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True

---

Close est un événement...

J'ai mis :

Code:

---

1 2 3 4

Sub Ouvrir() Application.EnableEvents = False Workbooks("MonChemin\Applications.xls").open End sub

---

Et ça marche pas

Ctrl + Pause

C'est magique !!!!
Merci, j'ai récupéré mon programme !!!!

bizarre, moi j'ai essayé ctrl pause, ça a pas marché, par contre, je vanais de trouvé

Code:

---

1 2 3 4 5 6

Sub Ouvrir() chemin = ThisWorkbook.Path & "\" complet = chemin & "Classeurclose.xls" Workbooks.Open complet End Sub

---

il faut enregistrer le fichier crée dans le même repertoire que le fichier bloqué, et executer l'action en pas à pas, et sesame ouvre toi

Le chemin ne serait pas plutot quelque chose comme ca?

Code:

---

Workbooks("C:\machin\bidule\Applications.xls").open

---

ou alors

Code:

---

Workbooks(MonChemin & "\Applications.xls").open

---

"MonChemin\Application.xls" n'est pas un chemin valide (pas de lettre de lecteur)

J'avais bien rentré le bon chemin

Merci à tous pour la rapidité et l'efficacité !!!!