Discussion :

[seljack]

Faut il installer une référence spéciale pour que l'exemple fourni par access 2003 suivant marche dans mon projet ?

A la compilation, il ne reconnait pas les types suivants : CommandBar, CommandBarButton et msoControlButton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim customBar As CommandBar
Dim newButton As CommandBarButton
Set customBar = CommandBars.Add("Custom")
Set newButton = customBar.Controls _
    .Add(msoControlButton, CommandBars("Edit") _
    .Controls("Cut").Id)
Set newButton = customBar.Controls _
    .Add(msoControlButton, CommandBars("Edit") _
    .Controls("Copy").Id)
Set newButton = customBar.Controls _
    .Add(msoControlButton, CommandBars("Edit") _
    .Controls("Paste").Id)
customBar.Visible = True

[Invité]

Bonjour

Il faut que tu coches Microsoft Office 11.0 Object Library.

Starec