Bonjour tout le monde,
voilà j'ai cette erreur qui se produit à l'exécution de ce bout de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 openReport vrtEtat, vrtRequest, clauseWhere, acHidden DoCmd.OutputTo acOutputReport, vrtEtat, acFormatRTF, directoryReportOut + pObjReportParam.nomFichier, False DoCmd.SendObject acSendReport, vrtEtat, acFormatRTF, pObjReportParam.mailTo, , , vrtMailObjet + " " + pObjReportParam.nomUo + " (UO Id : " + CStr(pObjReportParam.UOid) + ")", vrtMailMessage, False DoCmd.Close acReport, vrtEtat
l'erreur se produit à la ligneC'est un programme que j'ai repris, donc je n'ai pas écris le code et puis biensur c'est pas forcément très bien commenté... et de plus mes connaissances en VBA sont très basiques. (mais bon c'est pas trop le problème, quand on a appris divers langages, ça reste assez compréhensible)
Code : Sélectionner tout - Visualiser dans une fenêtre à part DoCmd.SendObject acSendReport, vrtEtat, acFormatRTF, pObjReportParam.mailTo, , , vrtMailObjet + " " + pObjReportParam.nomUo + " (UO Id : " + CStr(pObjReportParam.UOid) + ")", vrtMailMessage, False
Ce que je peux vous dire c'est que l'erreur n'apparait pas en mode "pas à pas", mais par contre si je lance l'application bout à bout l'erreur se manifeste.
j'ai vu ça sur internet http://support.microsoft.com/kb/244695/fr , mais je comprend pas trop les solutions.
Si vous avez besoin d'info supplémentaire, je vous les fournirais dès que possible.
Merci d'avance
Partager