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

[AC-365] Utilisation incorrecte de null

arverne63 — Wed, 08 Apr 2026 13:50:52 GMT

Bonjour,
Dans un publipostage je souhaite afficher l'information "Votre circuit comporte une borne th�matique, merci de joindre sa photo � votre compte rendu de balisage" si la valeur de champ "Bornes" de la requ�te "R_Publipostage_Circuits_Bornes" est Oui et si la valeur est Non ne rien afficher. C'est dans ce cas que l'erreur apparait.

Merci d'avance pour votre aide.

Bonne journ�e.

Erreur d'ex�cutions 94 Utilisation incorrecte de Null dans le code VBA ci-dessous � la ligne 34.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Sub Fiche()
    Dim wApp As Word.Application
    Dim chemin As String
    Dim sqlA As String, sqlS As String, sqlB As String, sqlC As String
    Dim rsA As DAO.Recordset, rsS As DAO.Recordset, rsB As DAO.Recordset, rsC As DAO.Recordset
    Dim db As DAO.Database
    Set db = CurrentDb
    sqlA = "SELECT * FROM R_Publipostage_Adherents" & _
    " LEFT JOIN R_Publipostage_Circuits ON R_Publipostage_Adherents.numero = R_Publipostage_Circuits.numero" & _
    " WHERE Nz([R_Publipostage_Circuits.numero],0)=390.3;" 'Renseigner le Num�ro adh�rent pour �diter son courrier
    Set rsA = db.OpenRecordset(sqlA)
    Set wApp = New Word.Application
    wApp.Visible = True
    chemin = CurrentProject.Path
    While Not rsA.EOF
        With wApp
     cptLigneAdr = 0
    Set wDoc = wApp.Documents.Open(chemin & "\Mod�le-circuits-attribu�s-2026.docx") 'mettre l'ann�e � jour
 
        cptLigneAdr = cptLigneAdr + 1
        wDoc.Bookmarks("LigneAdr" & Format(cptLigneAdr, "00")).Range.Text = rsA.Fields("civilite") & " " & UCase(rsA.Fields("nom_adhe")) & " " & rsA.Fields("prenom")
        cptLigneAdr = cptLigneAdr + 1
        wDoc.Bookmarks("LigneAdr" & Format(cptLigneAdr, "00")).Range.Text = rsA.Fields("adresse")
If rsA.Fields("addresse2") <> " " Then
    cptLigneAdr = cptLigneAdr + 1
        wDoc.Bookmarks("LigneAdr" & Format(cptLigneAdr, "00")).Range.Text = rsA.Fields("addresse2")
