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

[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+

[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

[unfcool]

Ctrl + Pause

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

[alsimbad]

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

Code :

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

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

[tonton fred]

Le chemin ne serait pas plutot quelque chose comme ca?

Code :

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

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

ou alors

Code :

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

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

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

[unfcool]

J'avais bien rentré le bon chemin

[unfcool]

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