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

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

Citation:

---

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 ?

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:

---

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:

---

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

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.

Bonjour Menhir

Quand tu dis :

Citation:

---

Peut-être faudrait-il mettre une petite temporisation dans le processus pour un peu calmer le jeu.

---

Tu veux dire mettre des DoEvents ?

Je vais essayer lundi, je dois prendre la main sur une agence...

Je pensais plutôt à un Wait.
https://docs.microsoft.com/fr-fr/off...plication.wait