Import depuis Access

Le
chschauss
Bonjour à tous,
Chez certains utilisateurs, lorsque j'importe des données de type date de=
puis une table Access, le format devient MM/JJ/AAAA au lieu de JJ/MM/AAAA.
Le format du champs de la table access est DATE/ABREGE.
Le format de la cellule de ma feuille Excel est Date (dd/mm/yyyy)
J'ai vérifié les paramètres régionaux - tout me semble correcte - f=
ormat date courte = JJ/MM/AAAA.

Y-a-t'il une solution à ce problème ?

Merci pour votre aide
Cordialement
Charles
Questions / Réponses high-tech
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
MichD
Le #25304982
Bonjour,

Que ce soit l'application Excel ou Access, à l'interne,
lorsque VBA est impliqué, le format date retenue
est de type américain MM/JJ/AAAA.

La question, comment fais-tu ton importation de
données?


MichD
---------------------------------------------------------------
chschauss
Le #25305592
Le mardi 26 mars 2013 18:00:40 UTC+1, MichD a écrit :
Bonjour,



Que ce soit l'application Excel ou Access, � l'interne,

lorsque VBA est impliqu�, le format date retenue

est de type am�ricain MM/JJ/AAAA.



La question, comment fais-tu ton importation de

donn�es?





MichD

---------------------------------------------------------------



Bonjour,

J'accède à la base de données via DAO et la commande d'insertion:
range("A2")=rs.fields("MaDate")

Merci pour ton aide

Cordialement
Charles
LSteph
Le #25305702
Bonjour,

Cela pose-t-il le même souci si tu exporte au format excel depuis access
et qu'ensuite tu l'ouvre depuis le menu d'excel?

Sinon si tu fais l'import depuis excel tu as menu données ou ruban la
commande Convertir que tu peux appliquer à ta colonne date.

--
LSteph


news:
Bonjour à tous,
Chez certains utilisateurs, lorsque j'importe des données de type date
depuis une table Access, le format devient MM/JJ/AAAA au lieu de JJ/MM/AAAA.
Le format du champs de la table access est DATE/ABREGE.
Le format de la cellule de ma feuille Excel est Date (dd/mm/yyyy)
J'ai vérifié les paramètres régionaux - tout me semble correcte - format
date courte = JJ/MM/AAAA.

Y-a-t'il une solution à ce problème ?

Merci pour votre aide
Cordialement
Charles
MichD
Le #25306112
Bonjour,

Voici un exemple avec ADO (activex data object)

Seulement ces 3 lignes de code de la procédure ont
besoin d'être définies selon les paramètres de ton application.

CheminDb = "C:Mes documentsComptoir.mdb"
NomTable = "Employés"
Requete = "Select * From " & NomTable & ""

ESSENTIEL: AJOUT DE LA BIBLIOTHÈQUE :
'Microsoft activex data objects 2.8 library

'------------------------------------------
Sub ImporterDesDonnéesDeAccess()

'Si ta table dans Access contient un champ "OleObject"
'Il faut l'exclure de la requête...sinon ça va planter !!!

'Les champs "date" de la table Access vont apparaître
'dans Excel sous leur forme numérique avec la méthode
'CopyFromRecordSet version Excel 2000 et plus. Au besoin
'prévoir quelques lignes de code pour formatage

Dim X As Integer, C As Integer
Dim Cnt As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Rg As Range, Sh As Worksheet
Dim NbEnr As Long, CheminDb As String
Dim NomTable As String, NomFeuille As String
Dim Tblo As Variant, Requete As String

'------------------------VARIABLES À DÉFINIR-----------------------------
CheminDb = "C:Mes documentsComptoir.mdb"
NomTable = "Employés"
Requete = "Select * From " & NomTable & ""
'-----------------------------------------------------------------------------------
'La chaîne de connexion à une base de données Access
Cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CheminDb & ";"

'Ouverture du recordset
Rst.Open Requete, Cnt, adOpenStatic

'Si aucun enregistrement est trouvé lors de la requête
If Rst.RecordCount = 0 Then
MsgBox "Aucun enregistrement trouvé." & vbCrLf & _
"Fin de l'opération.", vbInformation + vbOKOnly, "Annulation"
' Ferme la connection et le recordset
Rst.Close: Cnt.Close
'Libère la mémoire vive occupée par les objets
Set Rst = Nothing: Set Cnt = Nothing
Set Rg = Nothing: Set sh = Nothing
Exit sub
End If

'Éviter le rafraîchissement de l'écran
Application.ScreenUpdating = False

'Conserve dans une variable le nom de la feuille active.
NomFeuille = ThisWorkbook.ActiveSheet.Name

'Ajoute une nouvelle feuille où seront acheminées les données
Set Sh = Worksheets.Add

'détermine la cellule supérieure gauche où
'le recordset va être copié
With Sh
Set Rg = .Range("A1")
End With

'Si tu es intéressé de récupérer directement les noms
'des champs de ton recordset, tu peux utiliser ce
'qui suit :

Do
Rg.Offset(, C) = Rst.Fields(C).Name
C = C + 1
X = X + 1
Loop Until X = Rst.Fields.Count

'Section copiant le recordset dans Excel

'La procédure va pouvoir choisir selon la version
'd'Excel d'installer laquelle des méthodes choisir.

'Un test sur la version Excel en cours ...
If Val(Application.Version)> 8 Then
'EXCEL 2000 or 2002: La méthode CopyFromRecordset
Rg.Offset(1).CopyFromRecordset Rst
Else
'EXCEL 97 ou antérieur: Méthode GetRows

' GetRows transforme le recordset en tableau de base 0
Tblo = Rst.GetRows
'Première dimension tableau = Champ du recordset
'Deuxième dimension Tableau = Données du recordset

'Détermine le nombre d'enregistrements
'Le +1 c'est pour tenir compte du tableau qui est de
'base 0 ... première cellule dans Excel est cells(1,1)
NbEnr = UBound(Tblo, 2) + 1

'Transpose le tableau(tblo) pour que la première dimension
'devienne les données et que sa présentation soit
'conforme lorsqu'il sera copié dans Excel
Rg.Offset(1).Resize(NbEnr, Rst.Fields.Count).Value =
TransposeSpecial(Tblo)
End If

'Redimensionnement des cellules.
Rg.CurrentRegion.Columns.AutoFit
Rg.CurrentRegion.Rows.AutoFit

'Sélection de la feuille au départ de la procédure
Worksheets(NomFeuille).Select

' Ferme la connection et le recordset
Rst.Close: Cnt.Close

'Libère la mémoire vive occupée par les objets
Set Rst = Nothing: Set Cnt = Nothing
Set Rg = Nothing: Set sh = Nothing
End Sub
'------------------------------------------

'Fonction requise par la procédure pour les
'versions antérieures à Excel 2000

'------------------------------------------
Function TransposeSpecial(ByRef Arr As Variant) As Variant
Dim A As Integer, B As Integer, Arr1() As Variant
Dim C As Integer, D As Integer
A = UBound(Arr, 1): B = UBound(Arr, 2)
ReDim Arr1(B, A)
For C = 0 To A
For D = 0 To B
Arr1(D, C) = Arr(C, D)
Next
Next
TransposeSpecial = (Arr1)
End Function
'------------------------------------------




MichD
---------------------------------------------------------------
Publicité
Poster une réponse
Anonyme