Discussion :

[pepsister]

Bonjour,

Voila j'ai vu que l'on pouvait créer une règle avec pour paramètre la date de réception des mails. Le problème est qu'il faut entrer une fourchette de date et moi seulement les jours m’intéressent.
Je m'explique:
si le mail est reçu entre le mardi et le samedi inclus alors j'extrais la pièce jointe sinon je peux supprimer le mail.
J'ai codé en vba l'extraction de pièce jointe . Le script est appelé via une règle sur le destinataire et l'objet du mail.
Je voudrais rajouter ma condition sur les jours soit dans la règle (ce qui me parait impossible) soit dans le code vba mais là c'est le flou total.
Si quelqu'un peut me donner un coup de main?

Merci beaucoup,

[pc75]

Bonjour,

Je pense que la fonction WeekDay() doit répondre à ta demande.

[pepsister]

oui j'ai déjà regardé cette fonction, mais comment récupérer la date de mon mail?
j'ai essayé ceci pour récupérer la date de mon mail:

Code :

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

1
2
 
 DateRecep = MyMail.CreationTime

et ensuite pour tester du mardi au vendredi je pensais plutot a cela

Code :

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

1
2
 
If Weekday(laDate, vbTuesday) < 6 Then

[pc75]

Re,

La date de réception du mail c'est :

Code :

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

1
2
 
MyMail.receivedTime

[pepsister]

bon ca marche par contre je rencontre un autre problème.

1/ Je vérifie que la date de réception du mail est entre mardi et samedi => OK

2/Si c'est le cas, j'enregistre les pièces jointes => OK

3/et je lance ma macro Excel en passant en paramètres la date de réception => La je n'y arrive pas.
je lance excel via cette ligne de commande:

Code :

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

1
2
 
proc = Shell("C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE /cmd/DateExcel C:\projets\test_pegase.xlsm", vbNormalFocus)

autant le lancement excel marche et le lancement de la macro à l'ouverture d'excel aussi par contre il ne récupère pas le paramètre.
Dans le 'ThisWorkbook' de mon fichier Excel j'ai ajouté un bout de code pour récupérer les paramètres mais impossible, voici le code dans mon excel

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
 
Private Sub Workbook_Open()
Dim macmdline As Variant
Dim monparam As Variant 'déclare une variable
 
macmdline = GetCmd 'affecte la valeur de la ligne de commande
    If Not IsNull(macmdline) Then 'si la variable est nulle
        If Len(macmdline) > 0 Then 'on s'assure qu'il y a eu une ligne de commande passée
            If InStr(macmdline, "/cmd") > 0 Then
                macmdline = Replace(macmdline, ThisWorkbook.FullName, "", , , vbTextCompare)
                monparam = Split(macmdline, "/cmd")
                Debug.Print Mid(monparam(1), 2, Len(monparam(1)) - 3)
            End If
        End If
    End If
Bouton1_Clic
End Sub

[pc75]

Re,

Il faut "sortir" la variable de la chaine de caractères :

Code :

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

1
2
 
proc = Shell("C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE /cmd/" & DateExcel & "C:\projets\test_pegase.xlsm", vbNormalFocus)

[pepsister]

en fait je trouve des solutions où l'on passe en paramètre une valeur précise.
Par exemple si je voulais tout le temps récuperer la date du 07/07, je pourrais mettre:

Code :

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

1
2
 
proc = Shell("C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE /cmd/20170707 C:\projets\test_pegase.xlsm", vbNormalFocus)

Le fait de vouloir récupérer une variable de mon code ca ce n'est pas possible, c'est cela?
Je n'ai donc aucun moyen de faire ça?

[pepsister]

Désolé je n'avais pas vu ta réponse.

J'ai fais ce que tu as dis et en fait ca ne lance pas mon fichier excel. Ca lance excel et ouvre un nouveau fichier. Ca ne prend en compte que le premier paramètre finalement du shell.

[Oliv-]

Bonjour,
tu peux faire autrement, en ouvrant ton fichier de macro et en lançant la macro avec des parametres

Code :

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

1
2
3
4
5
         Set wbExcel = appExcel.Workbooks.Open(Repertoire & "MACRO_EDI_ado.xls")
        Set wsExcel = wbExcel.Worksheets(1)
        wbExcel.Activate
        appExcel.WindowState = xlMaximized
        appExcel.Run wbExcel.Name & "!ouverture", Left(CStr(Date), 10)

et dans la macro j'ai

Code :

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

1
2
3
Function ouverture(Optional DateRecu As Date)
...
end function

[pepsister]

j'ai trouvé, il fallait juste un espace supplémentaire après le troisième guillemet.

Merci