XL pour MAC Macro simple Enregistrer sous PDF dans Bureau avec même nom

Marowak · 10 Août 2020

Bonjour à tous,

J'utilise Excel 2016 pour Mac, version 16.16.24.

Je vous sollicite car j'aurais grand besoin d'une macro pour me simplifier la vie au quotidien.

Je dois enregistrer des documents Excel (ou Word) au format .pdf sur mon bureau de manière extrêmement récurrente.

Etant un noob, mais connaissant tout de même l'existence des macros, j'aurais voulu savoir si vous aviez une idée pour créer une macro utilisable sur tous types de documents (pas un classeur spécifique) et qui fasse les choses suivantes:

- Clic sur Enregistrer sous
- Dossier de destination : Bureau
- Format du fichier : PDF
- Nom du fichier : le même que le fichier Excel (ou Word) source

Merci par avance de votre aide !

Bien à vous,
Marowak

job75 · 10 Août 2020

Bonjour Marowak, bienvenue sur XLD,

Téléchargez le fichier "Pilote PDF(1).xlsm" sur le bureau, les 2 autres où vous voulez.

Les macros dans le 1er fichier :

VB:

Sub PDF_Excel()
'se lance par les touches Ctrl+E
Dim chemin$, wb As Workbook
chemin = ThisWorkbook.Path & Application.PathSeparator 'à adapter
Application.ScreenUpdating = False
For Each wb In Workbooks
    If wb.Name <> ThisWorkbook.Name Then _
        wb.Worksheets(1).ExportAsFixedFormat xlTypePDF, chemin & Left(wb.Name, InStrRev(wb.Name, ".") - 1)
Next
End Sub

Sub PDF_Word()
'se lance par les touches Ctrl+W
Dim chemin$, Wapp As Object, doc As Object
chemin = ThisWorkbook.Path & Application.PathSeparator 'à adapter
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
For Each doc In Wapp.Documents
    doc.ExportAsFixedFormat chemin & Left(doc.Name, InStrRev(doc.Name, ".") - 1), 17 'wdExportFormatPDF
Next
End Sub

A+

kiki29 · 10 Août 2020

Salut, comme cela concerne le Mac, j'irais voir ici

Marowak · 11 Août 2020

Bonjour job75 et merci pour ton aide !

J'ai bien téléchargé les trois fichiers, mais dans quoi dois-je enregistrer les macros ?
Je t'ai joint des captures d'écran de l'onglet Affichage sur Excel où on me propose d'en enregistrer, ainsi que des interfaces suivantes.

Dois-je créer une macro dans n'importe quel fichier Excel que je peux transformer en PDF via la macro, ou bien créer la marcro dans le Pilote PDF que tu m'as envoyé ?

Je veux également souligner que les fichiers Excel sur lesquels je travaille sont en .xlsx et non en .xlsm. Aussi, dois-je les convertir tous en .xlsm afin de pouvoir travailler avec des macros ?

D'ailleurs, j'ai essayé de lancer la première macro Excel et un message d'erreur apparaît (captures d'écran 3 et 4).

Désolé du fouillis ambiant, mais j'essaie de tout recouper pour comprendre comment cela fonctionne...

Merci d'avance !

PS: @kiki29, ton site est pour Excel 2011, non ?

Marowak · 11 Août 2020

@kiki29 Je viens d'aller sur ton site et tu avais raison car il me semble qu'ils parlent bien d'Excel 2016 pour Mac et des enregistrements de fichiers PDF — voir ma pièce jointe.

Donc au temps pour moi, mais du coup, ils proposent 4 macros (voire plus) pour ce faire et disent qu'il faut créer au préalable un fichier destination... ce qui ne me dérange pas tant qu'il en existe un raccourci sur mon bureau !

Par contre, je ne sais absolument pas laquelle choisir, ni comment la mettre en oeuvre, d'autant que la question du format (.xlsx ou .xlsm) reste entière...

job75 · 11 Août 2020

Bonjour Marowak,

Utilisez toujours le fichier Pilote PDF.xlsm, c'est lui qui contient les macros à exécuter.

Pour ce qui est de l'erreur je ne peut guère vous aider, n'étant pas sur MAC.

Faites tourner l'enregistreur de macro pendant que vous créez le fichier PDF.

Quel code obtenez-vous ?

A+

Marowak · 11 Août 2020

Bonjour job75,

Je viens d'ouvrir le Pilote PDF et ai constaté que les macros y sont en effet déjà présentes, aussi je l'ai laissé actif.

