fermer une fentre excel sans demande de sauvegardeRésolu

Question

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

jrivet · Accepted Answer

Salut,
essaie

xls.DisplayALerts = False

@+: Ju£i?n
Pensez: Réponse acceptée

econs · Answer

Application.DisplayAlerts 
    = False





Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

econs · Answer

arf ... pas assez rapide 

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

darkspoilt · Answer

merci beaucoup

cs_casy · Answer

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

cs_JMO · Answer

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

darkspoilt · Answer

J'ai mes raison de vouloir ca

darkspoilt · Answer

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

darkspoilt · Answer

C'est une demande de remplacement

Fermer une fentre excel sans demande de sauvegarde

9 réponses

Votre réponse

Discussions similaires