IMPORTATION DE DONNÉES EXCEL SOUS ACCESS

Commentaire de farid91 le 14/02/2002 10:35:55

C bien. Connait tu une facon pour exporte une table Access vers SQL Server par programmation bien sur. Si oui ecrit moi un message merci.

Commentaire de tbbuim1 le 27/11/2003 11:55:25

Pas mal, mais il existe une manière beaucoup plus efficace pour arriver au même résultat.
il s'agit d'utiliser le DAO.
On crée un objet ADO puis à l'aide de AddNew, on rajoute un nouvel enregistrement. En y ajoutant les cellules du fichier excel bien entendu. Ceci à le mérite d'accélérer la manip sans avoir besoin de faire un seul "Insert into". Et ce qi serait bien, c'est que dans ta méthode, tu rajoutes la feuille que l'on veut copier. Car si on est sur un classeur qui contient plusieurs feuilles, ça peut poser de gros problèmes... Mais c'était bien trouvé quand même. Bravo

Commentaire de valeryht le 06/09/2004 17:50:29

super ton code
g eu le mm pb avec
sql = "create table " & NomTable & "(Nom_Emp string, DateJ date, Num_affaire integer, Num_phase integer, Nb_heures integer, Commentaire string)"

mais je ne voulais que passer les données en access ma table etait deja creer
j'ai un autre pb
voila g une Colonne dans ma table nommée  Nom_Client qui stocke le nom des clients mais j'ai des clients de format nom *************(******) quand je lance mon app elle commence à faire l'importation mais dès qu'elle trouve un nom de client de ce format me sort une erreur
erreur syntaxe (operateur abscent) dans l'expression "*************(*********'
alors le nom du client avec des ()
je t'envoie le code pour que tu puisse jté un coup d'oeil
Option Explicit
Public ClasseurXLS As Object
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub connection_bd()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; data source=C:\WINDOWS\Desktop\Livraison\Delivery.mdb"
cn.Open
If cn.State = adStateOpen Then
MsgBox "connection etablie"
Else
MsgBox "connection echouee"
End If
End Sub

Private Sub Cmd_Importation_Click()
Dim PathFic As String
Dim NomFic As String
Dim NomFicXLS As String
Dim NomTable As String
Dim iCode_Client As String
Dim iNom_Client As Variant
Dim iCode_Facture As String
Dim iMontant_Facture As Currency
Dim iNum_Bureau As Integer
Dim i As Integer
Dim iType_Recu As String
Dim sql As String
Dim iDate_Transac As Date

With cn
Set ClasseurXLS = CreateObject("Excel.application")

'Initialisation Nom du fichier à importer
If (Text1.Text <> "") Then
NomFic = Text1
NomFic = NomFic & ".xls"
Else
MsgBox ("Nom du fichier à importer manquant"), vbExclamation + vbOKOnly, "Attention !!!"
Exit Sub
End If

'Initialisation Emplacement du fichier à importer
If (Text2.Text <> "") Then
PathFic = Text2
Else
MsgBox ("Emplacement du fichier à importer manquant"), vbExclamation + vbOKOnly, "Attention !!!"
Exit Sub
End If


'Initialisation Nom de la table d'importation
If (Text3.Text <> "") Then
NomTable = Text3
Else
MsgBox ("Nom de la table d'importation manquant"), vbExclamation + vbOKOnly, "Attention !!!"
Exit Sub
End If

'Ouverture du classeur d'importation
ClasseurXLS.Workbooks.Open "C:\windows\Desktop\Livraison\Factures.xls" '& NomFic

'Creation d'une table d'importation
'sql = "create table "&FACRTURE1&"(ID as autoNumber, Code_Facture as string, Code_Client as String, Nom_Client as string, Montant_Facture as double,Num_Bureau as Integer,Type_Recu as String,Date_Transact as date, Commentaire string)"
'dbs.Execute sql


i = 2
Do While ClasseurXLS.cells(i, 1) <> ""
'Recuperation des données lignes par lignes
iDate_Transac = ClasseurXLS.cells(i, 1)
iCode_Facture = ClasseurXLS.cells(i, 2)
iCode_Client = ClasseurXLS.cells(i, 3)
iNom_Client = ClasseurXLS.cells(i, 4)
iMontant_Facture = ClasseurXLS.cells(i, 5)
iNum_Bureau = ClasseurXLS.cells(i, 6)
iType_Recu = ClasseurXLS.cells(i, 7)

