Salut,
J'ai un pb car je veux importer des donnees de excel vers access mais ca marche pas, voila mon code:
Public ClasseurXLS As Object
Private Sub Command1_Click()
Set db = OpenDatabase("c:\BDD\ebauche.mdb")
Set ClasseurXLS = CreateObject("Excel.application")
'Initialisation Emplacement du fichier à importer
If (Text1 <> "") Then
PathFic = Text1
Else
réponse = MsgBox("Emplacement du fichier à importer manquant", vbExclamation + vbOKOnly, "Attention !!!")
Exit Sub
End If
'Initialisation Nom du fichier à importer
If (Text2 <> "") Then
NomFic = Text2
NomFic = NomFic & ".xls"
Else
réponse = MsgBox("Nom du fichier à importer manquant", vbExclamation + vbOKOnly, "Attention !!!")
Exit Sub
End If
'Ouverture du classeur d'importation
ClasseurXLS.Workbooks.Open PathFic & NomFic
ClasseurXLS.Visible = True
i = 2
Do While ClasseurXLS.cells(i, 1) <> ""
'Recuperation des données lignes par lignes
iNom_client = ClasseurXLS.cells(i, 1)
iPrénom_client = ClasseurXLS.cells(i, 2)
iTel_client = ClasseurXLS.cells(i, 3)
iCode_hotline = ClasseurXLS.cells(i, 4)
iNom_de_lenseigne = ClasseurXLS.cells(i, 5)
iDatedachat = ClasseurXLS.cells(i, 6)
idureecontrat = ClasseurXLS.cells(i, 7)
'Insertion des données dans la table
SQL = "insert into Client ([Nom client],[Prénom client],[Tel client]) values (' " & iNom_client & " ' , ' " & iPrénom_client & " ' , ' " & iTel_client & " ')"
db.Execute SQL
SQL = "SELECT MAX (N°client) FROM Client"
rs = db.OpenRecordset(SQL)
temp = rs.Fields("N°client").Value
SQL = "insert into Contrat ([Code hotline],[Nom de l'enseigne],[Durée du contrat],[Date d'achat de l'ordinateur],[Nom client],[N°cli]) values (' " & iCode_hotline & " ' , ' " & iNom_de_lenseigne & " ' , ' " & idureecontrat & " ' , ' " & iDatedachat & " ',' " & iNom_client & " ',' " & temp & " ')"
db.Execute SQL
i = i + 1
Loop
'Fermeture du classeur d'importation
ClasseurXLS.Workbooks.Close
MsgBox ("Importation des données effectuée")
End Sub
et ca merde au recordset, ca me dit que ca ne gere pas cette methode, pourtant j'en ai besoin car c'est cle etrangere de ma table, ca relie ma table client et ma table contrat
AIDEZ MOI SVP!!!!!!!!!!
Merci @ bientot.