Bonjour pourquoi ce code siimple refuse de s'enregistrer? ne peut on pas donner un titre comme je le fait?
C'est d'autant plus bisard que je peut l'enregistrer si je met une chaine de caractere a la place de la variable nom

Merci d'av&ance


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test2()
    Dim nom As String
    Dim Dates As Date
    Dates = Format(Date, "yyyy/mm/dd")
    nom = "DB_LD_" & Dates
    Sheets(Array("DB LQB", "DB Agencies")).Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & nom
    ActiveWorkbook.Close
End Sub