Bonjour
Comment importer une feuille excel dans une table Access en VB6 (et pas en VBA).
Je souhaite automatisé en VB6 la procédure d'import de fichier excel.
ça doit pourtant pas être compliqué car j'arrive bien à interéagir avec Acces en utilisant un lien ADO.
Voici pour l'instant mon code permettant d'aller chercher ma feuille excel et ma base Access;

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
40
'déclaration des variables ("wcheminXLS" stockera le chemin du fichier choisi) wchemin mdb, le chemin de la table Access au format MDB
Dim cnx As New adodb.Connection
dim wcheminXLS as string  
dim wcheminMDB as string  
 
Private Sub bouton_choisir_fichier_excel_Click()
 
    On Error Resume Next
 
'ouverture de la fenêtre "parcourir"  pour récupérer le fichier xls
    With CommonDialog
        .DialogTitle = "Choisir un fichier excel"
        .Filter = "excel (*.xls)|*.XLS"
        .InitDir = "d:"
        .ShowOpen
    End With
 
    wcheminXLS = CommonDialog.FileName
 
End Sub
 
Private Sub bouton_choisir_fichier_access_Click()
 
    On Error Resume Next
 
'ouverture de la fenêtre "parcourir"  pour récupérer le fichier mdb
    With CommonDialog
        .DialogTitle = "Choisir une base Access"
        .Filter = "Access (*.mdb)|*.MDB"
        .InitDir = "d:"
        .ShowOpen
    End With
 
    wcheminMDB = CommonDialog.FileName
 'connection à la base access      
    cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & wcheminMDB
 
    cnx.Close
 
end sub