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

Version imprimable

23/10/2019, 11h02
68cme

2 pièce(s) jointe(s)

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 ?
23/10/2019, 14h40
Oliv-

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/
23/10/2019, 14h41
Oliv-

Citation:

Envoyé par 68cme

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

ctrl+A puis SUPPR
25/10/2019, 08h17
68cme

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

J'ai essayé une partie de ton code sur plus de 2500 éléments sans problème
Code:

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:

Dim objfolder As Folder

25/10/2019, 10h47
Oliv-

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
29/10/2019, 12h30
68cme

[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.
29/10/2019, 12h33
68cme

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' ?
29/10/2019, 14h46
Oliv-

Citation:

Envoyé par 68cme

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 .
29/10/2019, 14h47
Oliv-

Citation:

Envoyé par 68cme

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?

Citation:

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

c'est pareil mais MAPIFolder est déprécié