Bonjour,
Voici un code VBA me permettant non seulement de créer un nouveau fichier Excel mais aussi, de le sauvegarder automatiquement avec la date du jour :
La dernière ligne de mon petit programme VBA n'est pas correcte, je le sais.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub NewExcelDoc() ' ' NewExcelDoc Macro Dim MonFichier$ MonFichier = "Migration_Report" ChDir "Z:\W7 Project\LaboMigration\BLM\" ActiveWorkbook.SaveAs Filename:="Z:\W7 Project\LaboMigration\BLM\" & MonFichier & "_" & FORMAT(Now, "dd-mm-yyyy") & ".xlsx", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False Set wbExcel = appExcel.Workbooks.Open("Z:\W7 Project\LaboMigration\BLM\") & MonFichier End Sub
Ce que je voudrais, c'est que le fichier soit automatiquement ouvert et ce peu importe la date affectée. Il s'agit donc d'une variable et non d'un fichier ayant le même nom à chaque fois.
Comment puis-je faire ?
Merci à vous tous
Fred
Partager