IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Import de données de Excel vers Access


Sujet :

VBA Access

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Août 2007
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 41
    Points : 37
    Points
    37
    Par défaut Import de données de Excel vers Access
    Bonjour,

    C'est encore moi. Décidément, je n'ai plus de chance avec excel/access depuis peu.

    Alors je vous explique mon problème: je veux importer des données d'un fichier excel vers une table access. J'ai créé ma table en tenant compte des étiquettes des colonnes du fichiers excel. Seulement, j'ai l'erreur suivante:

    Le champ 'F1' n'existe pas dans la table destination "GPRS_BSC_Temp"
    .

    Voici le code associé:

    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
    30
    31
    32
    Private Sub MAJ()
    Dim nameFile As String, periode As String
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
     
    nameFile = loadXLS
     
    If StrComp(nameFile, "") = 0 Then
        Exit Sub
    End If
     
     
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open(nameFile)
     
    periode = xlBook.Worksheets("Matrix sheet").Cells(1, 1).value
    xlBook.Worksheets("Matrix sheet").Cells(1, 1).value = "BSC"
    xlBook.Save
    xlBook.Close
     
     
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "GPRS_BSC_Temp", nameFile, True, "A1:I100"
     
    Set xlBook = xlApp.Workbooks.Open(nameFile)
    xlBook.Worksheets("Matrix sheet").Cells(1, 1).value = periode
    xlBook.Save
    xlApp.Quit
     
    Set xlBook = Nothing
    Set xlApp = Nothing
     
    End Sub
    J'ai joint à ce code le fichier Excel concerné et la structure de la table associée.

    Merci d'avance,
    Images attachées Images attachées  
    Fichiers attachés Fichiers attachés

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 543
    Points
    15 543
    Par défaut
    Ta question relève de VBA - Access. Je déplace ta discussion sur le bon forum

Discussions similaires

  1. Importation données de Excel vers Access (ADO)
    Par DAEM86 dans le forum Bases de données
    Réponses: 6
    Dernier message: 30/11/2012, 18h03
  2. Réponses: 5
    Dernier message: 03/06/2011, 13h57
  3. importer des données d'excel vers access
    Par nicolille dans le forum VBA Access
    Réponses: 8
    Dernier message: 15/02/2009, 19h41
  4. Importation de données d'Excel vers Access
    Par jolemoine dans le forum Access
    Réponses: 9
    Dernier message: 13/07/2007, 15h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo