redéfinir des champs lors de l'importation excel vers access (2003)

Rebonjour,

En cherchant sur le net, j'ai essayé d'adapter ce qui suit pour définir
le champ date de naissance comme date/heure (et son format).

C'est manifestement incomplet et/ou faux.

Si quelqu'un peut me remettre sur le droit chemin...


Function changt_date()
'gestion d'erreur pour garantir la mise à jour de l'écran
On Error GoTo GestionErreur
'empêche la mise à jour de l'écran
DoCmd.Echo False
'ouvre la table en mode création
DoCmd.OpenTable "T import", acViewDesign
'change la propriété caption du champ 'colonne2'
CurrentDb.TableDefs("T import")("Date de naissance").Type = "Date / Time"
CurrentDb.TableDefs("T import")("Date de
naissance").Properties("format").Value = "dd / mm / yyyy"
'ferme la table en sauvegardant
DoCmd.Close acTable, "T import", acSaveYes
Exit_function:
DoCmd.Echo True
Exit Function
GestionErreur:
MsgBox Err.Description
Resume Exit_function
End Function


Merci de votre aide

A+

C15

Bonjour à tous et à toutes,

lors de l'importation d'un fichier excel dans access, les types de
données et certaines propriétés sont à redéfinir.

Pour automatiser ces actions (qui doivent être répétées chaque mois)
peut-on le faire par une macro ou doit-on le faire par programmation ?

Merci de votre aide

A+

C15

Rebonjour,

En cherchant sur le net, j'ai essayé d'adapter ce qui suit pour définir
le champ date de naissance comme date/heure (et son format).

C'est manifestement incomplet et/ou faux.

Si quelqu'un peut me remettre sur le droit chemin...


Function changt_date()
'gestion d'erreur pour garantir la mise à jour de l'écran
On Error GoTo GestionErreur
'empêche la mise à jour de l'écran
DoCmd.Echo False
'ouvre la table en mode création
DoCmd.OpenTable "T import", acViewDesign
'change la propriété caption du champ 'colonne2'
CurrentDb.TableDefs("T import")("Date de naissance").Type = "Date / Time"
CurrentDb.TableDefs("T import")("Date de
naissance").Properties("format").Value = "dd / mm / yyyy"
'ferme la table en sauvegardant
DoCmd.Close acTable, "T import", acSaveYes
Exit_function:
DoCmd.Echo True
Exit Function
GestionErreur:
MsgBox Err.Description
Resume Exit_function
End Function


Merci de votre aide

A+

C15

Bonjour à tous et à toutes,

lors de l'importation d'un fichier excel dans access, les types de
données et certaines propriétés sont à redéfinir.

Pour automatiser ces actions (qui doivent être répétées chaque mois)
peut-on le faire par une macro ou doit-on le faire par programmation ?

Merci de votre aide

A+

C15
Salut C15,

'change la propriété caption du champ 'colonne2'
Currentdb.tabledefs("T_import")("champ2").name = "Date de Naissance"

DoCmd.OpenTable "T import", acViewDesign

CurrentDb.TableDefs("T import")("Date de naissance").Type = dbDate
CurrentDb.TableDefs("T import")("Date de
naissance").Properties("format").Value = "dd / mm / yyyy" ???????? je
trouve pas

'ferme la table en sauvegardant
DoCmd.Close acTable, "T import", acSaveYes

Bonsoir Fabien, bonsoir à tous,

Désolé, mauvais copier/coller le la procédure, dont les lignes de
commentaires.


Pour appliquer cela à mon cas, il aurait fallu lire entre autre :

'change le type et le format du champ "Date de naissance"

Ce que je veux faire, c'est changer le type de données du champ "date de
naissance" de texte en date et lui appliquer le format "jj/mm/aaaa" pour
avoir les dates sous la forme 21/03/2008;

Merci de ton aide

A+

C15

Rebonjour,

En cherchant sur le net, j'ai essayé d'adapter ce qui suit pour
définir le champ date de naissance comme date/heure (et son format).

C'est manifestement incomplet et/ou faux.

Si quelqu'un peut me remettre sur le droit chemin...


Function changt_date()
'gestion d'erreur pour garantir la mise à jour de l'écran
On Error GoTo GestionErreur
'empêche la mise à jour de l'écran
DoCmd.Echo False
'ouvre la table en mode création
DoCmd.OpenTable "T import", acViewDesign
'change la propriété caption du champ 'colonne2'
CurrentDb.TableDefs("T import")("Date de naissance").Type = "Date / Time"
CurrentDb.TableDefs("T import")("Date de
naissance").Properties("format").Value = "dd / mm / yyyy"
'ferme la table en sauvegardant
DoCmd.Close acTable, "T import", acSaveYes
Exit_function:
DoCmd.Echo True
Exit Function
GestionErreur:
MsgBox Err.Description
Resume Exit_function
End Function


Merci de votre aide

A+

C15

Bonjour à tous et à toutes,

lors de l'importation d'un fichier excel dans access, les types de
données et certaines propriétés sont à redéfinir.

Pour automatiser ces actions (qui doivent être répétées chaque mois)
peut-on le faire par une macro ou doit-on le faire par programmation ?

Merci de votre aide

A+

C15
Salut C15,

'change la propriété caption du champ 'colonne2'
Currentdb.tabledefs("T_import")("champ2").name = "Date de Naissance"

DoCmd.OpenTable "T import", acViewDesign

CurrentDb.TableDefs("T import")("Date de naissance").Type = dbDate
CurrentDb.TableDefs("T import")("Date de
naissance").Properties("format").Value = "dd / mm / yyyy" ???????? je
trouve pas

'ferme la table en sauvegardant
DoCmd.Close acTable, "T import", acSaveYes