Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Appel Module VB

Appel Module VB

6 réponses
Avatar
PO2B
Bonjour à Tous

J'ai un module VB dans ma base Access (qui m'a été fourni) mais je ne sais
pas comment l'éxecuter.
Je voudrais l'appeler depuis un bouton (sur clic)

Pouvez-vous m'indiquer la procédure ?

Merci d'avance

Patrice
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Raymond [mvp]
Bonjour.

un module peut contenir plusieurs procédures ou fonctions.
pour les exécuter tu indiques seulement le nom de la procédure et
éventuellement les paramètres à fournir.
les procédures commencent par public/private Sub MaProc.......
les fonctions commencent par private/public Function Mafunc .........
exemple:
Private Sub Commande0_Click()
Maproc
End Sub

affiche un exemple de fonction ou de procédure ici si ce n'est pas trop
long, si tu n'y arrives pas.
--
@+
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


"PO2B" a écrit dans le message de
news:
Bonjour à Tous

J'ai un module VB dans ma base Access (qui m'a été fourni) mais je ne sais
pas comment l'éxecuter.
Je voudrais l'appeler depuis un bouton (sur clic)

Pouvez-vous m'indiquer la procédure ?

Merci d'avance

Patrice




Avatar
PO2B
Merci Raymond,

Le module fonctionne parfaitement quand je l'éxécute directement dans VB
C'est un module récupéré sur http://memoaccess.free.fr/ voir plus bas

Lorsque je le lance avec le bouton avec Private Sub Commande0_Click()
j'obtiens le message suivant :
"Erreur de compilation
Variable ou procédure attendue et non un module"

******************************************
Sub SendMailAutomation()

Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem

Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = ""
.subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.send
End With

Set OlItem = Nothing
Set OlApp = Nothing

End Sub
***********************************************



"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

un module peut contenir plusieurs procédures ou fonctions.
pour les exécuter tu indiques seulement le nom de la procédure et
éventuellement les paramètres à fournir.
les procédures commencent par public/private Sub MaProc.......
les fonctions commencent par private/public Function Mafunc .........
exemple:
Private Sub Commande0_Click()
Maproc
End Sub

affiche un exemple de fonction ou de procédure ici si ce n'est pas trop
long, si tu n'y arrives pas.
--
@+
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


"PO2B" a écrit dans le message de
news:
Bonjour à Tous

J'ai un module VB dans ma base Access (qui m'a été fourni) mais je ne
sais


pas comment l'éxecuter.
Je voudrais l'appeler depuis un bouton (sur clic)

Pouvez-vous m'indiquer la procédure ?

Merci d'avance

Patrice








Avatar
Gaël Schmitt [MS]
Bonjour,
L'erreur est sur quelle ligne ?

Gael.
"PO2B" a écrit dans le message de
news:%
Merci Raymond,

Le module fonctionne parfaitement quand je l'éxécute directement dans VB
C'est un module récupéré sur http://memoaccess.free.fr/ voir plus bas

Lorsque je le lance avec le bouton avec Private Sub Commande0_Click()
j'obtiens le message suivant :
"Erreur de compilation
Variable ou procédure attendue et non un module"

******************************************
Sub SendMailAutomation()

Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem

Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = ""
.subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.send
End With

Set OlItem = Nothing
Set OlApp = Nothing

End Sub
***********************************************



"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

un module peut contenir plusieurs procédures ou fonctions.
pour les exécuter tu indiques seulement le nom de la procédure et
éventuellement les paramètres à fournir.
les procédures commencent par public/private Sub MaProc.......
les fonctions commencent par private/public Function Mafunc .........
exemple:
Private Sub Commande0_Click()
Maproc
End Sub

affiche un exemple de fonction ou de procédure ici si ce n'est pas trop
long, si tu n'y arrives pas.
--
@+
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


"PO2B" a écrit dans le message de
news:
Bonjour à Tous

J'ai un module VB dans ma base Access (qui m'a été fourni) mais je ne
sais


pas comment l'éxecuter.
Je voudrais l'appeler depuis un bouton (sur clic)

Pouvez-vous m'indiquer la procédure ?

Merci d'avance

Patrice












Avatar
Raymond [mvp]
Il ne faut pas exécuter le module mais la procédure.
dans ton cas précis tu mets SendMailAutomation sans indiquer de paramètres
et ça va marcher.

--
@+
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


"PO2B" a écrit dans le message de
news:%
Merci Raymond,

Le module fonctionne parfaitement quand je l'éxécute directement dans VB
C'est un module récupéré sur http://memoaccess.free.fr/ voir plus bas

