dhiouf
XLDnaute Occasionnel
Bonjour à tous
J’ai créer un classeur sous excel 2003 avec des macros et une barre de menu personnelle, chez moi ça marche mais le problème lorsque j’ouvre mon classeur sur un autre poste sous la même version 2003 ça ne marche pas, je trouve pas ma barre de menu ( erreur de compilation : projet ou bibliothèque introuvable) avec un surligneur des 2 procédures suivante en gras :
Macro pour afficher horloge dans une cellule :
Sub Affichage()
Dim Horloge As Integer
On Error Resume Next
Horloge = Hour(Time) * 60 + Minute(Time)
Call DemarrerHorloge
Sheets("Budget mensuelle").Range("B11") = Format(Now, "Long Time")
End Sub
Procédure pour créer une zone de texte sur barre de menu perso :
Set Ctxt = Cbar.Controls.Add(msoControlEdit)
With Ctxt
.Style = msoComboLabel '<-- zone de texte avec label
.Caption = "TNDbudget :" '<-- texte du label
.TooltipText = "TNDbudget"
.BeginGroup = True
.Width = 300
End With
Comment créer un classeur excel avec des macros compatible avec tous les version excel
Merci d’avance.
J’ai créer un classeur sous excel 2003 avec des macros et une barre de menu personnelle, chez moi ça marche mais le problème lorsque j’ouvre mon classeur sur un autre poste sous la même version 2003 ça ne marche pas, je trouve pas ma barre de menu ( erreur de compilation : projet ou bibliothèque introuvable) avec un surligneur des 2 procédures suivante en gras :
Macro pour afficher horloge dans une cellule :
Sub Affichage()
Dim Horloge As Integer
On Error Resume Next
Horloge = Hour(Time) * 60 + Minute(Time)
Call DemarrerHorloge
Sheets("Budget mensuelle").Range("B11") = Format(Now, "Long Time")
End Sub
Procédure pour créer une zone de texte sur barre de menu perso :
Set Ctxt = Cbar.Controls.Add(msoControlEdit)
With Ctxt
.Style = msoComboLabel '<-- zone de texte avec label
.Caption = "TNDbudget :" '<-- texte du label
.TooltipText = "TNDbudget"
.BeginGroup = True
.Width = 300
End With
Comment créer un classeur excel avec des macros compatible avec tous les version excel
Merci d’avance.