macro save PDF - excel 2017 - MAC

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
k
kinescopage
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 16 février 2018
Version d'Excel : Mac 2016

Message par kinescopage » 1 août 2018, 12:22

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
FICHIER EXCEL16.xlsm
(46.88 Kio) Téléchargé 32 fois
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'717
Appréciations reçues : 224
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 1 août 2018, 15:00

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
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
k
kinescopage
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 16 février 2018
Version d'Excel : Mac 2016

Message par kinescopage » 1 août 2018, 18:22

Bonjour,

Merci mais je ne vois pas votre macro, pouvez vous la renvoyer ? Merci !
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'717
Appréciations reçues : 224
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 2 août 2018, 00:40

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
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
k
kinescopage
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 16 février 2018
Version d'Excel : Mac 2016

Message par kinescopage » 2 août 2018, 09:33

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

Vous auriez une idée ?
Capture d’écran 2018-08-02 à 09.32.46.png
Capture d’écran 2018-08-02 à 09.32.51.png
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'717
Appréciations reçues : 224
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 2 août 2018, 11:42

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
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
k
kinescopage
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 16 février 2018
Version d'Excel : Mac 2016

Message par kinescopage » 2 août 2018, 12:08

Rebonjour,

Entendu !

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

Merci d'avance !!!
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message