Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

erreur de débutant sur "if"


Sujet :

VBA Outlook

  1. #1
    Membre du Club
    erreur de débutant sur "if"
    bonjour à tous j'ai un petit code qui me permet d'enregitre des piece jointe là ou je veux, qui marche tres bien, j'ai voulu l'améliorer pour les séparer en fonction de leur nom et j'ai un bug qui dit: " erreur d''exécution 424 objet requis" sur la ligne : if attach.filename
    dite mois que je suis bête et que c'etait tout simple..
    voici mon code
    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
    Dim ObjItem As Object
        Dim ObjMail As Outlook.MailItem
        Dim myolApp As New Outlook.Application
        Dim myOlExp As Outlook.Explorer
        Dim myOlSel As Outlook.Selection
        Dim MsgTxt As String
        Dim x As Integer
        MsgTxt = "Vous devez selectionner un seul mail"
        Set myOlExp = myolApp.ActiveExplorer
        Set myOlSel = myOlExp.Selection
        x = myOlSel.Count
        If x <> 1 Then
           MsgBox MsgTxt
           Exit Sub
        End If
    'ca c'est pour l'afficher
       Set attachs = myOlSel.Item(x).Attachments
     
     
    If attach.FileName Then
     
            For Each attach In attachs
            file = attach.FileName
            attach.SaveAsFile "Z:\SESSIONS\CQP\2020\S67MC_01-2020\region\prescription\" & file
     
            Next
    Else
            For Each attach In attachs
            file = attach.FileName
            attach.SaveAsFile "Z:\SESSIONS\CQP\2020\S67MC_01-2020\region\CV_et_LDM\" & file
     
            Next
    End If
     
        End Sub


    merci beaucoup de votre aide
    ce qui est cool avec DVP c'est qu'il y as a chaque fois une réponse!

    ce qui est pas cool avec DVP c'est qu'a chaque réponse je me sens plus bête...

  2. #2
    Membre du Club
    je me suis corrigé tout seul
    désolé de vous avoir sollicité
    ce qui est cool avec DVP c'est qu'il y as a chaque fois une réponse!

    ce qui est pas cool avec DVP c'est qu'a chaque réponse je me sens plus bête...

###raw>template_hook.ano_emploi###