Forum du club des d�veloppeurs et IT Pro - Macros Access

Compresser et envoyer un fichier au click

mahrezs — Tue, 03 Mar 2026 07:49:54 GMT

Bonjour,
j'ai un fichier trop lourd, je veux, au click, le compresser et l'envoyer par mail, j'utilise le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Commande52_Click()
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim fichier As String
 fichier = "C:\Users\ahmed\Documents\archives"
' Creation session Outlook
Set oApp = New Outlook.Application
'Set oApp = CreateObject("Outlook.Application")
' Creation mail
Set oMail = oApp.CreateItem(olMailItem)
With oMail
    .To = "mahrezs@gmail.com"
    .Subject = "la copie de l'application"
    .Body = "Application"
    .Attachments.Add fichier
    .Send
End With
End Sub

Merci

Executer deux codes avant de quitter l'application

mahrezs — Wed, 18 Feb 2026 12:30:00 GMT

BONJOUR ?
J�ai deux codes que j�actionne, s�par�ment, par deux boutons au clik,
1� code : pour faire une copie de la base sur le Pc ;
2� code : pour envoyer cette copie par mail.
Je veux que quand je clique sur le bouton quitter l�application, les deux codes s�ex�cutent automatiquement avant de quitter l�application.

1� code :

Code:

1
2
3
4
5
6
7
8
9
Private Sub Commande8_Click()
Dim Fiche As Object
Dim Actuelle, Distination As String
Set Fiche = CreateObject("Scripting.filesystemObject")
Actuelle = "C:\Users\mahrez\Desktop\NOUVEAU TRAVAIL.accdb"
Distination = "C:\Users\mahrez\Documents\Copie NOUVEAU TRAVAIL.accdb"
Fiche.CopyFile Actuelle, Distination, True
Set Fiche = Nothing
End Sub

2� code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Commande9_Click()
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim fichier As String
 
fichier = "C:\Users\mahrez\Documents\Copie NOUVEAU TRAVAIL.accdb"
 
' Creation session Outlook
Set oApp = New Outlook.Application
'Set oApp = CreateObject("Outlook.Application")
' Creation mail
Set oMail = oApp.CreateItem(olMailItem)
 
With oMail
    .To = "mahrezs@gmail.com"
    .Subject = "la copie de l'application"
    .Body = "Application"
    .Attachments.Add fichier
    .Send
End With
End Sub

une solution svp
merci

Macro n'apparait pas

Jean-Luc80 — Tue, 17 Feb 2026 17:03:48 GMT

Bonjour
J'ai cr�� une macro appel�e MC_Ville pour menu contextuel d'un champ
Quand je veux l'ajout� au champ d'un form elle n'apparait pas dans la liste des macros
Pourquoi ?
Merci

ex�cution d'une macro si la valeur d'un champ du formulaire existe dans une table

byaccess2 — Mon, 05 Jan 2026 16:36:28 GMT

Bonjour,
J'essaie en vain d'ex�cuter une macro dans un formulaire si la valeur d'un champ de mon formulaire (par exemple NomClient) existe dans une table (T_clients), champ [Nom]
J'ai essay� In, Like, etc mais sans succ�s (exemple If [NomClient] In ([T_clients]![Nom]) )
Auriez-vous une id�e?
Pour le moment �a ne fonctionne que si dans la condition de la macro je pr�cise les x noms de clients de ma table (heureusement pour le moment il n'y en a qu'une dizaine). Le soucis est que quand j'ajoute un client dans cette table, il ne faut pas que j'oublie de l'ajouter dans ma macro, et je ne peux mettre que 6 ou 7 clients par condition. (exemple If [NomClient]="Laetitia" Ou [NomClient]="Nathalie" Ou [NomClient]="Michael" etc, � partir d'une certaine longueur de ligne je dois ouvrir une deuxi�me condition pr�c�d�e de "ou")

Merci pour vos conseils

Blocage champs si un champ n'est pas vide

baceri — Sun, 20 Jul 2025 07:12:07 GMT

Bonjour, j'ai un sous formulaire ou je g�re les tailles des v�tements pour chaque joueurs de mon association sportive. Quand je passe la commande j'ai un champ "date de la commande" qui se rempli automatiquement. J'aimerai a l'aide d'une macro bloquer les champs des tailles quand le champ "date de commande" n'est plus vide. En clair ne plus pouvoir modifie le sous formulaire quand la cde est pass�e. Merci pour vos r�ponses.