Pb avec une procédure non appelée qui fait planter Excel

**mouftie** · 02/09/2020, 16h56

Bonjour,

Dans mon projet, j'ai un module qui me sert à envoyer des mails aux utilisateurs et qui est appelé par d'autres fichiers Agences (Application.run)

J'ai un autre module qui me permet d'alimenter les fichiers Agences par des données. Il consiste à ouvrir des fichiers de données, puis d'ouvrir chaque agence et de lui coller les données la concernant ; fermer l'agence, ouvrir la suivante, etc.

De temps en temps, lorsque je lance la procédure d'alimentation, cela se déroule très bien pour quelques fichiers agences et d'un coup Excel plante et se rouvre sur un classeur vierge (ou ne se rouvre pas).

Par contre, il me semble que si je neutralise la macro d'envoi de mail (par des apostrophes) il y aurait moins de problème.

Est-ce que quelqu'un peut me conseiller sur qqch à faire ?

Merci à ceux qui ont lu le SOS jusqu'au bout sans me prendre pour une folle... Je précise que tous les mois, il y a 20 personnes qui utilisent ces fichiers en France et que seuls 1 ou 2 ont le pb, et pas forcément les mêmes personnes

**Menhir** · 02/09/2020, 18h09

Envoyé par mouftie

Par contre, il me semble que si je neutralise la macro d'envoi de mail (par des apostrophes) il y aurait moins de problème.

Quelle est la nature de cette macro ? Comment est-elle déclenchée ? Est-ce une macro évènementielle ?

**mouftie** · 02/09/2020, 18h23

Bonsoir Menhir

J'ai mal rédigé mon message le module d'envoi de mail se trouve dans les fichiers agences
Dans ce module, il y a des fonctions :

une pour reconstituer une adresse mail (ex NOM COMPOSE Prénom Composé => prenom-compose.nom-compose@xxx.fr)
Une pour passer en Html des cellules

et une procédure normal de type Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub EnvoiCourriel()
'Pour des conseils, voir : http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim rng As Range, OutApp As Object, OutMail As Object
Dim Fl As Worksheet, NbLg As Integer, Ht As Integer
Dim DestAgt As String, cc As String
Application.ScreenUpdating = False
If Sheets("Données").Visible = False Then Call DeProtegAll
'1 on crée une nouvelle feuille pour le corp du courriel
...

Le sub EnvoiCourriel est déclencher après le remplissage d'un formulaire saisie selon un certain résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If TbxStatu = "Non Conforme" Then
        ThisWorkbook.Save
        Call EnvoiCourriel
    End If  'XXXX

Ce formulaire n'est jamais activé lors de la mise à jour des données, ce ne sont pas les même personnes qui font ces actions, le formulaire n'est pas activé lors de la mise à jour.

Merci pour ton aide

**Menhir** · 03/09/2020, 08h57

Si ta macro d'envoi d'e-mail est déclenché "à la main", je ne vois pas comment elle pourrait perturber le fonctionnement d'une autre macro.

Par contre, enchainer les ouvertures/sauvegarde peut entrainer des problèmes en déclenchant des instructions avant que la précédente soit terminée.
Peut-être faudrait-il mettre une petite temporisation dans le processus pour un peu calmer le jeu.
Mais c'est un type de problème difficile à identifier et à solutionner, d'autant plus si on doit le faire à distance sans voir ce qui se passe à l'écran. Ce que je décris là est donc sans aucune garantie, c'est juste une hypothèse.