Fermer une fentre excel sans demande de sauvegarde [Résolu]

Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
- - Dernière réponse : darkspoilt
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
- 19 nov. 2007 à 11:40
Bonjour,


J'ai une ptite qustion que est l'ooption ou la chose a faire lorsque j'ouvre mon classeur à partir d'acces  comme suivant


Set Classeur = xls.Workbooks.Open("C:\Temp\e_analyse_croisée.xls")


je fais des manipulation (mise en page etc...)


et des ke je ferme (a la main ma fenetre excel)
il me pause la kestion chiante


"voulez vous enregister les modification apportés a e_analyse_croisée.xls"
avec le oui non et annuler j'aimerais ne pas avoir cette question lorsque je ferme a la main ma fenetre
Est-ce possible??


Je remercie d'avance ceux qui apporteront leur aide
Afficher la suite 

9 réponses

Meilleure réponse
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
46
3
Merci
Salut,
essaie

xls.DisplayALerts = False

@+: Ju£i?n
Pensez: Réponse acceptée

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 199 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jrivet
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
19
3
Merci
Application.DisplayAlerts
= False





Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 199 internautes nous ont dit merci ce mois-ci

Commenter la réponse de econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
19
0
Merci
arf ... pas assez rapide

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Commenter la réponse de econs
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
0
Merci
merci beaucoup
Commenter la réponse de darkspoilt
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
31
0
Merci
autre solution : lui dire que le fichier est déjà sauvegardé :

Classeur.Saved= True

---- Sevyc64  (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Commenter la réponse de cs_casy
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
23
0
Merci
 Bonsoir à tous,

Ce n'est pas le Display.Alerts qui empêche le message de sauvegarde,
mais bien le Saved à True (réponse de Casy).

Set objExcel = WScript.CreateObject("Excel.Application")
Set objClasseur=objExcel.WorkBooks.Open("D:\SCRIPTS\Fichiers\Exemple.xls")
objExcel.Visible = True
' ou objExcel.Application.Visible = True
objExcel.DisplayAlerts = False 'enlève l'alerte
'objExcel.ScreenUpdating = False

objExcel.Cells(2,7).Value = "écriture dans excel"
MsgBox objExcel.Cells(2,7).Value,,"verification visuelle de G2"

objExcel.ActiveWorkBook.Saved = True 
objExcel.DisplayAlerts = True 
objExcel.ActiveWorkbook.Close
objExcel.Application.Visible = True
objExcel.ScreenUpdating = True
objExcel.Quit
Set objExcel = Nothing
Set objClasseur = Nothing

En ré-ouvrant le fichier, la cellule G2 est vide et le fichier n'a pas été modifié.
Très utile d'écrire dans un fichier et de le fermer sans sauvegarder.

jean-marc
Commenter la réponse de cs_JMO
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
0
Merci
J'ai mes raison de vouloir ca
Commenter la réponse de darkspoilt
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
0
Merci
Par contre je reprends le code de quelqu'un
et le message s'affiche quand meme

alors que j'ai ca a la fin

                ActiveWorkbook.Save
                ActiveWorkbook.Saved = True
                ActiveWindow.Close
Commenter la réponse de darkspoilt
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
0
Merci
C'est une demande de remplacement
Commenter la réponse de darkspoilt