Envoyer une feuille masquée par mail
M
Bonjour
je souhaite envoyer une feuille masqué par mail mais cela ne fonctionne pas
comment puis je résoudre ce problème
des idées svp
merci
voila mon code
Dim Destinataires(1) As String, Sujet As String
Dim Fichier As String
Dim AccuseReception As Boolean
Fichier = Format(Range("D4"), "yyyy-mm-dd") & " " & "Rapport L7" & " " & Range("D5") & ".xls"
Destinataires(1) = "xxxxxx75@gmail.com"
Sujet = Rapport & " " & Range("D4") & " " & Range("D5")
AccuseReception = True
ThisWorkbook.Sheets("Rapport de poste").Copy
ThisWorkbook.Sheets("Rapport de poste").Visible = 0
ActiveWorkbook.SaveAs Filename:=Fichier
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close FalseHello,
Quel est le message d'erreur ?