Enregistrement fichier dans des document VBA
Bonjour, je vous explique rapidement ma situation.
Je souhaiterai mettre en place un bouton d'enregistrement dans un fichier que je ne peux partager malheureusement (confidentiel)
Pour cela j'ai rédigé cette macro, évidament n'étant pas un expert en VBA elle ne marche pas
Sub Macro13()
Dim Nom As String
Nom = Worksheets("Dispensettes").Range("K2") -> défintion du nom
ActiveWorkbook.SaveAs Filename:="[I20]", FileFormat:=xlNormal -> Fichier d'enregistrement varie selon la valeur de I20
End Sub
Je vous remercie de l'aide que vous pourrez m'apporter
Jonathan
Bonjour Jonathan,
il faut spécifier le chemin,
Sub Macro1()
Dim chemin As String, Nom As String
chemin = "C:\monRépertoire\"
Nom = Worksheets("Dispensettes").Range("I2") -> défintion du nom
ActiveWorkbook.SaveAs chemin & Nom & ".xlsm", fileformat:=52
End Subpour info:
51 = xlOpenXMLWorkbook (without macro's in 2007-2016, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2016, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2016 with or without macro's, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2016, xls)
Escusez moi je me suis apperçu que je n'avais pas assez détaillé ma demande.
Vous trouverez ci-joint un fichier comprenant des explications ainsi que les tests que j'ai éffectué. (N'hésitez pas a critiquer c'est 100% ammateur fan d'Excel)
Merci d'avance
Jonathan