Discussion :

[mad01]

Bonjour,
J'ai crée une macro afin d'envoyer une série de cellule par mail à une personne via un bouton. Cependant, je souhaiterais automatiser ce système, c'est à dire que je voudrais qu'a l'ouverture d'excel ma macro s'éxecute automatiquement sans toucher à quoique ce soit. Plus précisément à l'ouverture de Excel, si la date d'une cellule précise est égale à la date du jour (qui est indiqué sur une autre cellule) alors le mail doit s'envoyer automatiquement. Voici mon code actuel :

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
Sub Envoitest1()
ActiveSheet.Range("A5:B5:C5:D5:E5:G5:A6:B6:C6:D6:E6:G6").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
 
With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour, merci de relancer le client pour le dossier suivant :  "
    .Item.To = ActiveSheet.Range("j6").Value
    .Item.Subject = " RELANCE DOCUMENT-- "
    .Item.Send
End With
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

Auriez vous une solution à mon problème ?

Merci d'avance,
Cdlt

[joe.levrai]

Bonjour,

code un peu bourrin, mais regarde si déjà ça fonctionne
Ca dépend également du format de date qui est dans ta cellule, là je pars du principe que c'est du "jj/mm/aaaa"

tu dois ajouter le nom des feuilles que je ne connaise pas

le code est à place dans le "Thisworkbook"

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
 
Private Sub Workbook_Open()
 
    With ThisWorkbook
 
        If .Worksheets("Nom de la feuille qui contient la cellule date").Range("Cellule qui contient la date") = Format(Now, "dd/mm/yyyy") Then
 
            With .Worksheets("Nom de la feuille où tu prend les infos du mail")
 
                .Range("A5:B5:C55:E5:G5:A6:B6:C66:E6:G6").Select ' la plage de cellules à envoyer
                .EnvelopeVisible = True
 
                With .MailEnvelope
 
                    .Introduction = "Bonjour, merci de relancer le client pour le dossier suivant : "
                    .Item.To = .Range("j6").Value
                    .Item.Subject = " RELANCE DOCUMENT-- "
 
                    .Item.Send
                End With
            End With
        End If
    End With
 
End Sub

[mad01]

Effectivement je suis débutant en la matière, merci beaucoup je vais essayer

[joe.levrai]

non je disais que c'était mon code qui était bourrin
(bon j'avoue, le tiens un peu aussi )


n'oublie pas d'entourer ton code des balises de codes, ce qui permet sur le forum de les afficher avec une mise en forme, c'est plus pratique

[mad01]

Le mien est pire que bourrin lol
J'ai essayé le code mais lorsque j'essaye il ne se passe rien quand je re-ouvre le fichier (en mettant la date du jour dans la cellule recherchée) voici le code :
peut être ai-je fait une erreur :

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
Private Sub Workbook_Open()
 
    With ThisWorkbook
 
        If .Worksheets("CDG").Range("l6") = Format(Now, "dd/mm/yyyy") Then
 
            With .Worksheets("CDG")
 
                .Range("A5:B5:C55:E5:G5:A6:B6:C66:E6:G6").Select ' la plage de cellules à envoyer
                .EnvelopeVisible = True
 
                With .MailEnvelope
 
                    .Introduction = "Bonjour, merci de relancer le client pour le dossier suivant : "
                    .Item.To = ActiveSheet.Range("j6").Value
                    .Item.Subject = " RELANCE DOCUMENT-- "
 
                    .Item.Send
                End With
            End With
        End If
    End With
 
End Sub

[joe.levrai]

j'ai encore dû mal trifouiller sur le format de date

essaye comme ça

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
 
Private Sub Workbook_Open()
 
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Worksheets("CDG")
 
    With Sh
        If CDate(.Range("L6")) = Format(Now, "dd/mm/yyyy") Then
 
            .Range("A5:B5:C55:E5:G5:A6:B6:C66:E6:G6").Select ' la plage de cellules à envoyer
            .EnvelopeVisible = True
 
            With .MailEnvelope
 
                .Introduction = "Bonjour, merci de relancer le client pour le dossier suivant : "
                .Item.To = Sh.Range("j6").Value
                .Item.Subject = " RELANCE DOCUMENT-- "
                .Item.Send
 
            End With
        End If
    End With
 
Set Sh = Nothing
 
End Sub

j'ai testé en écrivant "04/04/2015" dans une cellule, et la macro s'enclenche bien quand j'ai réouvert le classeur

[mad01]

Peux tu m'envoyer ton fichier excel car j'ai une erreur de compilation : membre de méthode ou de données introuvable

[joe.levrai]

j'ai uniquement testé le critère qui permet à la macro de se déclencher, je n'ai pas recrée l'environnement de ton classeur

quelle ligne est en erreur dans ton code ?

[mad01]

Ca serait la ligne Envelope Visible qui est surligné, et la 1ère ligne du code surligné en jaune

[mad01]

C'est bon j'ai trouvé, j'ai supprimé la ligne EnvelopeVisible et ca fonctionne, a quoi servait ce code ?

[joe.levrai]

ah pour ces questions là, je ne te répond pas directement

tu mets ton curseur de souris dessus, et tu clic sur F1 pour obtenir l'aide Excel (c'est un réflexe à avoir au quotidien)

[mad01]

ok merci même si je n'ai pas compris toute l'explication de excel, je vais revoir tout ca,
merci beaucoup de ton aide !!

[mad01]

Bonjour,
J'ai une question subsidiaire sur ma formule afin d'envoyer des mails automatiques. Je voulais savoir s'il etait possible d'y insérer plusieurs conditions, cad par exemple que si la case b2 ou b3 ou b4 = date du jour alors envoyer un mail. Si oui comment procéder?