End If
        cptLigneAdr = cptLigneAdr + 1
        wDoc.Bookmarks("LigneAdr" & Format(cptLigneAdr, "00")).Range.Text = rsA.Fields("CodePostal") & " " & UCase(rsA.Fields("ville"))
        wDoc.Bookmarks("Prenom1").Range.Text = rsA.Fields("Prenom")

            sqlC = "SELECT * FROM R_Publipostage_Circuits_Bornes WHERE numero_adhe=" & rsA.Fields("R_Publipostage_Adherents.numero")
            Set rsC = db.OpenRecordset(sqlC)
            .ActiveDocument.Bookmarks("InfoBornes").Range.Text = rsC.Fields("Informations")
         'If Not rsC.EOF Then wDoc.Bookmarks("NumAdherent").Range.Text = rsC.Fields("numero_adhe")
 
            sqlB = "SELECT * FROM R_Publipostage_nombrePR WHERE numero=" & rsA.Fields("R_Publipostage_Adherents.numero")
            Set rsB = db.OpenRecordset(sqlB)
            .ActiveDocument.Bookmarks("TotalPR").Range.Text = rsB.Fields("Nbr_PR")
         If Not rsB.EOF Then wDoc.Bookmarks("NumAdherent").Range.Text = rsB.Fields("numero")

            '--- tableau
            sqlS = "SELECT * FROM R_Publipostage_Circuits WHERE numero=" & rsA.Fields("R_Publipostage_Adherents.numero")
            Set rsS = db.OpenRecordset(sqlS)
            With .ActiveDocument.Tables(1)
                While Not rsS.EOF
                    .Rows.Add
                    .Rows.Last.Cells(1).Range.Text = rsS.Fields("secteur_balirando")
                    .Rows.Last.Cells(2).Range.Text = UCase(rsS.Fields("Code"))
                    .Rows.Last.Cells(3).Range.Text = rsS.Fields("nom_pr")
                    .Rows.Last.Cells(4).Range.Text = UCase(rsS.Fields("depart"))
                    .Rows.Last.Cells(5).Range.Text = rsS.Fields("balisage")
                    rsS.MoveNext
                Wend
            End With
 
            '---
            '.ActiveDocument.PrintOut Mettre l'ann�e � jour
            .ActiveDocument.SaveAs "C:\Users\balir\BALIRANDO\2026\Publipostage\Attribution circuits\Adh�rent unique\" & _
            "\Circuits " & Format(Date, "yyyy") & " " & _
                      rsA.Fields("nom_adhe") & " " & rsA.Fields("prenom") & ".docx"
 
 
            .ActiveDocument.Close (wdDoNotSaveChanges)
        End With
        rsA.MoveNext
    Wend
    rsS.Close:  Set rsS = Nothing
    rsA.Close:  Set rsA = Nothing
    db.Close:   Set db = Nothing
    Set wApp = Nothing
End Sub

Ci-dessous le code SQL de la requ�te R_Publipostage_Circuits_Bornes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT
    T_Circuits.numero_adhe,
    T_Circuits.code,
    T_Circuits.Secteur_Balirando,
    T_Circuits.nom_pr,
    T_Circuits.Bornes,
    IIf(
        [Bornes] = "Non",
        NULL,
        "Votre circuit comporte une borne thématique, merci de joindre sa photo à votre compte rendu de balisage "
    ) AS Informations
FROM
    T_Circuits;

Formulaire "Recherche multi-crit�res" de Cafeine

DurDur — Mon, 16 Mar 2026 17:46:20 GMT

Bonjour,

Je n'ai pas trouv� comment faire pour totaliser les contenus num�riques d'une colonne ?
(par exemple les totaux des factures obtenus apr�s la recherche)
Est-ce possible ?
Comment faire ?

Merci pour votre aide.

JCB

[AC-2019] lancer depuis 2 formulaires differents un etat unique ayant une requete differente

irimi54 — Sun, 15 Mar 2026 21:46:02 GMT

Bonsoir,

je voudrais lancer un meme �tat "NomEtat" � partir de deux formulaires diff�rents "NomFormulaire1" et "NomFormulaire2" mais l'�tat aura des requ�tes diff�rentes
Pour faire la meme chose avec un formulaire, je fais souvent , par exemple

Code:

1
2
3
4
5
6
7
8
 
Private Sub Liste_Categorie_Change()
If (IsNull(Forms![F_Pesee]![Liste_Sexe])) Then
Me.F_SF_Pesee.Form.RecordSource = "R_Pesee_categorie"
Else
Me.F_SF_Pesee.Form.RecordSource = "R_Pesee_sexe_categorie"
End If
End Sub

mais pour un etat !!! je ne sais pas

[Toutes versions] Pb avec OnKeyDown et une fonction, comment transf�rer KeyCode ?

nemog — Wed, 25 Feb 2026 08:19:20 GMT

Bonjour tout le monde,

J'ai un formulaire avec de nombreuses (variable) textboxes auxquelles je voudrais affecter pendant le chargement du formulaire une fonction sur l'�v�nement OnKeyDown.

Dans un 1er temps (Load du formulaire) :

Code:

1
2
3
4
5
6
7
Dim ctl As Control
 
For Each ctl In Me.Controls
 
ctl.OnKeyDown = "=maFonction(............?)"
 
Next ctl

