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 :
Code hexadécimal d'une couleur VoirVous voulez connaître le code hexadécimal d'une couleur, pour l'intégrer dans vos pages web ? Pour cela : Rendez vous sur ce site : colorpicker. Situez la couleur désirée à l'aide de la souris pour obtenir son code HTML. Voici un exemple : ...
[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 Database Dim...

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

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