Pdf endommagé quand envoyé en pièce jointe par VBA
Bonjour,
excusez moi si la question a déjà était posée, mais je ne l'ai pas trouvé.
Sous excel 365
je souhaite envoyer un pdf d'une feuille masquée, le pdf se crée sans soucis et je peux l'ouvrir de mes documents.
Toutefois, le pdf en pièce jointe ne s'ouvre pas "le fichier est endommagé et n'a pas pu être réparé"
voici le code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Sub mail()
'
' mail Macro
'
'
Sheets("compteur").Select
Sheets("Rapport").Visible = True
Sheets("Rapport").Select
Sheets("Rapport").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"rapport comportement.PDF", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Workbooks.Open Filename:="C:\Users\laurent\Documents\rapport comportement.PDF"
Application.Dialogs(xlDialogSendMail).Show
Workbooks("rapport comportement.PDF").Close True
ActiveWindow.SelectedSheets.Visible = False
End Sub |
Je vous remercie si vous localisez le problème (et avaez une solution :) )
Bonne journée