Dans un 2e temps, dans le vba du formulaire ou un module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Function maFonction(KeyCode ? as ?)
 
   Dim ctl as control
   Set ctl = Screen.ActiveControl
 
    Select Case KeyCode
 
        Case 65        
            'action1
 
        Case 66        
            'action2
 
    End Select
 
End Function

Mon pb est que je n'arrive pas � 'r�cup�rer' la valeur KeyCode produite � l' appui d'une touche( apr�s avoir mis le curseur dans le textbox concern�, bien s�r ).

Qu'est-ce que j'oublie ? ou ne sais pas encore ?

Merci

[AC-2010] Le formulaire se trouve derri�re

dede_bo — Fri, 20 Feb 2026 15:32:29 GMT

Bonjour � tous

Malgr� mes recherches et diff�rent essais ... rien ... cela fonctionne de temps en temps

J'explique
J'ai un formulaire avec un bouton qui permet d'ouvrir un autre formulaire

Code:

1
2
3
 
            DoCmd.OpenForm "Album", acNormal, , "[Achat_ID] = " & RecordID
            Forms("Album").SetFocus

Rien � faire, soit il se met � l'arri�re de tout les formulaires
soit, 1x sur 10 il se met devant
parfois, il semble se fermer tout seul mais, en r�alit� il se place derri�re

J'ai essay� diff�rents code trouv� sur internet mais sans succ�s
J'ai cherch� ici, dans ce forum, mais l�, je ne sais pas quel condition de recherche que je dois utiliser ?

"Bring to front" ... il ne connait pas.

Toutes les id�es sont les bienvenues

Merci d'avance
Andr�

[AC-2019] export d'un requete access vers Excel

irimi54 — Mon, 09 Feb 2026 12:37:55 GMT

Bonjour,

j'ai une requ�te que je veux exporter vers Excel .
Le fichier excel existe et comporte deux feuilles : Donn�es et graphique.
Je voudrais pouvoir exporter le r�sultat de ma requ�te dans la feuille "donn�es" de mani�re � ce que le graphique se mette � jour automatiquement.

Copier la base et envoie par mail

mahrezs — Sat, 31 Jan 2026 15:49:32 GMT

Bonjour,
le travail se pr�sente en deux phases, quand on quitte l�application :
1- faire une copie par mesure de securit� ;
2- Envoyer cette copie par mail.

pour la premi�re parti �a fonction tr�s bien avec le code suivant:

Code:

1
2
3
4
5
6
7
Dim Fiche As Object
Dim Actuelle, Distination As String
Set Fiche = CreateObject("Scripting.filesystemObject")
Actuelle = "C:\Users\mahrez\Desktop\ESSAIE.accdb"
Distination = "D:\SauvegardeESSAIE.accdb"
Fiche.CopyFile Actuelle, Distination, True
Set Fiche = Nothing

pour la deuxi�me parti, je n'arrive pas � envoyer cette copie par mail, avec me code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fichier As String
Dim client_msg As New Outlook.Application
Dim message As Outlook.MailItem
Dim adresse As String
fichier = "D:\SauvegardeESSAIE.accdb"
 
Set message = client_msg.CreateItem(olMailItem)
With message
adresse = ("mahrezs@gmail.com")
Subject = "la copie de l'application"
Body = "Application"
Attachments.Add fichier
Send
End With

une solution svp
merci

Images attach�es

Tester pr�sence d'un objet dans une BDD Access

Jean-Luc80 — Tue, 27 Jan 2026 11:08:53 GMT

Bonjour
Dans une BDD j'ai plusieurs formulaires du type DPT_ suivi du nom de d�partement (exemple DPT_Nord)
Mais tous ne sont pas existant
Je voulais savoir si on peut tester en VBA la pr�sence d'un formulaire existant dans la base
en mettant un message d'erreur si celui-ci n'existe pas
Merci pour vos conseils

[AC-2010] La propri�t� 'Picture' reste sur '(none')

dede_bo — Tue, 20 Jan 2026 10:16:10 GMT

Bonjour,

J'ai un probl�me qui me d�passe. Je cherche et je ne trouve pas mon erreur !

J'ai un projet qui affiche un album. Lorsque je double clique sur une photo, un formulaire s'ouvre et affiche la photo en taille r�el.

Le code que j'ai mis derri�re l'�v�nement "onLoad" pour ajouter toute les photos:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
    ' Exemple de données
    ' ListeFichiers => "Fleur_01.jpg|Fleur_02.jpg|Fleur_03.jpg"
 
    ListeFichiers = Forms![Edition_Achat]![ListeDesFichiers]
    d = 1
 
    For ct = 1 To qt
 
        ' Déclaration des 2 objets (1 - photo / 1 - nom du fichier)
 
        Set NomFichier = Me("NomFichier_" + CStr(ct))
        Set Photo = Me("Image_" + CStr(ct))
 
        ' Extrait le nom du fichier et le sauve dans le champs texte
        GoSub cherche
 
        NomFichier.Visible = True
        NomFichier.Value = nom      ' Affiche le nom du fichier
 
        ' Prépare le path complet de l'image et la charge dans l'objet image
        Rep_photo = repertoirePhoto & nom
        Photo.Visible = True
        Photo.Picture = Rep_photo
    Next ct
    Exit Sub
 
cherche:
    ' Extraction du nom de fichier contenu dans la chaine de caratères
    p = InStr(d, ListeFichiers, "|")
 
    If p > 0 Then
        nom = Mid(ListeFichiers, d, p - d)
        d = p + 1
    Else
        nom = Right(ListeFichiers, (Len(ListeFichiers) - d) + 1)
    End If
    Return

Le code derri�re l'�venement "DblClick":

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub Image_1_DblClick(Cancel As Integer)
    Dim FichierImage As String
 
    FichierImage = Me.Image_1.Picture
 
    Me.PhotoChoisi = FichierImage
 
    DoCmd.OpenForm "Zoom", acNormal, , , , , "Album"
End Sub

Tout fonctionne � merveille

Maintenant, j'aimerais faire la m�me chose sur un autre projet
J'ai recopi� le code d'un projet � l'autre et en mettant le code � jour afin qu'il fonctionne.

Comme vous voyez sur l'image, la propri�t� "Picture" reste sur "(none)" ...
La configuration des objets et le code VBA sont identiques entre les 2 projets.

J'ai m�me reconstruit le formulaire de "0"
Je ne comprends pas.

Quelqu'un aurait il une id�e?

Merci de votre aide

Andr�

Images attach�es

[AC-365] Access 32/64 bits declarations

Apoulit — Mon, 19 Jan 2026 14:06:38 GMT

Bonjour,
j'ai un ordinateur ou Access est install� en 64 bits au lieu de 32 bits et j'ai des incompatibilit�s:

Module pour choisir une couleur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Type ChooseColor
    lStructSize As Long
    hWndOwner As Long
    hInstance As Long
    rgbResult As Long
    lpCustColors As String
    flags As Long
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
 
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long
Dim CustomColors() As Byte
 
Function ShowColor() As Long
On Error GoTo errHnd
    Dim cc As ChooseColor
 
    cc.lStructSize = Len(cc)
    cc.hInstance = Application.hWndAccessApp
    cc.lpCustColors = StrConv(CustomColors, vbUnicode)
    cc.flags = 0
 
    If ChooseColor(cc) <> 0 Then
        ShowColor = cc.rgbResult
 
 '
 '
 '
 '
 End Function

et celle ci pour initier une temporisation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)
Public Sub WaitSeconds(intSeconds As Integer)
  ' Comments: Waits for a specified number of seconds
  ' Params  : intSeconds      Number of seconds to wait
  ' Source  : Total Visual SourceBook
 
  On Error GoTo PROC_ERR
 
  Dim datTime As Date
 
  datTime = DateAdd("s", intSeconds, Now)
 
  Do
   ' Yield to other programs (better than using DoEvents which eats up all the CPU cycles)
    Sleep 100
    DoEvents
  Loop Until Now >= datTime
 
