Discussion :

[Superpat9999]

Bonjour,
Auparavant j'exportais un montant Excel vers Access dans un champ unique; je remplaçais à chaque fois le montant précédent, ligne 16 17 18.
Mon code :

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
      Sub Y2_ExporterVersAccessExcelSoldeBanque()
          Dim Repertoire As String
          Dim Fichier As String
          Dim MonFichierAccess As Database
          Dim MaTableDansAccess As DAO.Recordset
          Fichier = "Courant_14-1.accdb"
 
 
11        Repertoire = "D:\Dropbox\Access\Travail\"
13        Set MonFichierAccess = OpenDatabase(Repertoire & Fichier)
14        Set MaTableDansAccess = MonFichierAccess.OpenRecordset("t_Compte", dbOpenTable)
15        Worksheets("Access").Activate
              MaTableDansAccess.Edit
 
16            MaTableDansAccess.Delete
17            MaTableDansAccess.AddNew
18            MaTableDansAccess.Fields("SoldeBanque") = Range("StatementSoldeBanque").Value
19            MaTableDansAccess.Update
20    MaTableDansAccess.Close
21    MonFichierAccess.Close
      End Sub

J'ai modifié mon fichier Access et j'ai ceci, je ne peux plus faire ce que je faisais :

Je veux qu'il remplace la somme du SoldeBanque d'après ID_CompteFK=1 ou autre nombre que je donne dans Excel.
Merci de votre aide