Problème Export Excel to Access
Bonjour tout le monde,
J'ai un petit souci sur vba, vu que je suis à peut près débutant.
J'ai un classeur Excel, appelé Classeur1.
Dans ce classeur, j'ai une seule feuille de calcul, dans lquelle j'ai mis des prénoms les uns après les autres dans la premiere colonne A.
Je veux exporter ce fichier dans une table Access que j'appelle Famille, que j'ai déjà créé sous access, et qui contient deux champs,id_personne et Prenom.
J'ai écris le code suivant dans Microsoft Visual Basic mais en passant par ma base Access :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Sub DAOFromExcelToAccess()
Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim deb As Integer
Set Db = CurrentDb
Set rs = Db.OpenRecordset("Ma Famille", dbOpenTable)
deb = 1
Do While Len(Range("A" & deb).Formula) > 0
With rs
.AddNew
.Fields("Prenom") = Range("A" & deb).Value
.Update
End With
deb = deb + 1
Loop
rs.Close
Set rs = Nothing
Db.Close
Set Db = Nothing
End Sub |
C'est just epour fair eun petit test et voir comment ça marche.
Comme je sui spresque débutant, je suis sur que l'erreur est très bête, mais je ne la trouve pas.
Quand Je clique sur Débogage, compiler GestionCollab( Nom de la base), il m'affiche le message suivant :
Fonction range non définie.
Je vous remercie d'avance pour votre aide.
