XL pour MAC Enregistrer sous VBA

C

christophe43333333

XLDnaute Nouveau

• 7 Janvier 2024

• #16

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

 

Vote positif 0 Vote négatif

C

christophe43333333

XLDnaute Nouveau

• 7 Janvier 2024

• #17

christophe43333333 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 7 Janvier 2024

• #18

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

 

Vote positif 0 Vote négatif

C

christophe43333333

XLDnaute Nouveau

• 7 Janvier 2024

• #19

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

 

Vote positif 0 Vote négatif

C

christophe43333333

XLDnaute Nouveau

• 7 Janvier 2024

• #20

ou un bouton pour supprimer l'integralité des codes

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 7 Janvier 2024

• #21

Modifiez le code de sauvegarde ainsi :

VB:

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

 

Dernière édition: 7 Janvier 2024

Vote positif 0 Vote négatif