Discussion :

[devdas94]

Bonjour,

Je suis un débutant sur Excel donc ne m'en voulait pas trop si je fait des erreurs.

J'ai développé une Macro sur Excel qui va envoyé un mail sur Outlook à certaine condition.

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
Sub Transfert()
    Dim Plage_de_recherche As Range ' correspond à la plage de recherche
    Dim Valeur_cherchée As String ' correspond à ce que l'on cherche
    Dim Trouvé As Range ' c'est le résultat de la recherche
    Dim La_colonne As Integer ' colonne du mois où il y a "ok"
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
 
    Valeur_cherchée = "ORANGE" 'définition de ce que l'on cherche
    Set Plage_de_recherche = Sheets("Feuil1").Range("J2:J58") ' définition de la plage de recherche
    Set Trouvé = Plage_de_recherche.Find(what:=Valeur_cherchée, LookIn:=xlValues) ' on effectue la recherche : xlvalues car ok est le résultat d'une formule
    If Trouvé Is Nothing Then ' si Trouvé = rien c'est qu'on a rien trouvé...
        ' ce qu'il y a à faire si on ne trouve pas "OK"
    Else
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = "Bonjour Michel," & vbCrLf & _
    " " & vbCrLf & _
    "La date de péremption de certain documents approche," & vbCrLf & _
    "Vérifiez si une nouvelle version à été mise en ligne." & vbCrLf & " " & vbCrLf & _
    "Cordialement," & vbCrLf & _
    "Excel"
 
    On Error Resume Next
    With OutMail
        .To = "armand.n@outlook.com"
        .CC = ""
        .BCC = ""
        .Subject = "MISE A JOUR DES DOCUMENTS"
        .Body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
        ' ce qu'il faut faire si on trouve
    End If
End Sub

Je souhaite lancé cette macro à partir d'Outlook avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Application_Startup()
 
Dim ExApp As Excel.Application
On Error Resume Next
Set ExApp = GetObject(, "Excel.Application")
If Not ExApp Is Nothing Then
ExApp.Run "'C:\Users\z003zj4s\Desktop\MICHEL PACQUET\Classeur3.xlsm'!Transfert"
End If
ExApp.Workbooks("CLASSEUR3.XLSM").Close
ExApp.Close
 
End Sub

Mais cela me donne deux erreur:

1-ERREUR 429

2-après l’exécution,mon fichier "Classeur3" est seulement en lecture seule,je ne peux plus le modifier,il me dise que le fichier est déjà ouvert(dans Outlook je pense)

Pourtant quand Excel et Outlook sont ouvert, le lancement de la macro depuis Outlook qui lance la macro Excel qui envoi les mails.. fonctionne a merveille,
j'aimerais dans un premier temps savoir si on peut ouvrir Outlook qui lance une macro automatiquement quelque secondes après.. ?
et je ne comprend pas pour quand j'ouvre le fichier,il est qu'en lecture seule.

Merci d'avance.

[Menhir]

Doublon : https://www.developpez.net/forums/d1...rture-outlook/