FORUM Tom's Hardware » Programmation » VB / VBA / VBS » fermeture de l'application Excel sans demande de sauvegarde
 

fermeture de l'application Excel sans demande de sauvegarde

Il y a 299 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : fermeture de l'application Excel sans demande de sauvegarde
 
Plus d'informations

Bonjour,
 
J'ai une ptite qustion que est l'ooption ou la chose a faire lorsque j'ouvre mon classeur  comme suivant
 

Code :
  1. 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


Message édité par darkspoilt le 15-11-2007 à 10:35:52

Plus d'informations

voila la réponse

Code :
  1. application.DisplayAlerts = False

zeb
Profil : Modérateur libre
Plus d'informations

RTFM à la page Workbook.Saved.

 

Exemple :

Code :
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.     If Not Me.Saved Then
  3.         MsgBox "Cliquez sur [OK] pour ne pas voir le message d'enregistrement."
  4.         Me.Saved = True
  5.     End If
  6. End Sub
 

EDIT: Grilled !!! J'en profite pour alerter sur ta méthode. Si tu as plusieurs classeurs ouverts dans la même session d'Excel, il faudra penser à remettre les alertes à VRAI si tu ne veux pas que ce comportement soit général.


Message édité par zeb le 15-11-2007 à 11:51:23

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

Tu fais ca directement dans Excel?? je me suis mal exprimé je suis d'access kom d'habitude. mais bon pour l'instant que le comportmeent soit général ca me dérange pas donc voila

zeb
Profil : Modérateur libre
Plus d'informations

Oui, le code proposé est pour Excel. Et tu as suffisament posté ici pour que je prenne la peine de considérer ton cas. Désolé.
 
Tentative de rattrapage aux branches basses : :whistle:
Bien sûr quand tu proposes application.DisplayAlerts, tu considères l'appliaction excel, c'est à dire dans ton code à toi (sous MSAccess) :

xls.DisplayAlerts = False


 
Tu peux aussi regarder du côté de la fonction Workbook.Open, surtout du troisième paramètre qui est bien nommé ReadOnly ;)


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

Bonjour j'ai une nouvelle appli que je dois reprendre
 
donc la je travaile que sous environnement Excel
 
j'ai une demande de confirmation d'enregistrement car le fichier existe déja j'aimerais éradiquer ce message
 
donc j'ai tapé ca

Code :
  1. ActiveWorkbook.Save
  2.                 ActiveWorkbook.Saved = True
  3.                 ActiveWindow.Close


je sais que c'est pas beau mais j'ai pa envie dem e prednre la tete car je reprends le code de quelqu'un

zeb
Profil : Modérateur libre
Plus d'informations

Et c'est quoi la question ?
 
Attention, Workbook.Saved = True fait croire que le fichier a été sauvegardé, donc il n'y a pas de messages. Mais le fichier n'est pas sauvegardé.


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

Bah en fait il me met un message que "le fichier existe déja est ce que je veux le remplacer?"  
Ma réponse est oui a chaque fois
d'ou mon    

Code :
  1. ActiveWorkbook.Save
  2.                 ActiveWorkbook.Saved = True


 
et apres je ferme d'ou mon activeworkbook.close.
ca m'énerve d'appyer sur oki 100 fois d'ou ma question donc j'aimerais virer cette question.

zeb
Profil : Modérateur libre
Plus d'informations

Ca ne marche pas ça :

Code :
  1. Application.DisplayAlerts = False
  2. ThisWorkbook.Save
  3. ThisWorkbook.Close
  4. Application.DisplayAlerts = True


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

ca marche mais avec ces p***** d'active workbook ca me ferme pas la bonne fenetre.

zeb
Profil : Modérateur libre
Plus d'informations

Rhooooooooooooo !!!!!!!!
Alors là, je mets illico ton message en favori.

 

Exercice : faire la liste de tous les messages de zeb où celui-ci peste contre l'utilisation des ActiveTruc, SelectedMachin, etc...... :sarcastic:

 

Tu es dans quelle procédures/fonction ?
Si c'est l'une du classeur, tu peux utiliser ThisWorkbook.
Si tu as définis un objet Workbook, (Set wb = ... ), utilise wb.Save/Close.


Message édité par zeb le 19-11-2007 à 13:56:49

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

je suis dans un classeur Excel
 
Mais j'ai fais kom cela
 

Code :
  1. Application.DisplayAlerts = False
  2.                 Windows("toto.xls" ).Activate
  3.                 ActiveWorkbook.Save
  4.                 ActiveWorkbook.Close
  5.                 Application.DisplayAlerts = True


car ThisWorkbook c'est pas la bonne  
Enfin merci
Je sais que c'est crade meme moi je l'avoue mais j'ai pas le courage de reprendre le code (et le temps aussi)

zeb
Profil : Modérateur libre
Plus d'informations

Grrrrrrr :fou:
Et tu oses le poster. Après i' vont tous faire comme toi. :cry:

 
Code :
  1. Dim wb As Workbook
  2. Set wb = Workbooks("toto.xls" )
  3. Application.DisplayAlerts = False
  4. wb.Save
  5. wb.Close
  6. Application.DisplayAlerts = True

Ou encore pour les encore plus gros fainéants ( ;) )

Code :
  1. Application.DisplayAlerts = False
  2. With Workbooks("toto.xls" )
  3.     Save
  4.     Close
  5. End With
  6. Application.DisplayAlerts = True
 

Je rappelle que entre les lignes 2 et 3 ou 3 et 4 de ton code, il peut se passer des choses, genre la fenêtre active change. C'est peu probable, mais pas impossible. :o


Message édité par zeb le 19-11-2007 à 14:48:52

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

Oui je suis tout a fait oki avec toi mais c'est un code ke je dois reprendre je vais kand meme pas refaire tout le boulot de mon predécesseur.


Message édité par darkspoilt le 19-11-2007 à 16:11:22
zeb
Profil : Modérateur libre
Plus d'informations

Combien factures-tu les modifs ? ... Ben ce n'est pas assez cher payé. :o
 
En plus, tu as écris 5 lignes pour 140 caractères, moi je t'en propose 6 pour 114. Comme je suis sûr que tu n'es ni payé à la ligne, ni au caractère, autant bien faire les choses. :D


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

Je n'ai logikement pas le droit de toucher au programme car c celui de mon supérieur, je dois me basé sur son programme pour en créer un autre car celui ke j'ai modifer définitif plu le droit de toucher mais kand je créer le miens t'inkiete pas il sera plus propre

zeb
Profil : Modérateur libre
Plus d'informations

>> car c celui de mon supérieur
:lol:


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » fermeture de l'application Excel sans demande de sauvegarde
 

Annonces Google
Publicité