Empecher sauvegarde excel

Résolu/Fermé
aldéric76 Messages postés 302 Date d'inscription dimanche 6 janvier 2008 Statut Membre Dernière intervention 23 janvier 2023 - 23 nov. 2008 à 16:28
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 1 juil. 2010 à 10:57
Bonjour à tous,
J'ai créé une macro dans un fichier excel 2003
La macro se lance par le biais d'un bouton et est placé sur une feuille vierge
Cet macro sert à trier un tableau issu d un autre fichier excel
Donc
-Copie du tableau
-Ouverture du fichier contenant la macro
-Coller le tableau
-Executer la macro
Je mets ce fichier-macro à la disposition de mes collegues
Comment puis-je empecher la sauvegarde après qu'ils l aient utilisé, le fichier contenant la macro devant rester vierge pour une utilisation suivante ?
Merci à tous
Cordialement
A voir également:

5 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 nov. 2008 à 16:49
Bonjour

2 manières:
ThisWorkbook.Close False

OU

ThisWorkbook.Saved = True
ThisWorkbook .Close

Essaies les 2...
0
aldéric76 Messages postés 302 Date d'inscription dimanche 6 janvier 2008 Statut Membre Dernière intervention 23 janvier 2023 7
23 nov. 2008 à 18:03
A Michel,
Merci de t être penché sur ma question , malheureusement je suis pas assez callé en excel pour pouvoir appliquer l'une ou l'autre de tes propositions.
Aurais-tu la possibilité de developper un peu ?
Merci.
Cordialement.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 nov. 2008 à 18:16
re,
tu copies-colle cette macro dans le module "thisworkbook" de l'éditeur VBA dans la sa fen^tre de gauche
Si tu ne vois pas cette fen^tre ; Ctrl+r

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close False
End Sub

ou avec l'autre manière

Bonne soirée
0
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub

testé marche nikel
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
30 juin 2010 à 21:06
Après plus de 2 ans de test pour valider la solution de Michel cela ne peut être que "nickel" ?
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
1 juil. 2010 à 10:57
bonjour gbinforme

:-D

c'est la confirmation qu'il s'agissait d'un développement durable!!!

devine ce que veut dire le c qui manque...

bon, je sors de la classe


cordialement
Michel
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
23 nov. 2008 à 21:22
bonjour

Pour être sûr que ton fichier ne sera pas sauvegardé tu devrais le mettre en "lecture seule" car si l'utilisateur clique sur la disquette, la macro de fermeture ne seras pas appelée sauf si tu l'inclus aussi dans "BeforeSave".

Autre solution sauvegarder ton fichier en tant que modèle.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 nov. 2008 à 09:36
bonjour gb,

très bonne remarque et en plus très simple! je me suis fait piégé par le terme "macro"...
merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
aldéric76 Messages postés 302 Date d'inscription dimanche 6 janvier 2008 Statut Membre Dernière intervention 23 janvier 2023 7
25 nov. 2008 à 02:39
Merci à vous,
C'etait si simple que je n'y avais pas pensé !!
C'est fait grace à vous 2.
Cordialement.
0