Bouton Générer un PDF Mac et PC

Bonjour à tous,

Nous avons créer un petit simulateur sur Excel (rien de bien spécial) que nous donnons à nos commerciaux.

Nous souhaitons créer un bouton qui permettra de générer un PDF (pour Mac ou PC) ou bien deux boutons (un Mac et un PC).

Notre macro ne fonctionne pas du tout, nous aimerions :
- Enregistrer directement le PDF sur le bureau du commercial (notre code actuel donne un chemin spécifique lié à l'utilisateur qui a fait la macro..)
- Ajouter au nom du fichier : la date et l'heure (heure, minutes et secondes)

Le code actuel est le suivant :

Sub SaveMAC()
'
' SaveMAC Macro
'

'
    ChDir "/Users/julien/Desktop/"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "/Users/julien/Desktop/SIMULATEUR ECONOMIE 2020.pdf", Quality:= _
        xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

------

Sub SavePC()
'
' SaveToPDFforPC Macro
' Sauvegarde en PDF pour PC
'

'
    ChDir "C:\Users\fabrice\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\Users\fabrice\Desktop\SIMULATEUR ECONOMIE 2020.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Merci pour votre aide.

Bonjour

Quelle est votre version excel sur MAC et votre OS MAC ?

Cordialement

Bonjour,

pour Mac je suis pas sur mais pour PC les lignes vba on l'air correctes.

Petite précision dans ce que vous écrivez :

- Enregistrer directement le PDF sur le bureau du commercial (notre code actuel donne un chemin spécifique lié à l'utilisateur qui a fait la macro..)

Enregistrer sur le bureau du commercial ? c'est bien le commercial en question qui lance la macro ? sinon çà ne peut pas fonctionner.

Pour les tests le chemin le plus simple pour l'enregistrement est encore l'enregistrement au même endroit que le fichier excel :

Chemin=Thisworkbook.path

Sinon il faudra récupérer en varible le nom d'utilisateur pour l'indiquer dans le chemin

Dim Utilisateur as string

Utilisateur=Environ("username")

Chemin="C:\Users\" & Utilisateur & "\Desktop\"

- Ajouter au nom du fichier : la date et l'heure (heure, minutes et secondes)

Pour le nom de fichier personnalisé c'est faisable mais les noms de fichiers n'acceptent pas les / ou : donc pour la date et heures minutes secondes

il faudra récupérer chaque variable une par une pour les indiquer dans votre nom de fichiers et les séparer par un trait d'union par exemple.

exemple avec la date :

Dim nomfichier as string

nomfichier="SIMULATEUR ECONOMIE" & day(date) & "-" & Month(date) & "-" & year(date) & ".pdf"

Bonjour Dan,

Version OS : maxOS Catalina (10.15.5)
Excel : Excel 365 - dernière mise à jour

Bien à vous

Bonjour

Version OS : maxOS Catalina (10.15.5)

Excel : Excel 365 - dernière mise à jour

Hum... vous allez devoir consulter ce lien pour préparer votre MAC --> http://www.rondebruin.nl/mac/mac005.htm

Sinon parfois le mieux est encore de le faire via la commande IMPRIMER plutot que le faire via en bouton et VBA. Ce que je fais toujours de mon coté.

Crdlt