C lasseur bloqué par "close"

  • Initiateur de la discussion Initiateur de la discussion JPierre83
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

JPierre83

Guest
Bonsoir à tous. Je viens de faire une c.......... monstrueuse. En effet sous excel 2003 et en VBA j'ai développé une petite application et, voulant tester ce qui se passerait si la date d'ouverture du classeur était postérieure à la date du jour, je suis maintenant dans l'impossibilité d'accéder au code qui me bloque. Quelqu'un aurait-il une solution à me proposer sachant que le code est le suivant :

private sub auto-open
if date>8/5/05 then
inputbox ('La date est dépassée')
workbooks('classeurx').close savechanges:=false
end if
end sub.

Merci d'avance à tous ceux qui s'intéresseront à mon gros soucis (j'ai plusieurs heures de travail en jeu).
 
bonjour,

je vois pas vraiment le souci, tu ouvres sans activer les macros. S'il ne te pose pas la question c'est que ton niveau de sécurité est à bas (menu outils / sous-menu macro / sécurité)
et règle à moyen ou haut.
 
Merci Sylvain. Effectivement c'est LA solution. J'étais tellement stressé que je n'ai pas pensé à cette solution. Merci encore à toi. En ce qui me concerne j'ai en plus retenu la leçon suivante : avant de tester quoi que ce soit, enregistrer le classeur sous un autre nom...
 
Ok, merci d'avoir suivi,

pour activer les macros sans lancer l'auto_open on peut faire :

Pour empêcher les macros de s'exécuter automatiquement, maintenez la touche MAJ enfoncée lorsque vous démarrez.


En général on utilise moins la macro auto open, on préfère les macros événementielles qui sont une généralisation :

Démo de @+Thierry :
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

W
Réponses
18
Affichages
8 K
Winniechips
W
N
  • Question Question
Réponses
5
Affichages
3 K
J
Réponses
3
Affichages
2 K
Compte Supprimé 979
C
Retour