Discussion :

[jinane13]

Bonjour,
s'il vous plais j'aimerai que quelqu'un un m'écrit un macro excel qui envoie un message automatiquement a partir une cellule. je vais être plus claire.
en fait c'est un fichier excel (suivi de projets), on a quatre colonne la première renvoi a un projet, la deuxième est la date d envoi du projet a un organisme pour l'approuver ou non, la troisième est la date de retour et enfin la dernière est le nombre de jours (la différence entre AUJOURDHUI() et la date d envoi) en cas ou on a pas la date de retour. le macro devra se déclencher si une des cellule de cette quatrième colonne dépasse 20 jours elle doit envoyer un message a une email bien précis. le contenu du mail devra contenir "le nombre de jour du projet qui correspond a la même cellule a dépassé 20 jours". enfin la boite de messagerie utilisé est lotus note. j'espère que je suis bien claire. et merci d'avance

[Invité]

Bonjour

s'il vous plais j'aimerai que quelqu'un un m'écrit un macro excel qui envoie un message automatiquement a partir une cellule

DVP est un forum d'entraide et non pour faire tous le travail des autres, merci d'abord de regardes cela :

Lotus

Philippe

[jinane13]

merci pour votre aide je vais utuliser ce macro.mais s'il vous plait pouvez vous me dire ou je peux placer cette condition:

Code :

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

1
2
3
4
5
      dim lig as long, drlig as long
       drlig= range ("A"  &lig).value >20 then 
       msgBox "les jours du projet a dépassé 20 jours " :"&lig
end if
Next

[Philippe Tulliez]

Bonsoir,
Il me semble difficile au vu du peu de lignes de code que tu donnes de te donner une réponse.

[patricktoulon]

bonjour corona et philippe

jinane 13
je suis parfaitement d'accord avec phillippe on est pas la pour faire le travail des autres
et quand on demande le code déjà écrit pour voir si l'on peut t'aider
çà n'est pas la peine de copier coller n'importe quoi

bien que dans tes trois lignes tu a résolu le problème de comptage de lignes


regarde du coté de la fonction "datediff" pour l'écart de date
ensuite pour lotus tu a des pistes dans la faq
au plaisir

[jinane13]

bonjours
Monsieur patrick comme j'ai deja explique a monsieur philipe je vous ai pas demande de faire mon travail c juste une partie qu'il me faut pour faire mon projet. je m'excuse de ne pas etre capable d'ecrire un programme tout d'abord ce language sera etudie jusqu'a la prochaine année. ensuite je suis en stage de decouverte et on m'a demander de faire une application ou j'ai besoin de ce macro. je me suis adressé a ce forum pour m'aider et pas pour me faire mon travail. il m'ai dificille de comprendre la philosophie de ce language c a d ou place les fonction la declaration.

voila jai réfelechi a faire une matrice en sein de ce macro:

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
52
53
54
55
56
57
58
59
60
61
62
63
64
'Envoi d'un mail avec Lotus Notes
'Subject : sujet du mail
'Attachment : nom d'une pièce jointe
'Recipient : adresse e-mail du destinataire principal
'ccRecipient : destinataire en copie
'bccRecipient : destinataire en copie invisible
'BodyText : corps du mail
'SaveIt : mettre à True pour que le mail soit sauvegardé
'Password : mot de passe
 
Public Sub SendNotesMail(ByVal Subject As String, ByVal Attachment As String, _
                         ByVal Recipient As String, ByVal ccRecipient As String, _
                         ByVal bccRecipient As String, ByVal BodyText As String, _
                         ByVal SaveIt As Boolean, ByVal Password As String)
 
    Dim Maildb As Object      'La base des mails
    Dim UserName As String    'Le nom d'utilisateur
    Dim MailDbName As String  'Le nom de la base des mails
    Dim MailDoc As Object     'Le mail
    Dim AttachME As Object    'L'objet pièce jointe en RTF
    Dim Session As Object     'La session Notes
    Dim EmbedObj As Object    'L'objet incorporé
 
    'Crée une session notes
    Set Session = CreateObject("Notes.NotesSession")
 
    '*** Cette ligne est réservée aux versions 5.x et supérieur : ***
    Session.Initialize (Password)
 
    'Récupère le nom d'utilisateur et crée le nom de la base des mails
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
 
    'Ouvre la base des mails
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Not Maildb.ISOPEN Then Maildb.OPENMAIL
 
    'Paramètre le mail à envoyer
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.CopyTo = ccRecipient
    MailDoc.BlindCopyTo = bccRecipient
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
 
    'Prend en compte les pièces jointes
    If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
 
    'Envoie le mail
    MailDoc.PostedDate = Now()
    MailDoc.SEND 0, Recipient
 
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

cette matrice indiquera dans le message la ligne ou le nombre de jours a dépasse 20 jours.
j'ai pensé au tableau mais je n'ai trouvé que la déclaration, je ne sais pas comment le remplir.