PROC_EXIT:
  Exit Sub
 
PROC_ERR:
  MsgBox "Error module waitseconds: " & Err.Number & ". " & Err.description, , "modDateTime.WaitSeconds"
  Resume PROC_EXIT
End Sub

Peut on avoir l'�quivalent avec des d�clarations en 64 bits je sais pas o� chercher.

Pour diff�rencier 32/64 bits j'utilise

Code:

1
2
3
4
5
    '#If VBA7 Then
       'MsgBox "32bits"
    '#Else
       'MsgBox "64bits"
    '#End If

Merci d'avance.

[AC-2010] Mettre � jour le rowsource d'un sous-formulaire

dede_bo — Sun, 18 Jan 2026 22:53:37 GMT

Bonsoir � toutes et tous

J'ai un petit soucis: J'essaie de remettre � jour le "rowsource" d'un sous-formulaire

Les donn�es sont bidons. C'est pour la simplicit� des explications

Explication:
J'ai un formulaire (Form_Principal) qui contient un sous-formulaire (SF_A)

En-dessous (dans le formulaire principal), il y a :
- un champ texte (Valeur) qui permet de filtrer le sous-formulaire en fonction de la valeur de ce champ
- un bouton "Reset" permettant de:
a) vider le champ "valeur"
b) Afficher tous les enregistrements

Lorsque je clique sur le bouton "Reset" (se trouvant sur le formulaire principal)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub bt_Reset_Click()
    Dim sqlstr as String

    Me.valeur = ""

    sqlstr = "SELECT * "
    sqlstr = sqlstr & "FROM Table
    sqlstr = sqlstr & "ORDER BY ID;"

    ' nnnnnnnnnnn                         ' Quel code dois-je �crire ici pour mettre � jour le rowsource

    Forms![Form_Principal]![SF_A].Form.Requery
End Sub

Mon probl�me est la mise � jour du rowsource du sous-formulaire

Si j'�cris:

Code:

Forms.[Form_Principal].SF_A.Form.RowSource = sqlstr

Je re�ois l'erreur: 438 - Object doesn't support this property of method

Si j'�cris:

Code:

Forms![Form_Principal]![SF_A].Form.RowSource = sqlstr

Je re�ois l'erreur: 2465 - Application-defined or Object-defined error

J'ai regard� un peu partout sur le forum, essay� vos id�es ... sans succ�s

