userform à la cloture d'un dossier

tototiti2008

XLDnaute Barbatruc

• 18 Août 2009

• #2

Re : userform à la cloture d'un dossier

Bonjour Pierre,

c'est :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Mais pour éviter d'essayer de deviner, place toi dans ThisWorkbook et en haut de ton écran, au-dessus du code, déroule la 1ère liste et choisis Workbook, puis déroule la 2ème liste et choisis l'évènement que tu veux.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Août 2009

• #3

Re : userform à la cloture d'un dossier

Bonjour Pierre, bonjour le forum

à placer dans le composant ThisWorkbook :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ton code
End Sub

Édition :
Bonjour Tototiti on s'est croisé

 

Dernière édition: 18 Août 2009

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Août 2009

• #4

Re : userform à la cloture d'un dossier

Bonjour Pierre

si j'ai bien compris c'est l'événement "BeforeClose" qui doit être utilisé, à placer dans le module "thisworkbook" :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

bonne fin d'après midi
@+

Edition, aarf, un peu en retard moi.. bonjour toto, Robert

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 18 Août 2009

• #5

Re : userform à la cloture d'un dossier

Salut,
Créer une feuille nommée "espion"
mettre la macro

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
x = [espion!A1].End(xlDown).Row + 1
Sheets("espion").Range("A" & x) = Application.UserName
Sheets("espion").Range("B" & x) = Date
End Sub

 

Vote positif 0 Vote négatif

P

pierre 77930

Guest

• 18 Août 2009

• #6

Re : userform à la cloture d'un dossier

merci à tous pour vos réponses , je mets en application et je vous tiens au courant merci encore............et bonne fin de journée.

Pierre

 

Vote positif 0 Vote négatif