Commentaires

  1. Avatar de froggystar69
    • |
    • permalink
    Merci bcp pour cette info.

    J'ai un petit soucis lors du lancement du code.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set objMsg = Application.CreateItem(olMailItem)
    avec une erreur "Propriété ou méthode non géré..."

    Auriez vous une idée ?

    EXCEL 2013

    En vous remerciant

    CDT

    Froggy
  2. Avatar de Natach87
    • |
    • permalink
    Bonjour Oliv,

    J'ai bien aimé la deuxième méthode présentée par ton billet, j'aimerai savoir si il est possible de vérifier si les mails envoyés ont été traités par les destinataires ?

    Je sais que c'est faisable en comparant le résultat de l'analyse de la boîte de réception et la boîte d'envoi mais c'est long !!

    Peux tu m'aider ??

    Merci et bravo pour ton travail.
  3. Avatar de Natach87
    • |
    • permalink
    Bonjour Oliv,

    J'ai bien aimé la deuxième méthode présentée par ton billet, j'aimerai savoir si il est possible de vérifier si les mails envoyés ont été traités par les destinataires ?

    Je sais que c'est faisable en comparant le résultat de l'analyse de la boîte de réception et la boîte d'envoi mais c'est long !!

    Peux tu m'aider ??

    Merci et bravo pour ton travail.
  4. Avatar de Oliv-
    • |
    • permalink
    Citation Envoyé par Bouletinos
    Bonjour,

    Quel est l'avantage de cette procédure comparée à celle de Sue Mosher (http://www.outlookcode.com/codedetail.aspx?id=628) ?

    Je ne vois pas la subtilité...

    Merci
    Bonjour,
    Le code initial est effectivement celui de Sue Mosher, c'est un exemple plus complet, avec comment le lancer et comment traiter une action sur un Item.

    S'il y a subtilité, ce serait dans l'utilisation de

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    For i = StartFolder.Items.Count To 1 step -1
    au lieu de
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    For Each objItem In StartFolder.Items
    ce qui permet de supprimer des éléments en n'en zappant aucun.
  5. Avatar de Bouletinos
    • |
    • permalink
    Bonjour,

    Quel est l'avantage de cette procédure comparée à celle de Sue Mosher (http://www.outlookcode.com/codedetail.aspx?id=628) ?

    Je ne vois pas la subtilité...

    Merci
  6. Avatar de joe.levrai
    • |
    • permalink
    Bonjour,

    étant l'auteur de la demande qui a donné lieu à ce billet (et merci encore au passage à Oliv-), je me suis permis de retoucher la fonction MEF_Octet afin d'en réduire le nombre de lignes

    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
    Public Function MEF_Octet_Short(lgValeur As Double) As String
    '---------------------------------------------------------------------------------------
    ' Procédure : MEF_Octet_Short
    ' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
    ' Date      : 25/04/2008
    ' Détail    : Fonction permettant un affichage en octet, kilo, mega ou giga selon valeur passée en paramètre
    
    ' Modif par : joe.levrai
    ' Date      : 25/04/2015
    ' Détail    : conversion des If imbriqués en une boucle While Wend avec utilisation d'un tableau d'unités
    '---------------------------------------------------------------------------------------
    
    Tableau = Array("Oct", "Ko", "Mo", "Go")  ' stockage des unités
    
    While (lgValeur / 1024 > 1) And i < UBound(Tableau)  ' itération des divisions par 1024
        i = i + 1  ' décalage de l'unité
        lgValeur = lgValeur / 1024
    Wend
    
    MEF_Octet_Short = CStr(Round(lgValeur, 2)) & " " & Tableau(i)
    
    End Function