la ligne de code avec ".... Form.Requery" ne montre pas tous les enregistrements; il ne se passe rien ! (pas d'erreur non plus)

Le sous-formulaire affiche toujours le r�sultat de la derni�re recherche

Je pense que c'est une erreur de syntaxe. Mais je ne sais plus laquelle utiliser !

Merci de votre aide �ventuelle

Bonne soir�e
Andr�

Images attach�es

[AC-365] Comment d�terminer la r�f�rence � utiliser pour une fonction donn�e

bartimeus35 — Thu, 15 Jan 2026 16:09:15 GMT

Bonsoir,

Dans mon code je voudrais utiliser la fonction Left , mais quand je compile, il me dit r�f�rence inconnue,

Comment trouver ce qui manque ?

Actuellement , j'ai �a comme r�f�rences :

Mille mercis,
Fran�ois

Images attach�es

Code VBA pour une sortie PDF et l'envoie par mail

mahrezs — Fri, 09 Jan 2026 06:03:45 GMT

Bonjour,
Je travaille sur une base de gestion et d��dition des r�sultats d�un laboratoire d�analyses m�dicales.
Je veux :
� Editer l��tat en format PDF ;
� Archiver cet �tat produit en PDF dans un dossier;
� Inscrire cet �tat produit en PDF dans la base ;
� Et envoyer au patient par courrier �lectronique, une copie du compte rendu d�analyses format PDF.

J�ai cr�� un bouton sur le formulaire et voil� le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim fichier As String
Dim base As Database: Dim requete As String
Dim client_msg As New Outlook.Application
Dim message As Outlook.MailItem
Dim adresse As String: Dim ligne As Recordset
fichier = "C:\Users\hp\Documents\Archives_labo\Bilann_" & NBilan.Value & ".pdf"
DoCmd.OutputTo acOutputReport, "E_Resultats", acFormatPDF, fichier, False
Set base = Application.CurrentDb
requete = "UPDATE T_Bilans SET Bilan_Num = 'Bilann_" & NBilan.Value & ".pdf' WHERE NBilan=" & NBilan.Value
base.Execute requete
Set ligne = base.OpenRecordset("SELECT Email FROM T_Patients WHERE NPatient=" & NPatient.Value, dbOpenDynaset)
ligne.MoveFirst
adresse = ligne.Fields("Email").Value
ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing
If (adresse <> "") Then
 
If (MsgBox("Joindre la facture par courrier électronique", vbYesNo) = 6) Then
 
Set message = client_msg.CreateItem(olMailItem)
With message
.Recipients.Add adresse
.Subject = "Votre facture"
.Body = "Cher client, veuillez trouver votre facture en pièce jointe"
.Attachments.Add fichier
.Send
End With
 
End If
End If

�a fonctionne tr�s bien pour la sortie en format PDF et l'archivage des �tats produits, malheureusement �a bloque au niveau de l'envoie par mail :
une solution svp

Images attach�es

[Toutes versions] Vocabulaire variables nom de colonne num�rique / Rst

Tipstitou — Tue, 06 Jan 2026 11:11:41 GMT

Bonjour,

Je bute b�tement sur un probl�me de vocabulaire.

Je dispose d'une table dont certains noms de champs sont num�riques (ex : -211, -201, 15, 124).
Le hic, c'est que je sais comment �crire ces noms de champs en dur, mais pas si je r�cup�re ces chiffres via une variable :

Rst![-211]=> est bien reconnu comme l'un des champs de ma table;
Rst!MaVariable => n'est pas reconnu (impossible de trouver l'objet dans la collection correspondant...).

J'ai fais pas mal de tentative sur la d�finition de MaVariable, mais je n'ai pas trouv�.

Dim MaVar As String '=> j'ai essay� avec Integer

MaVar = Rst!numero

ou MaVar = "" & Rst!numero & ""

ou MaVar = "[" & Rst!numero & "]"

etc.

Je n'arrive pas � trouver la bonne �criture.
Est-ce que quelqu'un peut me mettre sur la piste ?

Je pr�cise que je peux difficilement changer le nom de mes colonnes num�riques...

Merci d'avance pour vos suggestions.

Tiphaine

[AC-365] VBA Access Mail via Thunderbird

Marcello29 — Fri, 19 Dec 2025 16:53:38 GMT

Bonjour,
J'utilise avec succ�s quelques lignes de code VBA pour envoyer des mails via Thunderbird.
Le code est le suivant:
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & """" & "to='" & desti & "'"
strcommand = strcommand & "," & "subject='" & objet_mail & "',"
strcommand = strcommand & "body='" & texte_mail & "',"
strcommand = strcommand & "," & "attachment='file:///" & nom_fich & "'" & """"
Call Shell(strcommand, vbNormalFocus)

Le probl�me est que, depuis peu, je g�re 3 boites mail dans Thunderbird et la macro n'utilise pas le bon mail exp�diteur.
J'ai tent� de modifier une ligne comme suit
strcommand = strcommand & " -compose " & """" & "sender=mail2@orange.fr" & "to='" & desti & "'"
mais dans ce cas c'est bien l'adresse mail mail2@orange.fr qui devient l'exp�diteur mais la zone destinataire reste vierge et le mail ne peut bien s�r pas partir.

Quelqu'un de plus dou� que moi (ce qui n'est pas difficile) pourrait-t'il m'apporter ses lumi�res et me dire o� int�grer le mail exp�diteur.
Merci d'avance.
Marcel