'Insertion des données dans la table
sql = "INSERT INTO FACTURES (Date_Transac,Code_Facture, Code_Client, Nom_Client, Montant_Facture, Num_Bureau, Type_Recu) values  ('" & iDate_Transac & "', '" & iCode_Facture & "', '" & iCode_Client & "' , '" & iNom_Client & "' , '" & iMontant_Facture & "', '" & iNum_Bureau & "', '" & iType_Recu & "');"
'sql = "INSERT INTO FACTURES (Date_Transac,Code_Facture, Code_Client, Nom_Client, Montant_Facture, Num_Bureau, Type_Recu) values ('" & VDate_Transac & "', '" & VCode_Facture & "', '" & VCode_Client & "' , '" & VNom_Client & "' , '" & VMontant_Facture & "', '" & VNum_Bureau & "', '" & VType_Recu & "');"

cn.Execute sql
i = i + 1
Loop
End With
'Fermeture du classeur d'importation
ClasseurXLS.Workbooks.Close
MsgBox ("Importation des données effectuée")
End Sub
Private Sub Form_Load()
Call connection_bd
End Sub

Commentaire de guyonstephane le 15/02/2005 00:45:22

Salut,
J'ai essayé ton code mais je n'y arrive pas
set dbs=CurrentDB   ça plante
cela veut dire quoi ?

Commentaire de guyonstephane le 15/02/2005 23:20:09

Merci,
Ah oui, là je n'étais pas du tout dans le coup.
Merci

Commentaire de adil_ista le 12/03/2006 02:23:10

Je voudrais imorter une feuil excel sur acces et trouver toujours dernier mise  a jour chez access , je cherche ca pour mon stage,je voulais soit par code en vb.net soit par autre chose
si possible je serais content de ca

Commentaire de wise_dot le 01/12/2006 15:02:47

Bonjour,
j'ai essayé ton code,mais un message d'erreur est signalé
le voila

"Informations supplémentaires : L'opérateur n'est pas valide pour type 'Range' et chaîne ""."
des idées?
voila le code que j'ai utilisé

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim iNom_emp(,) As String
        'Titre
        OpenFileDialog1.Title = "Chargement"
        'Extension par défaut
        OpenFileDialog1.DefaultExt = "xls"
        'Filtres
        OpenFileDialog1.Filter = "fichiers excels(*.xls)|*.xls"
        OpenFileDialog1.FilterIndex = 1
        'Ouverture boite de dialogue OpenFile
        If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
            TextBox2.Text() = OpenFileDialog1.FileName
        End If
        Dim fichier_excel As String
        fichier_excel = TextBox2.Text.Substring(TextBox2.Text.LastIndexOf("\") + 1)
        ClasseurXLS = CreateObject("Excel.application")
        'Ouverture du classeur d'importation
        Try
            ClasseurXLS.Workbooks.Open(TextBox2.Text)
        Catch ex As Exception
            MsgBox("erreur")
        End Try
        Dim i As Integer
        i = 2
        Dim a As String
        Do While ClasseurXLS.cells(i, 1) <> ""
            'Recuperation des données lignes par lignes
            iNom_emp(i, 0) = ClasseurXLS.cells(i, 1)
            iNom_emp(i, 1) = ClasseurXLS.cells(i, 2)
            iNom_emp(i, 2) = ClasseurXLS.cells(i, 3)
            iNom_emp(i, 3) = ClasseurXLS.cells(i, 4)
            iNom_emp(i, 4) = ClasseurXLS.cells(i, 5)
            iNom_emp(i, 5) = ClasseurXLS.cells(i, 6)
            'Insertion des données dans la table
            i = i + 1
        Loop
    End Sub

Commentaire de Selune6666 le 02/05/2007 11:39:13

bonjour j'ai un léger problème.
Voila j'utilise ce code pour importer ma table excel dans ma table access.
Le chemin du fichier a ouvrir je le récupere grace a une boite de dialogue windows qui me permet de choisir le fichier a importer.
Ce chemin s'affiche dans une textbox que j'ai appelé URL
d'ou mon code ,


Private Sub Commande3_Click()
Dim Nom as string
.
.
.

Set dbs = CurrentDB
Set ClasseurXLS = Createobject("Excel.application")
   If (URL.value<>"") then
     Nom=URL
   else
     msgbox"URL du ficier blablabla...."
   exit sub
   end if

ClasseurXLS.workbooks.Open Nom

Et la problème il me dit:
erreur 1004
la méthode open de la classe workbooks a échoué.
Je precise que Nom prend bien la valeur situé dans la texte box nommé URL étant donné que quand elle n'est pas remplie il affiche la Msgbox

Je ne sais pas comment régler ce problème pouvez vous m'éclairer?

Commentaire de Renfield le 04/07/2007 11:23:56 administrateur CS

remplace simplement

If (Text1.Value <> "") Then
NomFic = Text1
NomFic = NomFic & ".xls"
Else
réponse = MsgBox("Nom du fichier à importer manquant", vbExclamation + vbOKOnly, "Attention !!!")
Exit Sub
End If


par

NomFic = "Agriculture.xls"  


vu que ton nom est en dur...