Barre d\'outils

[nicolas 65]

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

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

et dans un module le code suivant

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

 

[nicolas 65]

Re:Barre d'outils

(re) Bonjour,

Voici l'exemple de ce que j'aurais voulu reproduire dans le bulletin de paye. [file name=Effectifsstar.zip size=19273]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Effectifsstar.zip[/file]

 

[nicolas 65]

Re:Barre d'outils

Bonjour,

En relisant le message précédent je viens de m'apercevoir que j'avais oublié de remercier.

Merci d'avance car je n'ai toujours pas pu solutionner ce problème de création de barres aisi que le problème d'heures et de minutes voir fichier joint Bulletin de paye et j'aurais besoin de payer la personne et de lui donner son bulletin de paye.

Merci

 

[nicolas 65]

Re:Barre d'outils

Bonjour,

N'étant pas très bon sur tout ce qui est code, macro je n'ai toujours pas trouvé la solution. Une recherche sur le forum me donne bien des réponses sur les barres d'outils mais je n'ai pas réussi à appliquer les conseils.

Au sercours. Quelqu'un pourrait il regarder mon fichier s'il vous plait.

Merci

 

[nicolas 65]

Re:Barre d'outils

Bonjour à tous,

Je n'ai toujours pas trouvé la solution.


Merci