Bonjour,
j'ai un souci pour sauvegarder mon nouveau classeur excel avec un nom deja formaté
Code :
- Sub Enregist()
- Dim MyBook As Workbook
- Dim Newbook As Workbook
- Dim NomDuFichier As Variant
- Set MyBook = ThisWorkbook
- Set Newbook = Workbooks.Add(xlWBATWorksheet)
- NomDuFichier = "[" & UserForm1.TextBoxNom.Value & "][" & UserForm1.TextBoxDate.Value & "]"
- Workbooks(MyBook.Name).Sheets("Base" ).Copy Before:=Workbooks(Newbook.Name).Sheets(1)
- Application.DisplayAlerts = False
- Workbooks(Newbook.Name).Sheets("Feuil1" ).Delete
- ActiveWorkbook.SaveAs Filename:=NomDuFichier
- Workbooks(MyBook.Name).Activate
- End Sub
|
NomDuFichier = [Julien][19/07/1980].xls par exemple
Message édité par sakuraba le 12-01-2006 à 15:34:35