Forcer Excel à sauver

Forcer Excel à sauver - VB/VBA/VBS - Programmation

Marsh Posté le 04-03-2005 à 17:23:05    

Bonjour,
 
Comment forcer l'enregistrement des modifications apportées dans un fichier excel ?
 
Parce que quand je fais ceci :
Classeur.ActiveWorkbook.Save
Classeur.Quit
 
J'obtient ce message :
Voulez vous enregistrer les modifications apportées à 'article.xls'?
 
Comment faire pour ne plus avoir ce message ?
 
Merci d'avance.

Reply

Marsh Posté le 04-03-2005 à 17:23:05   

Reply

Marsh Posté le 04-03-2005 à 18:40:35    

Salut !!!
 
Pour enregistrer automatiquement ton classeur à chaque fermeture sans voir apparaître à aucun moment une boite de dialogue, tu insère la méthode suivante dans ton objet thisWorkbook:
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
End Sub
 
Cette méthode se lance automatiquement avant chaque fermeture de ton classeur.
Pour pouvoir écrire du code dans ton objet thisWorkbook, il faut que tu double clique sur thisWorkbook de l'onglet microsoft excel objects de ton projet.
 
A bientot !!

Reply

Marsh Posté le 04-03-2005 à 19:07:25    

bonsoir,
c'est ton "classeur" qui fiche la pagaille
 
Classeur.ActiveWorkbook.Save  
Classeur.Quit  
 
avec :
 
ActiveWorkbook.Save  
Application.Quit  
 
ça devrait faire...
A+


Message édité par galopin01 le 04-03-2005 à 19:07:48
Reply

Marsh Posté le 04-03-2005 à 20:25:10    

Je ne vois pas très bien ce que vous voulez dire.
 
voila comment est mon code :
 

Code :
  1. Private Sub bouton1_Click()
  2. Dim Classeur1 As New Excel.Application
  3. Dim Classeur2 As New Excel.Application
  4. ' ouvrir les 2 fichiers excel
  5. Classeur1.Workbooks.Open (Text1)
  6. Classeur2.Workbooks.Open (Text2)
  7. .
  8. .
  9. .
  10. mise à jour des données du classeur2 avec le classeur1
  11. .
  12. .
  13. .
  14. Classeur2.ActiveWorkbook.Save
  15. 'Fermeture
  16. Classeur1.Quit
  17. Classeur2.Quit
  18. End Sub


 

Reply

Marsh Posté le 05-03-2005 à 00:41:51    

ou tout simplement tu mets
Classeur.ActiveWorkbook.Save  
Application.Quit
Application.DisplayAlerts=False
 
Ca quittera ton fichier sans demander

Reply

Marsh Posté le 06-03-2005 à 13:34:00    

J'y suis arrivé.
Merci  :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed