macro qui ne marche pas

R

Robert

Guest

• 20 Août 2004

• #2

Salut Bas, salut le forum,

place ce code dans l'élément ThisWorkbook de ton projet VBA

Private Sub Workbook_BeforeClose(cancel As Boolean)
ThisWorkbook.Close SaveChanges:=False
end sub

À plus,

Robert

 

Vote positif 0 Vote négatif

D

Dan

Guest

• 20 Août 2004

• #3

Bonsoir Bas,

Voici une macro qui fermera ton fichier sans sauvegarde :

1. Ouvre VBA (ALT + F11)
2. CTRL + R pour ouvrir le VBA project
3. Dans VBA project, Double clique sur Thisworkbook
4. A droite place cette macro :

Private Sub Workbook_BeforeClose (Cancel as Boolean)
ThisWorkbook.Close Savechanges:=False
End Sub

5. Avant de fermer ton fichier, enregistre le pour conserver ta macro

Bon Travail

@+ Dan

 

Vote positif 0 Vote négatif

D

Dan

Guest

• 20 Août 2004

• #4

Re,

Oups Robert, je n'avais pas rafraichi avant de poster. désolé on s'est croisé.

Dan

 

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 21 Août 2004

• #5

msgbox: fermer fichier sans sauver

bonjour Bas, Robert, Dan, lecteurs et lectrices...

J'ai un souhait un peu différent: je voudrais un bouton OUI et NON dans le message ci-dessous

OUI= Fermer le classeur actif sans enregistrer
NON= pas d'action-fermer le MsgBox

' message de fin:
Rep = MsgBox("quitter sans enregistrer ", vbYes)

Pourriez-vous me guider dans cette mission dangeureuse ?

Cordialament

olivierd

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 21 Août 2004

• #6

Salut Olivierd, Dan, Bas, le forum,

Olivierd, si tu as :

rep = MsgBox("Quitter sans enregistrer ?", vbYesNo)

il te faudra rajouter dans le code qui lance la MsgBox, cette ligne :

If rep = 6 Then ThisWorkbook.Close Savechanges:=False

où 6 correspond à l'argument bouton vbYes et où il n'est pas nécessaire de décrire l'action pour vbNo (7) puisque le MsgBox se ferme automatiquement dès qu'une réponse (rep) est donnée.

À plus,

Robert

 

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 21 Août 2004

• #7

bonjour,
merci pour ta réponse... je ne suis pas sur d'avoir bien fait:

Sub macro()
rep = MsgBox("Quitter sans enregistrer ?")
If rep = 6 Then ThisWorkbook.Close Savechanges:=False
End Sub

la macro ne propose que OUI et ne ferme pas le casseur à l'activation du oui...

Comment modifier le code pour fermer le classeur à l'action du OUI et avoir un NON pour conserver la main sans action ?

merci pour tes infos

cordialement

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 21 Août 2004

• #8

Re Olivierd,

si je ne m'abuse tu as oublié ,vbYesNo

essai avec :
rep = MsgBox("Quitter sans enregistrer ?", vbYesNo)

ça devrait marcher ou plutôt ça va marcher.

À plus,

Robert

 

Vote positif 0 Vote négatif

O

Olivierd

Guest

• 21 Août 2004

• #9

Robert ?

tu sais quoi: cela marche parfaitement...
Je te remercie beaucoup

Cordialement

 

Vote positif 0 Vote négatif