Créer une table avec la date du jour dans le titre

[dodo69]

Bonjour, je suis débutant dans ce domaine et j'aimerais créer une table (issue d'une autre table) dont le titre comporte la date du jour.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub essaie_Click()
 
Dim dt As String
Dim req As String
Dim nom As String
 
On Error GoTo Err_sauvegarde_base_pm_Click
 
dt = Date
nom = "Base_travail_pm_au_" & dt
 
req = "SELECT * INTO nom FROM base_travail_pm"
DoCmd.RunSQL req
 
Exit_sauvegarde_base_pm_Click:
    Exit Sub
 
Err_sauvegarde_base_pm_Click:
    MsgBox Err.Description
    Resume Exit_sauvegarde_base_pm_Click
 
End Sub

J'aimerais que le nom dans le titre de la requête corresponde à Base_travail_pm_au_(date du jour).

Quelqu'un peut-il compléter mon code s'il vous plaît.

Merci d'avance

[Kloun]

Bonjour,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub essaie_Click()
 
Dim dt As String
Dim req As String
Dim nom As String
 
On Error GoTo Err_sauvegarde_base_pm_Click
 
dt = format(Date, "YYYYMMDD")
nom = "Base_travail_pm_au_" & dt
 
req = "SELECT * INTO " & nom & " FROM base_travail_pm"
DoCmd.RunSQL req
 
Exit_sauvegarde_base_pm_Click:
Exit Sub
 
Err_sauvegarde_base_pm_Click:
MsgBox Err.Description
Resume Exit_sauvegarde_base_pm_Click
 
End Sub

[dodo69]

Merci pour ta rapidité et ton efficacité kloun, ca marche très bien.

[dodo69]

salut,

Je revien sur ce topic pour une petite demande,

Comment peut on rajouter l'heure sur le nom de la table ?

Merci d'avance

Cdt
DoDo