Ensuite, j'ai ouvert un fichier .xlsx à imprimer en PDF, ai appuyé sur Ctrl + E, le raccourci dédié, et j'ai eu le même message d'erreur "1004".

En pièce jointe se trouvent les screens de l'erreur en question.
Quelqu'un saurait-il me dire comment la corriger ?

Apparemment, la ligne de code surlignée en jaune pose problème...

kiki29 · 11 Août 2020

Re,

Microsoft Excel 2007 introduit un nouveau format de fichier appelé OpenXML (XML ouvert Office).

Ce nouveau format:
* Améliore l'interaction et l'utilisation par d'autres applications.
* Facilite l'intégration aux sources de données externes.
* Réduit la taille des fichiers (technologie de compression zip utilisée pour stocker les documents).
* Améliore la récupération des contenus pour les fichiers endommagés.

L'extension proposée par défaut lors de l'enregistrement d'un classeur est le type .xlsx.

Les autres extensions XML sont:
* Classeur autorisant les macros (.xlsm)
* Modèle par défaut (.xltx)
* Modèle autorisant les macros (.xltm)
* Macro complémentaire (.xlam)
* Le dernier format .xlsb, est une version binaire non XML.

La lettre x en fin d'extension signifie que le fichier ne contient aucune macro. La lettre m signifie que le fichier contient des macros. Si vous enregistrez et fermez votre classeur au format .xlsx alors qu'il contenait des macros, celles ci seront perdues.

Marowak · 11 Août 2020

Bonjour kiki29,

J'ai bien essayé de changer le format d'un classeur Excel ouvert en .xlsm, cependant la même erreur 1004 se produit lorsque j'appuie sur Ctrl + E.

Quel est le problème selon vous ?

job75 · 11 Août 2020

Le problème c'est MAC...

Jje vous ai demandé de faire tourner l'enregistreur de macro pendant que vous créez le fichier PDF manuellement.

Quel code obtenez-vous ?

Marowak · 11 Août 2020

Oui, je vois bien que MAC apporte son lot de désagréments...

Je n'avais pas compris votre demande. Voici le code que j'obtiens:

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/info/Desktop/NOMDUFICHIER.pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

job75 · 11 Août 2020

Dans mon code je n'avais pas précisé l'extension .pdf parce que chez moi ce n'est pas nécessaire.

Essayez le fichier Pilote PDF(2).xlsm joint qui contient ces macros :

VB:

Sub PDF_Excel()
'se lance par les touches Ctrl+E
Dim chemin$, wb As Workbook
chemin = ThisWorkbook.Path & Application.PathSeparator 'à adapter
Application.ScreenUpdating = False
For Each wb In Workbooks
    If wb.Name <> ThisWorkbook.Name Then _
        wb.Worksheets(1).ExportAsFixedFormat xlTypePDF, chemin & Left(wb.Name, InStrRev(wb.Name, ".") - 1) & ".pdf", _
            Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub

Sub PDF_Word()
'se lance par les touches Ctrl+W
Dim chemin$, Wapp As Object, doc As Object
chemin = ThisWorkbook.Path & Application.PathSeparator 'à adapter
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
For Each doc In Wapp.Documents
    doc.ExportAsFixedFormat chemin & Left(doc.Name, InStrRev(doc.Name, ".") - 1) & ".pdf", 17 'wdExportFormat
Next
End Sub

PS : au post #2 il manquait le document Word, je viens de l'ajouter.

Marowak · 11 Août 2020

Merci pour ça !

Je viens d'essayer d'utiliser le pilote numéro 2 et voici le code du message d'erreur obtenu.

job75 · 11 Août 2020

Dernière tentative en utilisant le chemin indiqué dans votre post #11.

Remplacez :

VB:

chemin = ThisWorkbook.Path & Application.PathSeparator

par :

VB:

chemin = "/Users/info/Desktop/"

kiki29 · 11 Août 2020

Salut, as-tu lu le Post#8 et testé les 4 procédures du fichier Mac2PDF.xlsm ?

XL pour MAC Macro simple Enregistrer sous PDF dans Bureau avec même nom

Marowak

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

kiki29

XLDnaute Barbatruc

Marowak

XLDnaute Nouveau

Pièces jointes

Marowak

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Marowak

XLDnaute Nouveau

Pièces jointes

kiki29

XLDnaute Barbatruc

Pièces jointes

Marowak

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Marowak

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Marowak

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Discussions similaires