Salut,
En mettant dans le module ThisWorkBook :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Ton code !
End Sub
Cordialement,
F.
Salut,
En mettant dans le module ThisWorkBook :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Ton code !
End Sub
Cordialement,
F.
Salut,
En mettant dans le module ThisWorkBook :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Ton code !
End Sub
Cordialement,
F.
sachant que pour les trucs rasoir, il y a aussi AfterShave....
Mgr T.B. (en forme dans la neige, la soutane dans les dents)
"FdeCourt" a écrit dans le message de news:
C'est indiqué dans le menu déroulant.
En standard, ce qui est disponible au niveau du WorkBook est :
Private Sub Workbook_Activate()
Private Sub Workbook_AddinInstall()
Private Sub Workbook_(Cancel As Boolean)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Private Sub Workbook_Deactivate()
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Private Sub Workbook_Open()
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Private Sub Workbook_WindowResize(ByVal Wn As Window)
Cordialement,
F.
sachant que pour les trucs rasoir, il y a aussi AfterShave....
Mgr T.B. (en forme dans la neige, la soutane dans les dents)
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
3d7206f2-c73d-478c-810a-6fd5fe9c4909@q4g2000yqm.googlegroups.com...
C'est indiqué dans le menu déroulant.
En standard, ce qui est disponible au niveau du WorkBook est :
Private Sub Workbook_Activate()
Private Sub Workbook_AddinInstall()
Private Sub Workbook_(Cancel As Boolean)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Private Sub Workbook_Deactivate()
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Private Sub Workbook_Open()
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Private Sub Workbook_WindowResize(ByVal Wn As Window)
Cordialement,
F.
sachant que pour les trucs rasoir, il y a aussi AfterShave....
Mgr T.B. (en forme dans la neige, la soutane dans les dents)
"FdeCourt" a écrit dans le message de news:
C'est indiqué dans le menu déroulant.
En standard, ce qui est disponible au niveau du WorkBook est :
Private Sub Workbook_Activate()
Private Sub Workbook_AddinInstall()
Private Sub Workbook_(Cancel As Boolean)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Private Sub Workbook_Deactivate()
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Private Sub Workbook_Open()
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Private Sub Workbook_WindowResize(ByVal Wn As Window)
Cordialement,
F.
Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
sans oublier le meilleurs moment, l'après neige ;-)
isabelle
ps/ y a t'il un de vous qui aurait mit de coté la joke sur le couple de
francais qui s'installe au québec ?
Le 2010-01-08 11:10, Jacky a écrit :Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
sans oublier le meilleurs moment, l'après neige ;-)
isabelle
ps/ y a t'il un de vous qui aurait mit de coté la joke sur le couple de
francais qui s'installe au québec ?
Le 2010-01-08 11:10, Jacky a écrit :
Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
sans oublier le meilleurs moment, l'après neige ;-)
isabelle
ps/ y a t'il un de vous qui aurait mit de coté la joke sur le couple de
francais qui s'installe au québec ?
Le 2010-01-08 11:10, Jacky a écrit :Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
sans oublier le meilleurs moment, l'après neige ;-)
isabelle
ps/ y a t'il un de vous qui aurait mit de coté la joke sur le couple de
francais qui s'installe au québec ?
Le 2010-01-08 11:10, Jacky a écrit :Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
sans oublier le meilleurs moment, l'après neige ;-)
isabelle
ps/ y a t'il un de vous qui aurait mit de coté la joke sur le couple de
francais qui s'installe au québec ?
Le 2010-01-08 11:10, Jacky a écrit :
Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
sans oublier le meilleurs moment, l'après neige ;-)
isabelle
ps/ y a t'il un de vous qui aurait mit de coté la joke sur le couple de
francais qui s'installe au québec ?
Le 2010-01-08 11:10, Jacky a écrit :Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
sans oublier le meilleurs moment, l'après neige ;-)
isabelle
ps/ y a t'il un de vous qui aurait mit de coté la joke sur le couple de
francais qui s'installe au québec ?
Le 2010-01-08 11:10, Jacky a écrit :Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
sans oublier le meilleurs moment, l'après neige ;-)
isabelle
ps/ y a t'il un de vous qui aurait mit de coté la joke sur le couple de
francais qui s'installe au québec ?
Le 2010-01-08 11:10, Jacky a écrit :
Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))
sans oublier le meilleurs moment, l'après neige ;-)
isabelle
ps/ y a t'il un de vous qui aurait mit de coté la joke sur le couple de
francais qui s'installe au québec ?
Le 2010-01-08 11:10, Jacky a écrit :Quoi que en ce moment c'est plutôt
BeforeNeige
..Pelle à neige
AfterNeige
;o)))