fermer sans enregistrer

PascalXLD

XLDnaute Barbatruc

• 7 Juin 2005

• #2

Bonjour

ThisWorkbook.Close False

Bon courage

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 7 Juin 2005

• #3

Bonjour Canard et Pascal76,

Le même code ou presque que Pascal pour le bouton :

ActiveWorkbook.Close SaveChanges:=False

Un plus en cas de fermeture par la croix :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub

A mettre dans le module du classeur ThisWorkbook

Cordialement

Bernard

 

Vote positif 0 Vote négatif

C

canard

XLDnaute Occasionnel

• 7 Juin 2005

• #4

j'ai toujours la boite de dialogue qui s'affiche

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 7 Juin 2005

• #5

Re

Bizarre avec le code cela devrait fermer sans poser de question

Essaies avant

Application.displayalerts=false
ThisWorkbook.Close False

Mais en principe cela n'est pas nécessaire

 

Vote positif 0 Vote négatif

C

canard

XLDnaute Occasionnel

• 7 Juin 2005

• #6

meme avec ça la boite s'affiche

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 7 Juin 2005

• #7

Re

Peux-tu joindre ton fichier qu'on regarde STP parceque là c'est très bizarre

 

Vote positif 0 Vote négatif

C

canard

XLDnaute Occasionnel

• 7 Juin 2005

• #8

voila,
la macro se nomme annuler

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 7 Juin 2005

• #9

Re

le fichier zip moins de 50 ko sans accent ni tiret ni caractères spéciaux etc

 

Vote positif 0 Vote négatif

C

canard

XLDnaute Occasionnel

• 7 Juin 2005

• #10

le fichier fait 120ko, si tu veut je peut te l'envoyer par mail

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 7 Juin 2005

• #11

Re

sans les données cela devrait passer

 

Vote positif 0 Vote négatif

C

canard

XLDnaute Occasionnel

• 7 Juin 2005

• #12

sans les données, il fait 120ko

 

Vote positif 0 Vote négatif

C

canard

XLDnaute Occasionnel

• 7 Juin 2005

• #13

ça y est ça marche

 

Vote positif 0 Vote négatif