Macro save PDF - Excel 2017 - MAC

Bonjour,

J'avais déjà posé la question il y a un moment, restée sans réponse :

Je suis sur Mac - Excel 2017 et j'aimerais trouver la bonne macro pour exporter une feuille en fichier PDF, dans le dossier où est stocké le fichier excel.

Dans le document joint, il y a une macro qui crée un PDF mais le problème, c'est qu'elle place le PDF dans un dossier spécifique et elle n'exporte pas le logo image du fichier.

Pouvez vous m'aider ?

Merci beaucoup !

Marty

Bonjour,

Je n'ai pas de Mac pour tester ... désolé.

En fouillant sur le Net ... ceci pourrait peut-être convenir pour le chemin (celui du fichier en cours).

Pour le logo, je ne sais pas. Sous Windows, le logo suit bien dans le pdf.

ric

Bonjour,

Merci mais je ne vois pas votre macro, pouvez vous la renvoyer ? Merci !

Bonjour,

Je m'excuse de mon étourderie. Des gens sont arrivés à l'improviste et ils m'ont déconcentré.

Voici donc ...

Sub RecordPDF()
    'Ron de Bruin : 29-July-2017
    'Test macro to save the ActiveSheet as pdf with ExportAsFixedFormat
    'Note : if set it save the printarea
    Dim FileName As String
    Dim FolderName As String
    Dim Folderstring As String
    Dim FilePathName As String

    'If my ActiveSheet is landscape, I must attach this line
    'for making the PDF also landscape, seems to default to xlPortait
    ActiveSheet.PageSetup.Orientation = ActiveSheet.PageSetup.Orientation

    'Name of the folder in the Office folder
''''    FolderName = "PDFSaveFolder"    ' changé ceci 
    FolderName = ThisWorkbook.Path   ' pour cela
    'Name of the pdf file
    FileName = ActiveSheet.Name & " " & Format(Now, "dd-mmm-yyyy hh-mm-ss") & ".pdf"

''''    Folderstring = CreateFolderinMacOffice2016(NameFolder:=FolderName)    ' changé ceci 
''''    FilePathName = Folderstring & Application.PathSeparator & FileName        ' et ceci 
    FilePathName = FolderName & Application.PathSeparator & FileName   ' pour cela

    'expression A variable that represents a Workbook, Sheet, Chart, or Range object.
    'the parameters are not working like in Excel for Windows
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    FilePathName, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False

    MsgBox "You find the PDF file in this location : " & FilePathName
End Sub

ric

Merci !

Mais j'ai 2 messages d'erreur que voici en pj...

Vous auriez une idée ?

Bonjour,

Malheureusement, je ne peux pas expliquer ces erreurs, car je n'ai pas accès à des machines MAC pour vérifier le bon fonctionnement.

Je me suis servi de code sur site de https://www.rondebruin.nl/ qui j'ai adapté.

Désolé,

ric

Rebonjour,

Entendu !

Du coup, quelqu'un pourrait m'aider sur cette question ?

Merci d'avance !!!