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" [OL-365]


Sujet :

VBA Outlook

  1. #1
    Membre du Club
    Homme Profil pro
    incompétent têtu
    Inscrit en
    novembre 2013
    Messages
    83
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : incompétent têtu
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2013
    Messages : 83
    Points : 54
    Points
    54
    Par défaut 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
    Homme Profil pro
    incompétent têtu
    Inscrit en
    novembre 2013
    Messages
    83
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : incompétent têtu
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2013
    Messages : 83
    Points : 54
    Points
    54
    Par défaut 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...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. question d'un débutant sur la gestion des erreurs en VBA
    Par David1259 dans le forum VBA Access
    Réponses: 1
    Dernier message: 03/01/2009, 13h43
  2. [Débutant] Erreur de cast sur QOBJECT
    Par Somato dans le forum Débuter
    Réponses: 7
    Dernier message: 25/04/2008, 17h41
  3. [débutant] les quotes " et ' pour 3 codes différents
    Par Christophe93250 dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 21/03/2007, 22h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo