OVH Cloud OVH Cloud

syndrome de la macro folle

3 réponses
Avatar
bal bellegarde
comment se fait-il qu'une macro aie l'humeur changeante.
elle est bien dans macro complémentaires, bien présente et fonctionne mais
pas tout le temps, il s'agit de BOsaisiedate ...
je dois à chaque fois la réinitialiser..
bon à la longue c'est moins rigolo...
une idée formidable à soumettre ???

3 réponses

Avatar
michdenis
Bonjour Bellegarde,

As-tu une procédure ressemblant à ceci dans le
ThisWorkbook de ton classeur .xla ?

'-----------------------------
Private Sub Workbook_Open()

On Error Resume Next
Application.CommandBars("toto").Delete
With Application.CommandBars
.Add "toto"
With Application.CommandBars("toto")
.Enabled = True
.Visible = True
.Position = msoBarTop
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
'Le rese du code de création
End With

End Sub
'-----------------------------


Salutations!





"bal bellegarde" a écrit dans le message de news: %
comment se fait-il qu'une macro aie l'humeur changeante.
elle est bien dans macro complémentaires, bien présente et fonctionne mais
pas tout le temps, il s'agit de BOsaisiedate ...
je dois à chaque fois la réinitialiser..
bon à la longue c'est moins rigolo...
une idée formidable à soumettre ???
Avatar
bal bellegarde
je ne peux pas voir... macro protégée..


"michdenis" a écrit dans le message de news:
#
Bonjour Bellegarde,

As-tu une procédure ressemblant à ceci dans le
ThisWorkbook de ton classeur .xla ?

'-----------------------------
Private Sub Workbook_Open()

On Error Resume Next
Application.CommandBars("toto").Delete
With Application.CommandBars
.Add "toto"
With Application.CommandBars("toto")
.Enabled = True
.Visible = True
.Position = msoBarTop
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
'Le rese du code de création
End With

End Sub
'-----------------------------


Salutations!





"bal bellegarde" a écrit dans le message de news:
%

comment se fait-il qu'une macro aie l'humeur changeante.
elle est bien dans macro complémentaires, bien présente et fonctionne mais
pas tout le temps, il s'agit de BOsaisiedate ...
je dois à chaque fois la réinitialiser..
bon à la longue c'est moins rigolo...
une idée formidable à soumettre ???





Avatar
michdenis
Fais le petit test suivant.

Supprime ladite barre d'outils lorsque ton fichier est ouvert.
enregistre ton fichier et ferme excel.

à la réouverture d'excel, Est-ce que la barre d'outils
est présente sans que tu interviennes ?

Comment procèdes-tu pour la récupérer lorsqu'elle est absente ?


Salutations!



"bal bellegarde" a écrit dans le message de news: e47%
je ne peux pas voir... macro protégée..


"michdenis" a écrit dans le message de news:
#
Bonjour Bellegarde,

As-tu une procédure ressemblant à ceci dans le
ThisWorkbook de ton classeur .xla ?

'-----------------------------
Private Sub Workbook_Open()

On Error Resume Next
Application.CommandBars("toto").Delete
With Application.CommandBars
.Add "toto"
With Application.CommandBars("toto")
.Enabled = True
.Visible = True
.Position = msoBarTop
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
'Le rese du code de création
End With

End Sub
'-----------------------------


Salutations!





"bal bellegarde" a écrit dans le message de news:
%

comment se fait-il qu'une macro aie l'humeur changeante.
elle est bien dans macro complémentaires, bien présente et fonctionne mais
pas tout le temps, il s'agit de BOsaisiedate ...
je dois à chaque fois la réinitialiser..
bon à la longue c'est moins rigolo...
une idée formidable à soumettre ???