Discussion :

[pouldom]

Bonjour,

J'au un tableau avec des dates anniversaires et je souhaiterais envoyer un mail de rappel le jour de l'anniversaire.
Pouvez vous m'aider, car j'ai une procédure mais qui ne fonctionne pas.
Merci de votre aide.
Ci joint mon fichier .
Cordialement
ZANNIVERSAIRES - Copie.xls

[Fab_de_chez_PERFORM]

Bonjour
à votre place ce que je ferais, ce serait enregistrer une macro de publipostage depuis WORD (avec option mailing évidemment)

Dans votre fichier Excel, il y aurait la base de données classique + une colonne message perso ou standard + une colonne qui détecte avec une fonction si à qui il faut l'envoyer (mettre un X)
Au moment d'enregistrer la macro sous Word, vous demandez (de mémoire, à l'étape 3 de l'assistant du publipostage) de filtrer les X
Il suffira d'adapter le SI d'excel à la fréquence de vos envois et le tour est joué

je vous mets un exemple en PJ


Code VBA word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub Publipostage()
'
' Publipostage Macro
'
Dim ma_source As String
ma_source = "C:\Users\XXXX___XXXX\Desktop\BDD Anniv.xlsx" 'à modifier pour vous

    ActiveDocument.MailMerge.MainDocumentType = wdEMail
    ActiveDocument.MailMerge.OpenDataSource Name:=ma_source, ConfirmConversions:=False, _
        ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=ma_source;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Lock" _
        , SQLStatement:="SELECT * FROM `Feuil1$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
        "Message_retenu"
    ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
    With ActiveDocument.MailMerge
        .Destination = wdSendToEmail
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub

[pouldom]

Bonjour,

Merci pour votre réponse, mais je souhaiterais que le mail s'envoie automatiquement à la date de l'anniversaire, lorsque que j'ouvre le fichier.
En fait comme celui que j'avais précédemment et qui ne fonctionne plus et je ne trouve pas la raison.
Encore merci pour votre aide.
Cordialement