Comment faire pour lancer une macro en vba
J'essai avec ce petit bout de code mais elle ce lance pas=20
la macro
Pouvez-vous me corriger SVP
Private Sub Commande6_Click()
If Me.Liste1 =3D "ETAT_REPRESENTANTS" Then
DoCmd.RunMacro "macro-envoiparmail"
Else
On Error Resume Next
DoCmd.SendObject acReport, Me.Liste1
End If
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
Raymond [mvp]
Bonjour.
est-ce que ta procédure fonctionne ? car si la macro ne se lance pas le sendobject doit se lancer. enlèves le on error pour vérifier qu'il n'y a pas d'erreurs sur le sendobject. peut-être que ta macro se lance mais ce qu'elle lance est-il bon ? commence par mettre un point d'arret à toutes les lignes de cette procédure pour voir où tu passes.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"franck" a écrit dans le message de news:09ac01c3b5b7$6032cb10$ Bonjour,
Comment faire pour lancer une macro en vba J'essai avec ce petit bout de code mais elle ce lance pas la macro Pouvez-vous me corriger SVP
Private Sub Commande6_Click() If Me.Liste1 = "ETAT_REPRESENTANTS" Then DoCmd.RunMacro "macro-envoiparmail" Else On Error Resume Next DoCmd.SendObject acReport, Me.Liste1 End If End Sub
Merci pour vos réponses
Bonjour.
est-ce que ta procédure fonctionne ?
car si la macro ne se lance pas le sendobject doit se lancer.
enlèves le on error pour vérifier qu'il n'y a pas d'erreurs sur le
sendobject.
peut-être que ta macro se lance mais ce qu'elle lance est-il bon ?
commence par mettre un point d'arret à toutes les lignes de cette procédure
pour voir où tu passes.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"franck" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:09ac01c3b5b7$6032cb10$a101280a@phx.gbl...
Bonjour,
Comment faire pour lancer une macro en vba
J'essai avec ce petit bout de code mais elle ce lance pas
la macro
Pouvez-vous me corriger SVP
Private Sub Commande6_Click()
If Me.Liste1 = "ETAT_REPRESENTANTS" Then
DoCmd.RunMacro "macro-envoiparmail"
Else
On Error Resume Next
DoCmd.SendObject acReport, Me.Liste1
End If
End Sub
est-ce que ta procédure fonctionne ? car si la macro ne se lance pas le sendobject doit se lancer. enlèves le on error pour vérifier qu'il n'y a pas d'erreurs sur le sendobject. peut-être que ta macro se lance mais ce qu'elle lance est-il bon ? commence par mettre un point d'arret à toutes les lignes de cette procédure pour voir où tu passes.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"franck" a écrit dans le message de news:09ac01c3b5b7$6032cb10$ Bonjour,
Comment faire pour lancer une macro en vba J'essai avec ce petit bout de code mais elle ce lance pas la macro Pouvez-vous me corriger SVP
Private Sub Commande6_Click() If Me.Liste1 = "ETAT_REPRESENTANTS" Then DoCmd.RunMacro "macro-envoiparmail" Else On Error Resume Next DoCmd.SendObject acReport, Me.Liste1 End If End Sub
