J'utilise une petite Sub pour afficher les boutons et leur FaceId(Voir
plus bas).
Cette Sub fonctionne parfaitement, et j'ai ma "Gallerie de FaceId.
En revanche, quand je cherche a cr=E9er moi m=EAme un menu via :
"Set SousMenu14 =3D SousMenu1.Controls.Add(Type:=3DmsoControlButton,
ID:=3D309)" par exemple
Je me prends une "erreur d'automation" dans la musette ...
Quelqu'un conna=EEt ce probl=E8me ?
Merci =E0 tous.
'****
'La Sub :
'****
Sub AfficheBoutons()
Dim NewBarreOutil As CommandBar
Dim NewBouton As CommandBarButton
Dim i As Integer, IconOn As Integer, IconOff As Integer
'Supprime la barre si elle existe d=E9j=E0
On Error Resume Next
Application.CommandBars("BarBouton").Delete
On Error GoTo 0
Set NewBarreOutil =3D Application.CommandBars.Add _
(Name:=3D"BarBouton", temporary:=3DTrue)
NewBarreOutil.Visible =3D True
'Affiche les boutons 1 =E0 200
'Suivant la vitesse de votre ordinateur vous pouvez passer
'le param=E8tre IconOff =E0 600 (Attente de 30 secondes)
'Ou bien modifier le param=E8tre de d=E9part IconOn =3D 100
'et IconOff=3D 200 (Rapide)
IconOn =3D 0
IconOff =3D 1000
For i =3D IconOn To IconOff
Set NewBouton =3D NewBarreOutil.Controls.Add _
(Type:=3DmsoControlButton, ID:=3D2950)
NewBouton.FaceId =3D i
NewBouton.Caption =3D "FaceID =3D " & i
Next i
NewBarreOutil.Width =3D 700
NewBarreOutil.Left =3D 50
NewBarreOutil.Top =3D 120
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ABED HADDOU
Bonjour j'ai testé votre code il fonctionne parfaitement il n 'est a pas de probleme d'erreur d'automation.
Abed_H
Bonjour à tous,
J'utilise une petite Sub pour afficher les boutons et leur FaceId(Voir plus bas). Cette Sub fonctionne parfaitement, et j'ai ma "Gallerie de FaceId. En revanche, quand je cherche a créer moi même un menu via : "Set SousMenu14 = SousMenu1.Controls.Add(Type:=msoControlButton, ID:09)" par exemple Je me prends une "erreur d'automation" dans la musette ...
Quelqu'un connaît ce problème ?
Merci à tous.
'**** 'La Sub : '****
Sub AfficheBoutons() Dim NewBarreOutil As CommandBar Dim NewBouton As CommandBarButton Dim i As Integer, IconOn As Integer, IconOff As Integer
'Supprime la barre si elle existe déjà On Error Resume Next Application.CommandBars("BarBouton").Delete On Error GoTo 0
Set NewBarreOutil = Application.CommandBars.Add _ (Name:="BarBouton", temporary:=True) NewBarreOutil.Visible = True
'Affiche les boutons 1 à 200 'Suivant la vitesse de votre ordinateur vous pouvez passer 'le paramètre IconOff à 600 (Attente de 30 secondes) 'Ou bien modifier le paramètre de départ IconOn = 100 'et IconOff= 200 (Rapide) IconOn = 0 IconOff = 1000
For i = IconOn To IconOff Set NewBouton = NewBarreOutil.Controls.Add _ (Type:=msoControlButton, ID:)50) NewBouton.FaceId = i NewBouton.Caption = "FaceID = " & i Next i NewBarreOutil.Width = 700 NewBarreOutil.Left = 50 NewBarreOutil.Top = 120 End Sub
Bonjour
j'ai testé votre code il fonctionne parfaitement il n 'est a pas de
probleme d'erreur d'automation.
Abed_H
Bonjour à tous,
J'utilise une petite Sub pour afficher les boutons et leur FaceId(Voir
plus bas).
Cette Sub fonctionne parfaitement, et j'ai ma "Gallerie de FaceId.
En revanche, quand je cherche a créer moi même un menu via :
"Set SousMenu14 = SousMenu1.Controls.Add(Type:=msoControlButton,
ID:09)" par exemple
Je me prends une "erreur d'automation" dans la musette ...
Quelqu'un connaît ce problème ?
Merci à tous.
'****
'La Sub :
'****
Sub AfficheBoutons()
Dim NewBarreOutil As CommandBar
Dim NewBouton As CommandBarButton
Dim i As Integer, IconOn As Integer, IconOff As Integer
'Supprime la barre si elle existe déjà
On Error Resume Next
Application.CommandBars("BarBouton").Delete
On Error GoTo 0
Set NewBarreOutil = Application.CommandBars.Add _
(Name:="BarBouton", temporary:=True)
NewBarreOutil.Visible = True
'Affiche les boutons 1 à 200
'Suivant la vitesse de votre ordinateur vous pouvez passer
'le paramètre IconOff à 600 (Attente de 30 secondes)
'Ou bien modifier le paramètre de départ IconOn = 100
'et IconOff= 200 (Rapide)
IconOn = 0
IconOff = 1000
For i = IconOn To IconOff
Set NewBouton = NewBarreOutil.Controls.Add _
(Type:=msoControlButton, ID:)50)
NewBouton.FaceId = i
NewBouton.Caption = "FaceID = " & i
Next i
NewBarreOutil.Width = 700
NewBarreOutil.Left = 50
NewBarreOutil.Top = 120
End Sub
Bonjour j'ai testé votre code il fonctionne parfaitement il n 'est a pas de probleme d'erreur d'automation.
Abed_H
Bonjour à tous,
J'utilise une petite Sub pour afficher les boutons et leur FaceId(Voir plus bas). Cette Sub fonctionne parfaitement, et j'ai ma "Gallerie de FaceId. En revanche, quand je cherche a créer moi même un menu via : "Set SousMenu14 = SousMenu1.Controls.Add(Type:=msoControlButton, ID:09)" par exemple Je me prends une "erreur d'automation" dans la musette ...
Quelqu'un connaît ce problème ?
Merci à tous.
'**** 'La Sub : '****
Sub AfficheBoutons() Dim NewBarreOutil As CommandBar Dim NewBouton As CommandBarButton Dim i As Integer, IconOn As Integer, IconOff As Integer
'Supprime la barre si elle existe déjà On Error Resume Next Application.CommandBars("BarBouton").Delete On Error GoTo 0
Set NewBarreOutil = Application.CommandBars.Add _ (Name:="BarBouton", temporary:=True) NewBarreOutil.Visible = True
'Affiche les boutons 1 à 200 'Suivant la vitesse de votre ordinateur vous pouvez passer 'le paramètre IconOff à 600 (Attente de 30 secondes) 'Ou bien modifier le paramètre de départ IconOn = 100 'et IconOff= 200 (Rapide) IconOn = 0 IconOff = 1000
For i = IconOn To IconOff Set NewBouton = NewBarreOutil.Controls.Add _ (Type:=msoControlButton, ID:)50) NewBouton.FaceId = i NewBouton.Caption = "FaceID = " & i Next i NewBarreOutil.Width = 700 NewBarreOutil.Left = 50 NewBarreOutil.Top = 120 End Sub
