Je connais bien Access et je souhaite utiliser Libreoffice Base.
Mon premier essai consiste a lire une Table nommée IMPORTATION provenant d’un fichier excel et créer une Table ECRITURES à partir des données de la Table IMPORTATION
J’ai créé une Macro ci après lancée depuis un bouton de formulaire
et sur la ligne
- D1 = DB.createdynaset(“IMPORTATION”)
-J’ai le message Erreur d’exécution BASIC.
Variable d’objet non définie.
MERCI DE VOTRE AIDE
Sub IMPORTER
Dim DB as Object
Dim str as string
Dim D1 As Object
Dim D4 As Object
Dim TOTAL As Long
Let Compteur = 0
Set DB = CurrentDb()
D1 = DB.createdynaset(“IMPORTATION”)
let TOTAL = 0
D1.MoveFirst
do until D1.EOF
D4.AddNew
Let D4.[Date] = D1.[Date]
…
Let Total = Total + 1
D4.Update
D1.MoveNext
Loop
MsgBox (TOTAL & " Ecritures ajoutées ")
End Sub