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
et la macro qui doit etre lancerPrivate Sub Document_Open()
Call copier
End Sub
mais à l'ouverture de la requette j'ai une erreur a la derniere ligne de ma macro (erreur division par zéro)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
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
Partager