Problèm Macro Enregistrer Sous

Bonjour,

J'ai créer un fichier qui automatise les devis.

La personne rentre les informations demandées et le devis se génère automatiquement.

Sur mon Excel 2016 sur Windows aucun soucis, hors mon collègue travail sur Mac.

J'aimerai adapter ce code au Mac hors je n'y arrive pas, pouvez vous m'aider?

Sub EnregistrerSous()

    Dim Fichier, Dossier
    Fichier = " DEVIS PISCINE - " & ActiveSheet.Range("C4") & ".xlsm"
    Dossier = "C:\Users\Perso\Desktop\DEVIS PISCINES"
    ThisWorkbook.SaveCopyAs Dossier & Fichier
    With Workbooks.Open(Dossier & Fichier)
        With .VBProject.VBComponents
            .Remove .Item("Module2")
        End With
        .Worksheets("DEVIS").Shapes("Rectangle 1").Delete
    End With
    MsgBox "DEVIS -" & " " & Range("C4") & " " & "ouvert", , "DEVIS -" & " " & Range("C4")
    ThisWorkbook.Close False
    Application.Quit
End Sub

Merci énormément.

PS: Le code je l'avais trouvé en fouinant sur un de vos sujet qui sont d'ailleurs très intéressant

Si vous le souhaitez je peux joindre un fichier.

Cordialement

Personne n'a l'air inspiré par mon soucis.

Vous êtes ma dernière chance car la j'ai fait le tour de toutes les possibilités

Merci encore

TravailleurPiscines, le forum,

Je ne connais pas les MAC.

Je crois que le problème provient du dossier où enregistrer.

Une piste à explorer : https://forums.macg.co/threads/enregistrer-sous-code-vba-avec-office-2011-excel-mac-prob.1242157/

LaCéline

J'ai déjà essayer cette méthode,

En faisant cela j'arrive à enregistrer le fichier mais il refuse de le faire dans le dossier donné, le fichier s'enregistre uniquement sur le bureau.

Lorsque cela fonctionne c'est la seconde partie de la macro qui plante, celle qui consiste la supprimer dans le nouveau fichier.

Pour moi mon problème ressemble à un serpent qui se mord la queue.

Je désespère à force...

TravailleurPiscines, le forum,

Pour un PC, il y a une erreur sur cette ligne :

Dossier = "C:\Users\Perso\Desktop\DEVIS PISCINES"

Elle devrait s'écrire :

Dossier = "C:\Users\Perso\Desktop\DEVIS PISCINES\"

LaCéline

J'ai déjà tenter en changeant l'écriture du fichier destination.

J'ai une erreur sur la ligne "ThisWorkbook.SaveCopyAs".

Lorsque celle ci est réglée c'est sur la ligne "With Workbook.Open" ou sur les VBComponents...

Little UP

(Désolé d'être autant insistant mais c'est assez urgent...)

Little UP again....

Désolé....

Bon, vous pouvez clôturer le sujet,

à ce que je vois personne n'a l'air d'y arriver.

Ce n'est pas grave à partir de maintenant je ferai mes macros sur PC ce sera plus simple

Merci en tout cas !