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 :

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
La dernière ligne de mon petit programme VBA n'est pas correcte, je le sais.
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