Bonjour,
J'ai la macro suivante qui permet d'envoyer un mail automatiquement à une personne à l'ouverture du classeur. Par exemple si la date en case A1 = date du jour la macro envoi un mail à la personne se trouvant en B1. Je voudrais donc faire de même pour les lignes suivantes, c'est à dire si B1= date du jour => envoi de mail ; c'est à dire si c1= date du jour => envoi de mail ainsi de suite. Ces macros doivent s'enchainer, par conséquent j'ai simplement mis à la suite les différentes macros mais j'ai une erreur qui me dit que : Nom ambigue detecté Workbook_open ?
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub Workbook_Open()
 
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Worksheets("CDG")
 
    With Sh
        If CDate(.Range("B2")) = Format(Now, "dd/mm/yyyy") Then
 
            .Range("A5:B5:C5:D5:E5:G5:A6:B6:C6:D6:E6:G6").Select ' la plage de cellules à envoyer
 
 
            With .MailEnvelope
 
                .Introduction = "Bonjour, merci de relancer le client pour le dossier suivant : "
                .Item.To = Sh.Range("i6").Value
                .Item.Subject = " --RELANCE DOCUMENT-- "
                .Item.Send
 
            End With
        End If
    End With
 
Set Sh = Nothing
 
End Sub
 
Private Sub Workbook_Open()
 
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Worksheets("CDG")
 
    With Sh
        If CDate(.Range("B2")) = Format(Now, "dd/mm/yyyy") Then
 
            .Range("A5:B5:C5:D5:E5:G5:A6:B6:C6:D6:E6:G6").Select ' la plage de cellules à envoyer
 
 
            With .MailEnvelope
 
                .Introduction = "Bonjour, merci de relancer le client pour le dossier suivant : "
                .Item.To = Sh.Range("i6").Value
                .Item.Subject = " --RELANCE DOCUMENT-- "
                .Item.Send
 
            End With
        End If
    End With
 
Set Sh = Nothing
 
End Sub
Comment puis-je faire autrement ?
merci d'avance