High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Petit bout de code pour fermeture excel svp

Dernière réponse le 4 jui 2006 à 13:15:30 d1102, le 3 jui 2006 à 15:04:59 
 Signaler ce message aux modérateurs

Bonjour , j'ai besoin d'un petit bout de code VBA pour fermer deux fenêtres EXCEL ouvertes sans les modifier (c'est à dire sans qu on me demande :"Voulez-vous enregistrer les modifications à SSS.xls ? ma réponse étant "non" à répondre deux fois(car il y a deux fenêtres ouvertes))
Je ferai un bouton dans la page et j'y affecterai cette macro .
Merci beaucoup

Meilleures réponses pour « petit bout de code pour fermeture excel svp » dans :
Excel - Convertir fichier(s) CSV / XLS VoirComme dit dans le titre, cette application convertit des fichiers CSV en fichiers XLS N’est pas nécessaire pour Excel 2007, ce dernier faisant la conversion automatiquement La conversion n’ayant pas de mise en forme, en cas de modification...
[VBA]Connecter une base de donnée (MDB) à excel VoirConnecter une base de donnée access (MDB) dans une application excel. Ajouter la référence Microsoft DAO object librairy X.X Dans un module général (Module1 par exemple) coller le code ci-dessous Sub CopieDBaccess() Dim BDexp As...
VBA Ajouter commandButton et le code qui va avec VoirCode relativement simple et qui ne nécessite pas d'explication complémentaire. Coller ces deux sub dans un module général (Module1 par exemple). Sub CréerBouton() Dim Obj As Object Dim Code As String Sheets("Feuil1").Select 'crée le...
Posez votre question Répondre

1

sebsauvage, le 3 jui 2006 à 16:01:57

Quelquechose du genre:
workbook.Close(SaveChanges=False)

(Enfin, en Python en tous cas.)

   
Répondre à sebsauvage

2

d1102, le 3 jui 2006 à 16:42:59

Application.Quit
SaveChanges = False

et ca marche pas ; excel me demande toujours si je veux sauvegarder
merci

   
Répondre à d1102

3

Kobaya, le 3 jui 2006 à 16:53:09

Salut,

en fait c'est presque ça, mais dans l'autre sens : 

Application.SaveChanges = False
Application.Quit

A+,
Kobaya.

   
Répondre à Kobaya

4

d1102, le 3 jui 2006 à 17:02:38

Non ca marche pas encore ...
Je ne comprends pas , j'ai l'impression que application.savechanges n'existe pas
merci
a+

   
Répondre à d1102

5

Kobaya, le 3 jui 2006 à 17:27:49

Oooooppppsssss! désolé.....

j'm'ai trompé : 

ActiveWorkbook.SaveChanges = False
' pour fermer Excel
Application.Quit
' ou pour fermer le fichier seulement
' ActiveWorkbook.Close
A+,
Kobaya.

   
Répondre à Kobaya

6

d1102, le 3 jui 2006 à 17:34:21

Décidément excel est têtu il ne veux pas de :

ActiveWorkbook.SaveChanges = False
Application.Quit

a+

   
Répondre à d1102

7

Kobaya, le 3 jui 2006 à 17:45:02

Décidément, je suis mal réveillé : 

ActiveWorkbook.Saved = False


mais c'est lundi, et samedi on a gagné alors je plaide les circonstances atténuantes...

A+,
Kobaya.

   
Répondre à Kobaya

8

d1102, le 3 jui 2006 à 17:57:40

Le pire c'est qu on va regagner mercredi ...
Ca ferme bien excel , mais j ai toujours cette satanée box : "voulez-vous enregistrer les modifications " et j'en veux plus car les gens avec qui je travaille sont foutu de répondre "oui" ....
A+

   
Répondre à d1102

9

Kobaya, le 3 jui 2006 à 18:02:22

Alors là, rien ne va plus : je suis hyper-super-méga-ultra fatigué :

c'est : 

ActiveWorkbook.Saved = False


:-(

je vais me coucher de ce pas!
A+,
Kobaya.

   
Répondre à Kobaya

10

Armojax, le 4 jui 2006 à 09:25:27
  • +1

Hello,

Saved est un indicateur positionné à True si on n'a effectué aucune modif, ou si une sauvegarde a été effectuée. Dès qu'on modifie le classeur, Excel le bascule à False. C'est ce qui lui permet de savoir si, à la fermeture, il doit ou non poser la question : Voulez-vous enregistrer etc.
Si les utilisateurs ont fait des modifs, Saved est déjà à False, et Excel pose la question.

On peut, au contraire, mettre l'indicateur à True. Dans ce cas, Excel ne pose pas la question, et ne fait pas d'enregistrement, puisqu'on lui dit que le classeur n'a pas été modifié, ou a déjà été sauvegardé.

ActiveWorkbook.Saved = True
ActiveWorkbook.Close

Sinon, on peut aussi écrire :
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Le première solution est plus courte.

   
Répondre à Armojax

11

Kobaya, le 4 jui 2006 à 12:33:38

Salut tout le monde,

je revenais pour quelques précisions après une bonne nuit de sommeil, et les idées un peu plus claires, mais Armojax est déjà passé par là alors...

A+,
Kobaya.

   
Répondre à Kobaya

12

 d1102, le 4 jui 2006 à 13:15:30

Merci beaucoup
ca marche

   
Répondre à d1102
Posez votre question Répondre
Ils ont besoin de votre aide