exporter des donnees excel vers unbd access

j'ai un prog en vb qui me construit ma feuille excel , je remplis certaines cellules avec des données j'enregitre ce doc comme fichier excel
maintenant j'aimerais savoir s'il est possible de recuperer les données saisies dans ma feuille excel pour les mettre dans une bd access ??

merci

Oui avec une connection ado pour excel et une autre pour access
tu geres ton fichier excel comme une base de données avec un recordset
et tu inseres dans access avec des insert et avec la connection2

Voila



-------------------------------
Réponse au message :
-------------------------------

> j'ai un prog en vb qui me construit ma feuille excel , je remplis certaines cellules avec des données j'enregitre ce doc comme fichier excel
> maintenant j'aimerais savoir s'il est possible de recuperer les données saisies dans ma feuille excel pour les mettre dans une bd access ??
>
> merci

Ou tu peut importer ta feuille excel dans une base access pour la transformer en une table.
Va voir ma source elle t'expliquera des trucs :

http://www.vbfrance.com/article.aspx?Val=9300

Si tu comprend pas quelque chose repond moi.
A+


-------------------------------
Réponse au message :
-------------------------------

> Oui avec une connection ado pour excel et une autre pour access
> tu geres ton fichier excel comme une base de données avec un recordset
> et tu inseres dans access avec des insert et avec la connection2
>
> Voila
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > j'ai un prog en vb qui me construit ma feuille excel , je remplis certaines cellules avec des données j'enregitre ce doc comme fichier excel
> > maintenant j'aimerais savoir s'il est possible de recuperer les données saisies dans ma feuille excel pour les mettre dans une bd access ??
> >
> > merci
>

Le probleme de ton source de liaisons il fonctionne avec VBA access.

Donc si tu veux le faire fonctionner il faut créer un object access
et appeller les methodes d'access.
(que access soit installer sur la machine ? incertain)

Il n'est pas exploitable directement dans visual basic

Mais ta méthode est je pense plus rapide
et plus simple (c'est sur :-) à coder

Il y a souvent plusieurs methodes pour faire quelques choses en programmation, le plus dur est de trouver la meilleure :-)


-------------------------------
Réponse au message :
-------------------------------

> Ou tu peut importer ta feuille excel dans une base access pour la transformer en une table.
> Va voir ma source elle t'expliquera des trucs :
>
> http://www.vbfrance.com/article.aspx?Val=9300
>
> Si tu comprend pas quelque chose repond moi.
> A+
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Oui avec une connection ado pour excel et une autre pour access
> > tu geres ton fichier excel comme une base de données avec un recordset
> > et tu inseres dans access avec des insert et avec la connection2
> >
> > Voila
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > j'ai un prog en vb qui me construit ma feuille excel , je remplis certaines cellules avec des données j'enregitre ce doc comme fichier excel
> > > maintenant j'aimerais savoir s'il est possible de recuperer les données saisies dans ma feuille excel pour les mettre dans une bd access ??
> > >
> > > merci
> >
>

Je suis totalement d'accord avec toi.


-------------------------------
Réponse au message :
-------------------------------

> Le probleme de ton source de liaisons il fonctionne avec VBA access.
>
> Donc si tu veux le faire fonctionner il faut créer un object access
> et appeller les methodes d'access.
> (que access soit installer sur la machine ? incertain)
>
> Il n'est pas exploitable directement dans visual basic
>
> Mais ta méthode est je pense plus rapide
> et plus simple (c'est sur :-) à coder
>
> Il y a souvent plusieurs methodes pour faire quelques choses en programmation, le plus dur est de trouver la meilleure :-)
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Ou tu peut importer ta feuille excel dans une base access pour la transformer en une table.
> > Va voir ma source elle t'expliquera des trucs :
> >
> > http://www.vbfrance.com/article.aspx?Val=9300
> >
> > Si tu comprend pas quelque chose repond moi.
> > A+
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Oui avec une connection ado pour excel et une autre pour access
> > > tu geres ton fichier excel comme une base de données avec un recordset
> > > et tu inseres dans access avec des insert et avec la connection2
> > >
> > > Voila
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > j'ai un prog en vb qui me construit ma feuille excel , je remplis certaines cellules avec des données j'enregitre ce doc comme fichier excel
> > > > maintenant j'aimerais savoir s'il est possible de recuperer les données saisies dans ma feuille excel pour les mettre dans une bd access ??
> > > >
> > > > merci
> > >
> >
>

comment faire pour extraire des données de VB et les stocker dans une Base de données Access (utilisant par exemple un algo d'indexation TPR-star): INDEXATION...
merci

etudiante en génie logiciel

[ Lien ]

Dim wd As Object, I As Long, Ligne As Long, N_Lignes As Long
Dim DB As DAO.Database, RS As Recordset, I As Long, J As Long
Set DB = gwsMainWS.OpenDatabase("C:\Documents and Settings\paul\Bureau\Comptoir.mdb", False, gnReadOnly, "")
Set wd = CreateObject("Excel.application")
wd.Workbooks.Open ("C:\Documents and Settings\paul\Bureau\Comptoir.mdb")

wd.Sheets("Clients").Activate
Ligne = 1   'Ligne Nom des champs
Set RS = DB.OpenRecordset("Clients")
With RS
    If RS.RecordCount = 0 Then
         Beep
         RS.Close
         DB.Close
         wd.Application.Quit: Set wd = Nothing
         Exit Sub
       Else
         .MoveLast
         .MoveFirst
         N_Lignes = .RecordCount
         Do Until RS.EOF
            For I = 1 To N_Lignes + 1
            Ligne = Ligne + 1
                 For J = 0 To RS.Fields.Count - 1
                    wd.Cells(Ligne, J + 1).Value = RS.Fields(J)
                 Next
            RS.MoveNext
            Next
         Loop
    End If
End With
RS.Close
DB.Close
wd.ActiveWorkbook.Save
wd.Workbooks.Close
wd.Application.Quit: Set wd = Nothing
mailto:paul.ablasou@wanadoo.fr

[ Lien ]

Sub ImportDirectBaseExcel(ByVal sTable As String, ByVal sSource As String)
Dim DB As DAO.Database, RS As DAO.Recordset, DBX As DAO.Database, RRS As DAO.Recordset
Set DBX = OpenDatabase(sSource, False, gnReadOnly, "Excel 5.0;")
Set RSX = DBX.OpenRecordset(sTable & "$")
Set DB = OpenDatabase("C:\Documents and Settings\paul\Bureau\Comptoir.mdb", False, gnReadOnly, "")
Set RSS = DB.OpenRecordset(sTable)
RSX.RecordCount > 0
Do
RRS.AddNew
For I = 0 To RSS.Fields.Count - 1
RRS.Fields(I).Value = RSX.Fields(I).Value
Next
RRS.Update
RRS.Move 0, RRS.LastModified
RRS.Close
RSX.MoveNext
Loop Until RSX.EOF
End If
RSX.Close
End Sub

mailto:paul.ablasou@wanadoo.fr