XL pour MAC Enregistrer sous VBA

[christophe43333333]

Bonjour à tous,

j'ai besoin de votre aide, Me voila sur un Fichier depuis quelques jours.

Je crée beaucoup de recettes et j'ai donc un fichier modele en XLTM (je l'ai enregistre en XLSM car je n'arrivais pas à le joindre ) qui à l'ouverture me demande le nom de la recette et le nombre de couvert.
J'ai cree un un bouton save pour enregister le document avec le nom de la recette directement dans mon fichier de recettes Mais malheureusement ca ne fonctionne pas

De plus Auriez vous des idées pour rendre plus sexy la boite de dialogue ?


Merci de votre aide

 

[christophe43333333]

Sub Enregistrer_sous() ' Enregistrement classeur entier en rapport avec valeur cellule
Dim Dossier As String
Application.DisplayAlerts = False ' pour ne pas avoir le message de confirmation de conversion
Dossier = "/Users/christophebourdiol/Library/Mobile Documents/com~apple~CloudDocs/Recettes/Fiches Techniques/"
ActiveWorkbook.SaveAs _
FileFormat:=xlNormal, _
Filename:=Dossier & Range("A3") & ".xlsx"

End Sub

 

[christophe43333333]

J'aurai souhaiter passe les documents en xlsx mais bon tant pis
la boite de dialogue qui demande le nom de la recette .

Merci encore pour ton aide je suis deja trés content du résultat

 

[fanch55]

Ah ben, j'ai pris un raccourci :
Xlsx ==> classeur normal donc FileFormat=xlnormal ou xlWorkbookNormal
Xlsm ==> classeur avec macro donc FileFormat=xlOpenXMLWorkbookMacroEnabled

 

[christophe43333333]

il serait peut etre judicieux de mettre un bouton plutot que le code vba se fasse automatiquement

comment faire pour ne pas lancer le code automatiquement

 

[christophe43333333]

ou un bouton pour supprimer l'integralité des codes

 

[fanch55]

Modifiez le code de sauvegarde ainsi :

    ActiveWorkbook.SaveAs _
        FileFormat:=xlWorkbookDefault, _
        Filename:=Dossier & Range("A3") & ".xlsx"