javi007
Messages postés8Date d'inscriptionlundi 17 décembre 2001StatutMembreDernière intervention30 avril 2003
-
31 janv. 2002 à 16:21
cap0002004
Messages postés15Date d'inscriptionmardi 13 avril 2004StatutMembreDernière intervention 6 août 2004
-
30 juil. 2004 à 15:16
bonjour à tous ,
je désire importer des données contenues dans une feuille excel 2000 vers une base de données access 2000 et ce en cliquant sur un bouton dans mon application vb 6.0...
auriez vous des solutions ???
du code est le bien venu
on m'a dit qu'avec la fonction getobject c'est possible mais ca marche pas comme j'ai fais???
cs_Cassidy
Messages postés39Date d'inscriptionvendredi 25 janvier 2002StatutMembreDernière intervention11 mai 2005 6 févr. 2002 à 10:29
Ouais, bon comme promis, je te tiens au courant...
Personnellement je cherchais à importer des données d'une feuille excel2000 vers access2000 en creant un code vba sous access, mais je pense que le code suivant sera quand même susceptible de t'aider :
Public ClasseurXLS As Object
Private Sub Cmd_Importation_Click()
Dim PathFic As String
Dim NomFic As String
Dim NomFicXLS As String
Dim NomTable As String
Dim iNom_emp As String
Dim iCommentaires As String
Dim iDateJ As Date
Dim iNum_affaire As Integer
Dim iNum_phase As Integer
Dim i As Integer
Dim iNb_heures As Integer
Dim sql As String
Set dbs = CurrentDb
Set ClasseurXLS = CreateObject("Excel.application")
'Initialisation Nom du fichier à importer
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
'Initialisation Emplacement du fichier à importer
If (Text2.Value <> "") Then
PathFic = Text2
Else
réponse = MsgBox("Emplacement du fichier à importer manquant", vbExclamation + vbOKOnly, "Attention !!!")
Exit Sub
End If
'Initialisation Nom de la table d'importation
If (Text3.Value <> "") Then
NomTable = Text3
Else
réponse = MsgBox("Nom de la table d'importation manquant", vbExclamation + vbOKOnly, "Attention !!!")
Exit Sub
End If
'Fermeture du classeur d'importation
ClasseurXLS.Workbooks.Close
MsgBox ("Importation des données effectuée")
End Sub
comme tu peu le remarquer j'ouvre excel, je balaye les cellules qui m'interessent (cad les 6 premieres colonnes) lignes par ligne
je stocke les données dans des variable et je fais des Insert (Dans une table crée par ma proc)
Pour toi sachant que tu veux une appli sous vb6.0
il va falloir que tu ouvre un fichier access et que tu jongle entre Excel et access
Voilà, j'espère que ça pourrat t'aider, bonne chance
A + Cass