nicolas 65
XLDnaute Nouveau
Barre d'outils
Bonjour,
Pour passer d'un mois à un autre j'aimerais avoir une barre d'outil flottante mais je n'arrive pas à la mettre en place
J'avais dans un exemple que j'ai essayais d'adapter et qui fonctionnait le code suivant :
dans ThisworkBook le code suivant
et dans un module le code suivant
Merci [file name=Bulletinpaye.zip size=11184]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Bulletinpaye.zip[/file]
Message édité par: nicolas 65, à: 02/03/2005 16:22
Bonjour,
Pour passer d'un mois à un autre j'aimerais avoir une barre d'outil flottante mais je n'arrive pas à la mettre en place
J'avais dans un exemple que j'ai essayais d'adapter et qui fonctionnait le code suivant :
dans ThisworkBook le code suivant
Code:
Private Sub Workbook_Activate()
Application.CommandBars('Mois suivant'Â'Â').Visible = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars('Mois suivant'Â'Â').Delete
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars('Mois suivant'Â'Â').Visible = False
End Sub
Private Sub Workbook_Open()
With Application.CommandBars('Mois suivant'Â'Â').Controls(1)
.OnAction = 'AjouterMois'
End With
End Sub
Code:
Sub AjouterMois()
Dim Mois, CurDt
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
CurDt = Range('L7'Â'Â').Value
Mois = DateSerial(Year(CurDt), Month(CurDt) + 1, 1)
ActiveSheet.Name = Format(Mois, 'mmmm yyyy'Â'Â')
Range('C13:Q43'Â'Â').ClearContents
Range('L7'Â'Â').Value = Mois
Range('C13'Â'Â').Select
End Sub
Merci [file name=Bulletinpaye.zip size=11184]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Bulletinpaye.zip[/file]
Message édité par: nicolas 65, à: 02/03/2005 16:22