probleme de piece jointe outlook automatique

bonjour,


j'ai cree sur excel un questionnaire avec des cases a cocher et lorsque la personne rempli cette fiche et coche sur une case un e-mail rempli s'affiche avec des destinataires - il n'a plus qu'a envoyer-

ce questionnaire n'aura jamais le meme nom car le premier sera enregistre sous 001
le deuxieme 002 ect... mais la feuille s'appellera toujours pareil.

Voila mon soucis : tout marche a merveille (j'en etais d'aileurs tres fiere) mais quand le destinataire recoit le message avec la piece jointe celle-ci s'ouvre sans les cases cochées.

j'ai remarqué que lors de l'envoi du mail si je renomme la fiche comme celle qui doit etre joint ca marche

donc en fait je pense que le probleme vient du nom de la piece jointe qui ne se met pas a jour automatiquement ????
voici le code que j'ai :

Public Sub EnvoiMailOutlook()
Dim OutApp As Object, OutMail As Object, NewB As Workbook
Dim AdresMail As String, AdresMailCC As String, AdresMailBCC As String
Dim Sujet As String, Msg As String
AdresMail = "ddd@dddd"
AdresMailCC = "ddddd@ddddd"
Sujet = "ouverture d'une fiche de non conformité"
Msg = "une non conformité à été détectée"
ActiveSheet.Copy
Set NewB = ActiveWorkbook
ActiveWorkbook.SaveAs ThisWorkbook.Path & "feuil nc.xls"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error GoTo 0
With OutMail
.To = AdresMail
.CC = AdresMailCC
.BCC = AdresMailBCC
.Subject = Sujet
.Body = Msg
.Attachments.Add NewB.FullName
.Display
End With
ActiveWorkbook.Close
Kill ThisWorkbook.Path & "feuil nc.xls"
End Sub



encore merci