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:
Je vous remercie si vous localisez le problème (et avaez une solution
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 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)
Bonne journée
Partager