Problème Macro

Bonsoir,

Je possède cette macro qui fonctionne parfaitement sur mon PC, hors sur mon MAC j'ai une erreur, pouvez vous m'aider??

Merci

Sub EnregistrerSous()

    Dim nWb$, chDos$
    nWb = " MAGIfirst - " & ActiveSheet.Range("C4") & ".xlsm"
    chDos = "Macintosh HD/Utilisateurs/pierrickrousset/Bureau/NP PISCINES/DEVIS MAGILINE"
    ThisWorkbook.SaveCopyAs chDos & nWb
    With Workbooks.Open(chDos & nWb)
        With .VBProject.VBComponents
            .Remove .Item("Module2")
        End With
        .Worksheets("DEVIS").Shapes("Rectangle 1").Delete
    End With
    MsgBox "MAGIfirst -" & " " & Range("C4") & " " & "ouvert", , "MAGIfirst -" & " " & Range("C4")
    ThisWorkbook.Close False
    Application.Quit
End Sub

Bonjour,

je crois que sur mac c'est le :

.SaveAs "Macintosh HD: Utilisateurs: Votre_nom_d'utilisateur: Desktop: ron.xlsm", FileFormat: = 53

Il manquerai des espace alors?

Et le FileFormat = 53 correspond a quoi?

Merci

Mac Excel 2011 et Excel 2016

xlsx = 52

xlsm = 53

xlsb = 51

xls = 57

c'est une peu mélangeant car pour Windows Excel 2007-2016 c'est 1 de moins

xlsx = 51

xlsm = 52

xlsb = 50

xls = 56

J'ai essayer et ça ne fonctionne pas...

Je voit pas ou la macro déconne....

désoler je vient de voir que vous êtes sur une version 2016

Mac Excel 2016 le chemin est comme ça:

/Users/YourUserName/Desktop/ron.xlsm

https://www.rondebruin.nl/mac/mac020.htm

Le .VBProject.VBComponents ne posera pas de soucis?

La seul problème est donc comment je défini mon chemin c'est ca ?

PS: meme en enregistrant comme ce que tu m'as mit en haut j'ai toujours une erreur, 1004 en l'occurrence

vous avez une erreur 1004 sur quel ligne ?

Sur la ligne

ThisWoorkbookSaveCopyAs chDos et nWb 

Little UP SVP

Personne n'est pro d'Excel Mac ici??

Merci encore !