IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

Outlook Discussion :

Macro VBA - Erreur d'exécution 430 sous condition


Sujet :

Outlook

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur service Technique
    Inscrit en
    Janvier 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Territoire de Belfort (Franche Comté)

    Informations professionnelles :
    Activité : Ingénieur service Technique
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2018
    Messages : 4
    Points : 1
    Points
    1
    Par défaut Macro VBA - Erreur d'exécution 430 sous condition
    Bonjour,

    Sous MS Outlook pour Office 365, je classe mes emails entrants ou sortants dans une structure hiérarchisée, avec dossiers, sous-dossiers en autant de niveaux que nécessaire.
    Je m'intéresse à la taille individuelle de chacun de ces dossiers / sous-dossiers.
    J'ai écrit une macro qui fait ce travail en appelant une fonction que j'ai également écrite, et qui me pose un problème que je n'arrive pas à résoudre.
    Lorsque je sélectionne un dossier contenant moins de 255 (??? Valeur caractéristique s'il en est) emails tout se passe comme prévu. A 256 et plus, l'exécution s'arrête sur une erreur d'exécution 430, 'La classe ne gère pas Automation ou l'interface attendue'. Je ne comprends même pas ce que ça signifie.
    Voir les pièces jointes pour le message d'erreur, le code de la fonction avec l'instruction incriminée.
    Quelqu'un pourrait-il m'expliquer et me corriger ? Merci d'avance.

    C. MERCEY

    PS : Comment effacer le contenu de la fenêtre 'Exécution' par macro ?
    Images attachées Images attachées   

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    et tu sur que cela vienne de ta valeur i qui passe au dessus de 255 ?
    dans un dossier tu peux avoir autre chose que des mails, c'est peut être cela le problème

    voici une solution que j'ai faite.
    https://www.developpez.net/forums/bl...bal-exchanges/

  3. #3
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Citation Envoyé par 68cme Voir le message

    PS : Comment effacer le contenu de la fenêtre 'Exécution' par macro ?
    ctrl+A puis SUPPR

  4. #4
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur service Technique
    Inscrit en
    Janvier 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Territoire de Belfort (Franche Comté)

    Informations professionnelles :
    Activité : Ingénieur service Technique
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2018
    Messages : 4
    Points : 1
    Points
    1
    Par défaut Macro VBA - Erreur d'exécution 430 sous condition
    Bonjour Oliv,
    Et merci pour tes réponses.
    Pour le sujet Erreur 430, après vérification, je confirme que les 255/256 objets du dossier sont bien de simples emails.
    Je vais tâcher de trouver un peu de temps ce week-end pour regarder le code que tu m'as proposé. Merci.
    Meilleures salutations.
    68cme

  5. #5
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    J'ai essayé une partie de ton code sur plus de 2500 éléments sans problème
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub test()
    Dim i As Long
    Dim objfolder As MAPIFolder
    Set objfolder = ActiveExplorer.CurrentFolder
     
    For i = 1 To objfolder.Items.count
    Debug.Print i & vbTab & objfolder.Items.item(i).Size
    Next i
    End Sub
    il vaut mieux utiliser
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim objfolder As Folder

  6. #6
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    En cherchant rapidement sur Google l'erreur mentionnée, j'ai trouvé cela
    https://www.developpez.net/forums/d1...face-attendue/
    il est également question de problèmes de versions, tu peux donc vérifier si tu as appliqué toutes les mises à jour windows et office

  7. #7
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur service Technique
    Inscrit en
    Janvier 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Territoire de Belfort (Franche Comté)

    Informations professionnelles :
    Activité : Ingénieur service Technique
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2018
    Messages : 4
    Points : 1
    Points
    1
    Par défaut [OL-365] Macro VBA - Erreur d'exécution 430 sous condition - Fenêtre d'exécution
    Certes, mais il s'agit alors d'interactions 'au clavier'. Je recherche à faire la même chose dans une macro. En fait mon but est de faire le ménage dans la fenêtre d'exécution dès le début de l'exécution de la macro en cours (qui fait autre chose), afin que la fenêtre d'exécution soit 'propre' et ne contiennent plus que des informations résultant de la dernière exécution. J'ai tenté 2 ou 3 approches, en particulier avec SendKeys, mais je ne suis pas content du résultat, pas toujours stable. Et puis je voudrais éviter le recours aux SendKeys.

  8. #8
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur service Technique
    Inscrit en
    Janvier 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Territoire de Belfort (Franche Comté)

    Informations professionnelles :
    Activité : Ingénieur service Technique
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2018
    Messages : 4
    Points : 1
    Points
    1
    Par défaut
    Bon, je n'ai pas beaucoup progressé depuis nos derniers échanges. Mais ta macro Test() plante aussi chez moi. Le problème est donc local. Je vais repartir de 0 en créant un dossier de tests spécifiques, avec 25 mails que je valide, puis j'augmenterai le nombre par copier / coller.

    Quelle différence entre 'Dim objfolder As MAPIFolder' et 'Dim objfolder As Folder' ?

  9. #9
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Citation Envoyé par 68cme Voir le message
    Certes, mais il s'agit alors d'interactions 'au clavier'. Je recherche à faire la même chose dans une macro. En fait mon but est de faire le ménage dans la fenêtre d'exécution dès le début de l'exécution de la macro en cours (qui fait autre chose), afin que la fenêtre d'exécution soit 'propre' et ne contiennent plus que des informations résultant de la dernière exécution. J'ai tenté 2 ou 3 approches, en particulier avec SendKeys, mais je ne suis pas content du résultat, pas toujours stable. Et puis je voudrais éviter le recours aux SendKeys.
    SendKeys EST LA SEULE solution .

  10. #10
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Citation Envoyé par 68cme Voir le message
    Bon, je n'ai pas beaucoup progressé depuis nos derniers échanges. Mais ta macro Test() plante aussi chez moi. Le problème est donc local. Je vais repartir de 0 en créant un dossier de tests spécifiques, avec 25 mails que je valide, puis j'augmenterai le nombre par copier / coller.
    as tu essayé de réparer OFFICE ? Ou de vérifier les MAJ?

    Quelle différence entre 'Dim objfolder As MAPIFolder' et 'Dim objfolder As Folder' ?
    c'est pareil mais MAPIFolder est déprécié

Discussions similaires

  1. [XL-2007] VBA : Erreur d'exécution
    Par pascal4782 dans le forum Excel
    Réponses: 4
    Dernier message: 10/04/2011, 11h07
  2. [XL-2007] VBA : Erreur d'exécution
    Par pascal4782 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 08/04/2011, 22h27
  3. VBA Erreur d'exécution '459' sur un userform
    Par micom59 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 28/02/2009, 21h12
  4. [VBA-E]executer "du code" sous conditions
    Par Echizen1 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 13/06/2006, 21h02

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