Evolution tableau

tu as repéré quelque chose ou je continue ?

T'embête pas à prendre des photos quand ça marche.

Teste jusqu'à la fin. Et si ça bug, tu réinitialises et tu captures à partir du moment où ça bloque.

En tout cas, pour l'instant, ça s'annonce bien. Outlook et le mail sont instanciés, et la PJ est répertorié.

C'est un suspens insoutenable pour moi là^^. J'ai hâte que tu passes le bloc With

ok mais je ne vois et ne sais pas ce qui va me permettre de savoir ou il y a un bug

alors dit moi ce qui va me permettre de la trouvée

ouais je comprend

je suis dans le même cas que toi

A chaque F8, tu te trouves sur une ligne.

Si tu passes cette ligne normalement, c'est OK. Si tu te retrouves soudainement après la ligne SiErreur, c'est qu'il y a une erreur au niveau de la ligne ou tu te trouvais juste avant.

Et si c'est une erreur plus importante, il y aura besoin de déboger carrément.

Mais là, j'ai l'impression que ça va aller.

ok mais la je me retrouve avec la boite de dialogue "echec de l'envoi du mail "

je continue ?

Oh, c'est chiant.

Tu as vu où tu te trouvais ?

Là, il faut recommencer : F5 depuis Arrete, puis F8 à répétition à partir de PJ_RECAP ....

Sauf qu'avant, tu vas sur la ligne "On error goto SiErreur" et tu la passes en commentaires, en rajoutant une apostrophe avant.

Et quand tu vois le bug, tu prends une capture.

j'ai continué et je me retrouve sur la ligne "Sub ArreteStockJournalier()"

je continue ?

L'erreur est au niveau de ObjMail sûrement.

Il faudra probablement faire des modifs sur la ligne Set ObjMail

je me retrouve avec voir photo

Je ne vois pas où se situe l'erreur.

Est-ce que tu pourrais essayer de recommencer avec Set ObjMail = ObjOutlook.CreateItem(1) ou avec Set ObjMail = ObjOutlook.CreateItem

donc avec Set ObjMail = ObjOutlook.CreateItem(1)

j'obtiens voir photo

et avec Set ObjMail = ObjOutlook.CreateItem

j'obtiens voir photo

Bonjour toutes et tous et en essayant comme ceci

Dim ObjOutlook As Object, oBjMail As Object

Set ObjOutlook = CreateObject("Outlook.Application")
Set oBjMail = ObjOutlook.CreateItem(0)

crdlt,

André

Bonjour Andre,

Je crois qu'on a déjà essayé de la sorte. En fait, je pense qu'on rencontre un problème au niveau de l'instanciation d'Outlook. Il faut gérer s'il est ouvert ou non.

J'espère que votre solution fonctionnera.

Sinon, Laurent, j'ai fait un nouvel essai en me basant sur un code trouvé sur un autre forum.

Bonjour André13

merci de votre aide mais je me retrouve le cul entre deux chaises ...

3GB a été d'une grande aide jusque la et j'aurai voulu que l'on aboutisse ensemble au projet

a moins qu'il me permette de voir avec vous

sinon 3GB j'ai ouvert ton nouveau fichier donc j'ai rentré une nouvelle sortie dans journal puis dans état j'ai envoyer mail

j'ai eu la boite de dialogue "l'édition du dernier stock connu ..." j et cliquer oui

deuxième boite de dialogue " voulez vous joindre ..." j'ai cliquer oui

je me retrouve a lui envoyer le pdf ...

malheureusement je me retrouve encore avec " echec envoi du mail"

Il y a aucun problème, le but est de parachever le fichier.

Comme je t'ai dit, je ne suis pas un expert pour Outlook et je ne peux pas tester donc si André a la solution, n'hésite pas à suivre ces conseils.

En attendant, je regarde quand même si j'ai pas touché des lignes dans le code et je reviens vers toi.

ok merci 3GB

je vais voir avec André13 si il peut testé le fichier de son coté