Option Explicit
Dim CB() As New Classe1
Private Sub Workbook_Open()
[COLOR=rgb(184, 49, 47)]Dim o As OLEObject, n%
For Each o In Feuil1.OLEObjects
If TypeName(o.Object) = "CommandButton" Then
ReDim Preserve CB(n)
Set CB(n).CB = o.Object
Set CB(n).lab = Feuil1.OLEObjects("Label1").Object
n = n + 1
End If
Next[/COLOR]
[COLOR=rgb(65, 168, 95)]Application.Caption = "JENNIFER "
Application.DisplayFullScreen = True
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
MsgBox "BIENVENUE :" & Chr(10) & "Nous sommes le " & Format(Date, "dddd d mmmm yyyy") & _
Chr(10) & "Il est " & Int((Now - Int(Now)) * 24) & " H " & Format(((Now - Int(Now)) * 24 - Int((Now - Int(Now)) * 24)) * 60, "00") & " mn."
MsgBox ("Dernière Modification enregistrées dans ma base : " & Format(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YY"))
End Sub[/COLOR]