Discussion :

[tamtam64]

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

[gnain]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
nom = "DB_LD_" & Dates & ".xlsm"

[tamtam64]

Désolé ca ne change rien du tout il ne prend pas les variables c'est bisard quand on met un string ca marche et si je veux mettrre une date et donc une variable ca ne marche plus . Je ne comprend pas le probleme

[valérieF]

c'est parcequ'unfichier ou dossier ne peut contenir de caractère tel que le /

[tamtam64]

Merci beacoup beaucoup Valerie , si je pouvais je te mettrais plus 1000 direct lol