Lorsque je le lance avec le bouton avec Private Sub Commande0_Click()
j'obtiens le message suivant :
"Erreur de compilation
Variable ou procédure attendue et non un module"

******************************************
Sub SendMailAutomation()

Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem

Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = ""
.subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.send
End With

Set OlItem = Nothing
Set OlApp = Nothing

End Sub
***********************************************



"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

un module peut contenir plusieurs procédures ou fonctions.
pour les exécuter tu indiques seulement le nom de la procédure et
éventuellement les paramètres à fournir.
les procédures commencent par public/private Sub MaProc.......
les fonctions commencent par private/public Function Mafunc .........
exemple:
Private Sub Commande0_Click()
Maproc
End Sub

affiche un exemple de fonction ou de procédure ici si ce n'est pas trop
long, si tu n'y arrives pas.
--
@+
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


"PO2B" a écrit dans le message de
news:
Bonjour à Tous

J'ai un module VB dans ma base Access (qui m'a été fourni) mais je ne
sais


pas comment l'éxecuter.
Je voudrais l'appeler depuis un bouton (sur clic)

Pouvez-vous m'indiquer la procédure ?

Merci d'avance

Patrice












Avatar
PO2B
ça marche ! , Merci Raymond (encore et encore....)


"Raymond [mvp]" a écrit dans le message de
news:
Il ne faut pas exécuter le module mais la procédure.
dans ton cas précis tu mets SendMailAutomation sans indiquer de paramètres
et ça va marcher.

--
@+
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


"PO2B" a écrit dans le message de
news:%
Merci Raymond,

Le module fonctionne parfaitement quand je l'éxécute directement dans VB
C'est un module récupéré sur http://memoaccess.free.fr/ voir plus bas

Lorsque je le lance avec le bouton avec Private Sub Commande0_Click()
j'obtiens le message suivant :
"Erreur de compilation
Variable ou procédure attendue et non un module"

******************************************
Sub SendMailAutomation()

Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem

Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = ""
.subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.send
End With

Set OlItem = Nothing
Set OlApp = Nothing

End Sub
***********************************************



"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

un module peut contenir plusieurs procédures ou fonctions.
pour les exécuter tu indiques seulement le nom de la procédure et
éventuellement les paramètres à fournir.
les procédures commencent par public/private Sub MaProc.......
les fonctions commencent par private/public Function Mafunc .........
exemple:
Private Sub Commande0_Click()
Maproc
End Sub

affiche un exemple de fonction ou de procédure ici si ce n'est pas
trop



long, si tu n'y arrives pas.
--
@+
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


"PO2B" a écrit dans le message de
news:
Bonjour à Tous

J'ai un module VB dans ma base Access (qui m'a été fourni) mais je
ne




sais
pas comment l'éxecuter.
Je voudrais l'appeler depuis un bouton (sur clic)

Pouvez-vous m'indiquer la procédure ?

Merci d'avance

Patrice
















Avatar
PO2B
Merci Gaël, Raymond m'a dépanné.


"Gaël Schmitt [MS]" a écrit dans le message de
news:
Bonjour,
L'erreur est sur quelle ligne ?

Gael.
"PO2B" a écrit dans le message de
news:%
Merci Raymond,

Le module fonctionne parfaitement quand je l'éxécute directement dans VB
C'est un module récupéré sur http://memoaccess.free.fr/ voir plus bas

Lorsque je le lance avec le bouton avec Private Sub Commande0_Click()
j'obtiens le message suivant :
"Erreur de compilation
Variable ou procédure attendue et non un module"

******************************************
Sub SendMailAutomation()

Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem

Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = ""
.subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.Add "F:Mes Documentsfichier.jpg"
.Save
.send
End With

Set OlItem = Nothing
Set OlApp = Nothing

End Sub
***********************************************



"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

un module peut contenir plusieurs procédures ou fonctions.
pour les exécuter tu indiques seulement le nom de la procédure et
éventuellement les paramètres à fournir.
les procédures commencent par public/private Sub MaProc.......
les fonctions commencent par private/public Function Mafunc .........
exemple:
Private Sub Commande0_Click()
Maproc
End Sub

affiche un exemple de fonction ou de procédure ici si ce n'est pas
trop



long, si tu n'y arrives pas.
--
@+
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


"PO2B" a écrit dans le message de
news:
Bonjour à Tous

J'ai un module VB dans ma base Access (qui m'a été fourni) mais je
ne




sais
pas comment l'éxecuter.
Je voudrais l'appeler depuis un bouton (sur clic)

Pouvez-vous m'indiquer la procédure ?

Merci d'avance

Patrice