Discussion :

[fragglerick]

Bonsoir,

J'utilise tous les jours un fichier (Master vierge) que j’enrichis et envoie automatiquement par mail via un bouton.
Je ne comprends pas pourquoi ce dernier est reçu vierge de données.
Je ne suis pas très à l'aise avec VBA donc si quelqu'un peut m'aider je l'en remercie par avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'Récupère le fichier actif
 MonFichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ""
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.To = "toto@wanadoo.fr" 'Destinataires
  MonMessage.Attachments.Add MonFichier 'Ajout de la pièce jointe
  MonMessage.Subject = "Suivi du : " & Range("B4")  ' je récupère la date
  MonMessage.Body = " Bonjour,  " & vbCrLf & vbCrLf & _
  " Ci-joint le suivi du jour" & vbCrLf & vbCrLf & _
  " Monsieur : " & Range("B6") ' je récupère le nom 
  MonMessage.Send  'Afficher au lieu d'envoyer directement = Display
  Set MonOutlook = Nothing 'déchargement de l'objet Outlook
 
Chemin = ActiveWorkbook.Path
 
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & " Suivi du " & Range("B4")
Application.Quit
End If
End Sub

[zenpbb]

Bonjour,

Ne faudrait-il pas sauvegarder ton fichier (SaveAs en ligne 16) AVANT d'alimenter la variable MonFichier (ligne 2) ? Cela éviterait probablement d'envoyer ton "Master vierge" au lieu de ton fichier personnalisé.

[fragglerick]

Tout simplement ...

Merci beaucoup zenpbb !

Bonne soirée.