Problème d'écriture dans une table

**novice06** · 18/04/2013, 10h14

bonjour,

petit souci d'écriture dans une table.
En suivant le code pas à pas avec F8 les données sont bonnes mais une fois le traitement fini, si j'ouvre la table les modifications n'ont pas été apportées.

la table Tbl_Fichiers contient 2 champs "Fichiers" et "Onglets"

Le champ "Fichier" contient l'adresse du fichier Excel sur lequel on compte le nombre d'onglets et normalement le code permet d'écrire ce nombre dans le champ "Onglets" correspondant.

Merci pour votre aide.
Bonne journée

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
Private Sub Commande1_Click()
 
Dim db As DAO.Database
Dim r As DAO.Recordset
Dim appExcel As Object
Dim NbOnglets As Long
 
DoCmd.SetWarnings False
 
Set db = CurrentDb
Set r = db.OpenRecordset("Tbl_Fichiers")
r.MoveFirst
While Not r.EOF
        Set appExcel = CreateObject("Excel.Application")
            appExcel.Workbooks.Open FileName:=r("Fichiers")
                NbOnglets = appExcel.sheets.Count
            appExcel.QUIT
        Set appExcel = Nothing
    r.Edit
    r("Onglets") = NbOnglets
    r.MoveNext
Wend
r.Close: Set r = Nothing
db.Close
 
Me.Traite_Onglets = "Traitement des Onglets effectué"
 
DoCmd.SetWarnings True
 
End Sub