Message

Robert

XLDnaute Barbatruc

Repose en paix

• 2 Décembre 2005

• #2

Bonjour Tony, bonjour le forum,

Si tu quittes un fichier juste après l'avoir enregistré/sauvé, ce message n'apparaît pas. Si par contre tu sauves le fichier puis tu modifies une seule chose, quand tu va vouloir le quitter, ce message apparaîtra. Donc en VBA si tes dernières lignes sont :

Workbooks('Toto.xls').Save
Workbooks('Toto.xls').Close

tu n'auras pas de message...

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 2 Décembre 2005

• #3

Bonjour

tu peux dans le code de Thisworkbook ajouter


si tu veux que ton fichier soit sauvegardé sans message

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close True
End Sub

ou

si tu veux que ton fichier ne soit pas sauvegardé sans message

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close False
End Sub

 

Vote positif 0 Vote négatif

T

Tony

Guest

• 2 Décembre 2005

• #4

Salut Robert

Je m'excuse mais pas tous compri

Tony

 

Vote positif 0 Vote négatif

T

Tony

Guest

• 2 Décembre 2005

• #5

Re

Ohla Vous allez trop vite pour moi :S

Pas le temps de répondre à post que déjà il y en avait un autre
Je te remercie Pascal76
je vais tenter ta solution.

@ +

Tony

 

Vote positif 0 Vote négatif

T

Tony

Guest

• 2 Décembre 2005

• #6

Re Pascal76

Ta solution marche très bien, mais
je tombe sur une page grise, nommée 'Microsoft Excel'
je suis donc obliger de la fermer par le bouton de fermeture.
Je voudrais arriver directement sur le bureau (pas la table )

Merci

Tony

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 2 Décembre 2005

• #7

RE

Oui mais dans ce cas il faut que tu ferme non seulement ton fichier mais aussi Excel

Et si tes users ont un autre fichier en cours

ALors là patatra

Regarde ce fil avec le post de TI

Lien supprimé

Bon courage

 

Vote positif 0 Vote négatif

T

Tony

Guest

• 2 Décembre 2005

• #8

Re

Je joins mon code pour explication

Code:

Private Sub workbook_beforeclose(cancel As Boolean)
    ThisWorkbook.Close True
    
End Sub

Tony

 

Vote positif 0 Vote négatif