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 33 34 35 36 37 38 39
|
Private Sub Commande1_Click()
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim vtemp As Variant, Chemin As String
Dim mbd As Database, TRecord As Recordset
Set mbd = CurrentDb()
Set TRecord = mbd.OpenRecordset("Table1")
'J'initialise mes variables
Set xlApp = CreateObject("Excel.Application")
Chemin = "C:\Mes Documents\Quest.xls"
'xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(Chemin)
Set xlSheet = xlBook.Sheets("Feuil1")
'Ajout des données d'Excel dans la table
TRecord.AddNew
TRecord("Langue") = xlSheet.Cells(18, 5)
TRecord("DateCreation") = xlSheet.Cells(20, 5) & " " & xlSheet.Cells(21, 5) & " " & xlSheet.Cells(22, 5)
TRecord("LibelleAssoc") = xlSheet.Cells(23, 5)
TRecord("Pays") = xlSheet.Cells(24, 5)
TRecord("TypeStruct") = xlSheet.Cells(26, 5)
TRecord.Update
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
MsgBox "Fin de la procédure. :)"
End Sub |
Partager