Code VBA fonctionnant sur mon PC, mais pas sur mon MACBook

Bonjour à tous,

'ai un petit souci de code VBA, je vous explique mon pb. J'ai une macro me permettant d'enregistrer directement en pdf avec le nom que je désire. Cette macro fonctionnait tres bien sur PC, mais je viens d'acheter un macBook et celle ci ne fonctionne plus. en effet j'ai ce message d'erreur:

Voici ma macro:

Sub PDF()
If MsgBox("Valider la facture? Date ? Echéance?", 36, "Confirmation") = vbYes Then

Dim monDossier As String, monFichier As String
  monDossier = XXXXX(il y a le vrai chemin : anonymiser)
  monFichier = [E11] & "_" & [H16]
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=monDossier & monFichier, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  ' Faire une copie du classeur
 ThisWorkbook.SaveCopyAs monDossier & monFichier & ".xlsm"

End If
End Sub

J'ai testé avec l'enregistreur de macro et cela fonctionne, sans le message d'erreur.

Quelqu'un pourrait il m'aider?

Je vous remercie d'avance.

Bonne journée, et prenez soin de vous :)

Cordialement

Sébastien

Bonjour,

je ne vois pas le rapport avec le message mais pour info le séparateur de chemin est différent pour les 2 OS.
\ sur PC et : sur Mac
As-tu adapté la partie monDossier & monFichier ?
Utilise Application.Path.Separator pour récupérer celui en cours.

Il y a d'autre incompatibilités, possible que tu les rencontres derrière.
Les principales ici : http://www.excelabo.net/excel/mac_pc2
eric

Bonjour Eric,

Merci pour ta réponse. Mais hélas cela ne fonctionne toujours pas. J'ai modifié ça

IncludeDocProperties:=True

par:

IncludeDocProperties:=False

Maintenant le souci ce situe sur cette ligne de code

  ' Faire une copie du classeur
 ThisWorkbook.SaveCopyAs monDossier & monFichier & ".xlsm"

Je ne vois pas ou est le pb?

Merci d'avance pour votre aide.

Cordialement

Sébastien

Bonsoir Eric,

après qques bidouillages et tes conseils j'ai réussi à résoudre mon pb.

Merci bcp.

Bonne soirée

Cordialement

Sébastien