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

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
C15
Le #6358731
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


Fabien
Le #6358701
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



C15
Le #6358601
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





Publicité
Poster une réponse
Anonyme