probleme de piece jointe outlook automatique

[cartus02]

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

 

[JNP]

Re : probleme de piece jointe outlook automatique

Bonjour Cactus02 ,
Vu que tu fais une sauvegarde sous avec

ActiveWorkbook.SaveAs ThisWorkbook.Path & "feuil nc.xls"

pourquoi n'utilises-tu pas le même chemin pour la pièce jointe ?

.Attachments.Add ThisWorkbook.Path & "feuil nc.xls"

Bonne journée

 

[cartus02]

Re : probleme de piece jointe outlook automatique

A vrai dire je ne sais pas je n'ai pas creer le code
et je sais meme plus comment j en suis arrivé la ...
j essaie ta solution et te dis
merci

 

[cartus02]

Re : probleme de piece jointe outlook automatique

bo j'ai changer ca mais c'est mon nom de fichier dela piece jointe qui n'est pas bon et qui se met automatiquement ?
ca me met ca comme erreur:

le format du fichier que vous tentez d’ouvrir est différent de celui spécifié par l’extension de fichier.

meci de ton aide

 

[JNP]

Re : probleme de piece jointe outlook automatique

Re ,
Je viens de tester la macro modifiée comme je pensais, pas de message d'erreur...

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 = "[EMAIL="ddd@dddd"]ddd@dddd[/EMAIL]"
AdresMailCC = "[EMAIL="ddddd@ddddd"]ddddd@ddddd[/EMAIL]"
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 ThisWorkbook.Path & "feuil nc.xls"
.Display
End With
ActiveWorkbook.Close
Kill ThisWorkbook.Path & "feuil nc.xls"
End Sub

Bizarre

 

[cartus02]

Re : probleme de piece jointe outlook automatique

oui je comprend pas a chaque fois ca m'envoi comme nom de piece jointe tout le chemin de la ou se trouve la fiche
et me remet le message d erreur je comprend pas non plus.....

 

[JNP]

Re : probleme de piece jointe outlook automatique

Re ,
Tu as bien testé avec le code que j'avais remis ?
A +

 

[cartus02]

Re : probleme de piece jointe outlook automatique

OUI ca m'ecris toujours la meme chose

 

[MJ13]

Re : probleme de piece jointe outlook automatique

Bonjour Cartus, JNP

Cartus: as tu essayé d'inverser ces 2 lignes?

Set NewB = ActiveWorkbook
ActiveWorkbook.SaveAs ThisWorkbook.Path & "feuil nc.xls"

en

ActiveWorkbook.SaveAs ThisWorkbook.Path & "feuil nc.xls"
Set NewB = ActiveWorkbook

 

[cartus02]

Re : probleme de piece jointe outlook automatique

toujours pareil..............

 

[cartus02]

Re : probleme de piece jointe outlook automatique

en fait il faudrai qu la piece jointe se nomme automatiquement comme le fichier

 

[JNP]

Re : probleme de piece jointe outlook automatique

Re ,
Essaie voir avec ce code

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
ActiveWorkbook.SaveAs "C:\Copie de " & ThisWorkbook.Name
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 "C:\Copie de " & ThisWorkbook.Name
.Display
End With
ActiveWorkbook.Close
Kill "C:\Copie de " & ThisWorkbook.Name
End Sub

A +

 

[cartus02]

Re : probleme de piece jointe outlook automatique

Bonjour,

peut tu ragarder car ca bug sur cette phrase:

ActiveWorkbook.SaveAs "C:\Copie " & ThisWorkbook.Name

merci de ton aide

 

[JNP]

Re : probleme de piece jointe outlook automatique

Bonjour ,
Bête question : tu as bien ton disque dur en C: et les droits d'administration ?
A +

 

[JNP]

Re : probleme de piece jointe outlook automatique

Re ,
Attention, il est impératif que ton classeur soit enregistré en version 97-2003, sinon ça beugue. Une fois qu'il est dans cette version, quitte tout (même Excel) et rouvre le avant de tester la macro.
A +