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
Partager