Discussion :

[jhntms]

Bonjour,

Je viens vers vous car je suis bloqué sur un point bien que ça ne me semble pas si compliqué...

Mon code doit importer des données Excel dans une table, ca ça passe, je le fais avec

Code :

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

DoCmd.TransferSpreadsheet acImport,

Puis je dois ajouter deux colonnes, la ça va aussi, je fais via :

Code :

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

ALTER TABLE table_name ADD column_name datatype;

ou via

Code :

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

 Set fieldH = tbl.CreateField("heure_amb", dbDate)

J'arrive maintenant au point problématique... je dois remplir ces 2 champ (1 date et 1 heure) à partir d'un seul champ date et heure.

J'ai essayé plein de choses trouvées ici ou ailleurs mais sans succès...

Merci d'avance aux gens qui m'aideront sur ce problème!

Johan

[User]

Bonjour,

Essaie avec les fonctions DateValue et Timevalue.

Cdlt,

[jhntms]

Bonjour User,

Déjà merci pour ta réponse

Comment puis-je faire pour intégrer dans TimeValue ou DateValue la valeur de mon champ ?

Voivi mon code, "dateheure" ne rend rien ce qui n'est pas surprenant...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Dim Db As DAO.Database
Dim tbl As DAO.TableDef
Dim dateheure As DAO.Field
 
Set Db = CurrentDb
Set tbl = Db.TableDefs("Ambiance_inter")
 
Dim date_amb As Date
Dim heure_amb As Date
 
    Set fieldH = tbl.CreateField("heure_amb", dbDate)
    Set fieldD = tbl.CreateField("date_amb", dbDate)
       tbl.Fields.Append fieldH
       tbl.Fields.Append fieldD
       tbl.Fields.Refresh
 
dateheure = "SELECT [Date et heure] FROM Ambiance_inter"
 
heure_amb = TimeValue(dateheure)
date_amb = DateValue(dateheure)
 
heure_rempl = "UPDATE Ambiance_inter SET heure_amb = #" & heure_amb & "#"
date_rempl = "UPDATE Ambiance_inter SET date_amb= #" & date_amb & "#"
 
    DoCmd.RunSQL heure_rempl
    DoCmd.RunSQL date_rempl
 
End Sub

Dans l'attente de votre réponse, merci d'avance

[User]

Bonjour,

Essayez de vous baser sur ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim Db As DAO.Database
Dim tbl As DAO.TableDef
Dim fieldH As DAO.Field,fieldD As DAO.Field
 
Set Db = CurrentDb
Set tbl = Db.TableDefs("Ambiance_inter")
 
Set fieldH = tbl.CreateField("heure_amb", dbDate)
Set fieldD = tbl.CreateField("date_amb", dbDate)
tbl.Fields.Append fieldH
tbl.Fields.Append fieldD
tbl.Fields.Refresh
 
' Libérer les variables
 
Set fieldH = nothing
Set fieldD = nothing
 
set tbl = nothing
 
db.close
set db=nothing
 
date_heure_rempl = "UPDATE Ambiance_inter SET heure_amb = TimeValue([Date et heure]), date_amb = DateValue([Date et heure]) ;"
 
DoCmd.RunSQL date_heure_rempl
 
End Sub

Sous réserve que les champs "heure_amb" et "date_amb" ne soient pas déjà créés...

Cdlt,

[jhntms]

Bonjour,

Merci de ta réponse,

Super ça fonctionne super bien !

Pour ma part j'avais trouvé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim Db As DAO.Database
'Dim rst As Recordset
 
'Set Db = CurrentDb
 
'Dim a As Long
 
'DoCmd.SetWarnings False
 
'   Do While Not rst.EOF
 
'    a = 1
 
'    heure_rempl = "UPDATE Ambiance_inter SET heure_amb = #" & Format(rst![Date et heure], "hh:nn") & "# WHERE num =  " & a & ""
'    date_rempl = "UPDATE Ambiance_inter SET date_amb = #" & Format(rst![Date et heure], "mm/dd/yyyy") & "# WHERE num = " & a & ""
 
'    DoCmd.RunSQL heure_rempl
'    DoCmd.RunSQL date_rempl
'    a = a + 1
 
'    rst.MoveNext
 
'    Loop
 
'rst.Close
 
'DoCmd.SetWarnings True

Mais c'est extrêmement long...

Encore merci pour ton aide

Johan

[User]

Oui, dans le code que je t'ai donné tout se fait au niveau de la requête, donc tu n'as pas besoin de faire une correspondance avec le numéro dans une boucle, et tu évites d'exécuter autant de requêtes que d'enregistrements (et même le double en fait )

Cdlt,

[jhntms]

Oui c'est ca et c'est beaucoup mieux ^^

Merci !

[User]

De rien,

Moi aussi je cherche toujours le plus simple