Afficher un message
Vieux 03/01/2007, 19h13   #5 (permalink)
pascal21
XLDnaute Accro
 
Avatar de pascal21
 
Date d'inscription: septembre 2005
Localisation: Saint Apollinaire (21) Dijon
Version Excel : Excel 2003 (PC)
Messages: 1 347
Par défaut Re : enregister des données dans une autre feuille avant de les effacer

bonsoir
grâce à ce code je supprime les données en fin de mois
Code:
Sub Image21_QuandClic()
Call enregistrement
Dim style As Integer
Dim msg As String, title As String, Response As String
msg = "   Vous allez enregistrer et quitter ce tableau;   Vous confirmez?"
style = vbYesNo + vbDefaultButton2
title = "Attention!! "
Response = MsgBox(msg, style, title)
If Response = vbYes Then
ActiveWorkbook.Close savechanges:=True
End If
End Sub
j'y ai rajouté "call enregistrement" de la macro de pierrejean
mon code fonctionne toujours mais l'enregistrement des données ne se fait pas
où faut-il mettre se code
sachant que je tient absolument à que ce soit ce bouton qui fasse l'action
merci
pascal21 est connecté maintenant   Réponse avec citation