Discussion :

[alfonso12]

bonjour à tous

j'ai une petite macro ue j'ai mis dans une requette de BO et je voudrais que à l' ouverture de la requette une macro se lance

pour cela j'ai mis ce code dans this.document

Private Sub Document_Open()
Call copier
End Sub

et la macro qui doit etre lancer

Sub copier()

'Déclaration des commandes et contrôles BO

Dim BOCmdBar As CmdBar

Dim BOCmdBarControls As CmdBarControls

Dim BOControlButton As Control

Dim BOCmdBarPopup As CmdBarPopup

Dim BOCmdBarButton As CmdBarButton


'2/ Copie des éléments calculées par la requête

' Remarque : il s'agit du 2° menu et de la 20° commande

Set BOCmdBar = Application.CmdBars.Item(2)

Set BOCmdBarControls = BOCmdBar.Controls

Set BOCmdBarPopup = BOCmdBarControls.Item(2)

Set BOCmdBarButton = BOCmdBarPopup.CmdBar.Controls.Item(20)

BOCmdBarButton.Execute

End Sub

mais à l'ouverture de la requette j'ai une erreur a la derniere ligne de ma macro (erreur division par zéro)
alors que quand j'execute manuellement ma macro elle fonctionne

donc le probleme vient de la commande automatique qui lance ma macro
mais je vois pas quelle est le probleme
une idée

[Bruno2r]

Bonsoir,
La première chose rpérable est la syntaxe de Call :

Code :

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

Call Copier(0)

Pour le reste je ne vois pas du tout ce que tu veux copier.
Enfin, si jamais d'autres actions ont été exécutées avant celle ci ...
Copier ne sera plus en 2ème commande du Menu Edition mais en 5ème position après Annuler, Rétablir, Répéter