Discussion :

[sanfour_walhan]

Bonjour
Je travaille sur une petite application que je dois exporter des donnees enregistrer dans un fichier excel vers ma base de donnees access.
vous avez une idee
Merci

[sihammaster]

Bonjour,

Voila un petit exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   Dim appExcel As Excel.Application
   Dim sheet As Excel.Worksheet
   Dim wbExcel As Excel.Workbook 'Classeur Excel
   appExcel = CreateObject("Excel.Application")
 
  wbExcel = appExcel.Workbooks.Open("Chemin") 'ouvrir le fichier xls
  sheet = appExcel.ActiveWorkbook.ActiveSheet
  sheet = wbExcel.Worksheets(1) 'se positionner sur la feuille cible
 
 For i = 1 To 100
   var= sheet.Cells(i, 1).Value  'recupere les données de la colonne A et la ligne i
'ton traitement de l'insertion dans la BDD
 next i

[sanfour_walhan]

Merci Siham pour ta réponse
Dois-je ajouter une référence ?

[sihammaster]

Bonjour,
En effet, pour ajouter la référence Excel, tu va sur ton projet (nom) un click droit, puis "ajouter une référence", dans la fenetre qui s'affiche, choisis l'onglet "COM", et chercher "Microsoft Excel 12.0 (sinon 5.0) Object Library"-->OK

Voila

[sanfour_walhan]

Merci siham je teste et je te repond

[sanfour_walhan]

salut
ca marche pas , y a t-il possibilité de le faire a l'aide d'une requete sql?