Discussion :

[unfcool]

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

[ouskel'n'or]

Ouvre ton classeur en appuyant sur la touche SHIFT ou MAJ

[unfcool]

Marche po

[ouskel'n'or]

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+

[tonton fred]

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)

[unfcool]

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

[unfcool]

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

[ouskel'n'or]

A propos de EnableEvents :

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...

[unfcool]

J'ai mis :

Code :

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

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

Et ça marche pas

[ouskel'n'or]

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

Code :

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

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+