Exporter Excel vers access

Version imprimable

1 pièce(s) jointe(s)

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:

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 :
Pièce jointe 592616
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

Il faut d'abord sélectionner le bon enregistrement.
Lorsque le code est dans Access :
Code:

1 2 3 4 5 NumeroEnregistrement = 2 ' Celui qu'on vise MaTable.FindFirst "[ID_CompteFK] = " & NumeroEnregistrement MaTable.Edit ' Etc ...
Ca devrait marcher dans Excel.

09/03/2021, 12h07
Superpat9999

1 pièce(s) jointe(s)

Merci Doaryn pour ta eéponse, malheureusement, cela ne fonctionne pas :

Pièce jointe 592946
09/03/2021, 17h22
Doatyn

Dommage :(
Il faut trouver un autre moyen pour atteindre le bon enregistrement. Je n'ai jamais attaqué Access depuis un fichier Excel, je fais l'inverse.
09/03/2021, 17h33
Thumb down

Bonjour,
Il faut utiliser filter et tester eof!

Merci à tous, j'ai trouvé :

Code:

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
      Sub ExporterVersAccessExcelSoldeBanque()
          Dim Repertoire As String
          Dim Fichier As String
          Dim MonFichierAccess As Database
          Dim MaTableDansAccess As DAO.Recordset
          Dim NumeroEnregistrement As Long
          Dim LgSoldeBanque As Double
          Dim LgID_CompteFK As Long
          Dim NbEnreg As Long
          Dim NbPrem As Long
          Fichier = "Courant_15.accdb"
10        NomProcedure = "ExporterVersAccessExcel"
11        Repertoire = "D:\Dropbox\Access\Travail\"
13        Set MonFichierAccess = OpenDatabase(Repertoire & Fichier)
14        Set MaTableDansAccess = MonFichierAccess.OpenRecordset("t_Compte", dbOpenTable)
          NumeroEnregistrement = 1 ' Celui qu'on vise
15        Worksheets("Access").Activate
          NbEnreg = MaTableDansAccess.RecordCount
          For NbPrem = 1 To NbEnreg
              LgID_CompteFK = MaTableDansAccess.Fields("ID_CompteFK")
              If LgID_CompteFK = NumeroEnregistrement Then
                  LgSoldeBanque = MaTableDansAccess.Fields("SoldeBanque")
                  Debug.Print LgID_CompteFK
                  Debug.Print LgSoldeBanque
                  MaTableDansAccess.Edit
18                MaTableDansAccess.Fields("SoldeBanque") = Range("StatementSoldeBanque").Value
19                MaTableDansAccess.Update
              End If
              MaTableDansAccess.MoveNext
22        Next NbPrem 'Incrémente de 1
20        MaTableDansAccess.Close
21        MonFichierAccess.Close
      End Sub

bonjour,
si ta table contient 1GO de données tu vas attendre un mois pour parcourir tous les enregistrements?

Code:

1
2
3
4
5
6
7
Set MaTableDansAccess = MonFichierAccess.OpenRecordset("t_Compte", dbOpenTable)
MaTableDansAccess.Filter = "[ID_CompteFK]=" & NumeroEnregistrement
If Not MaTableDansAccess.EOF Then
    MaTableDansAccess.Edit
    MaTableDansAccess.Fields("SoldeBanque") = Range("StatementSoldeBanque").Value
    MaTableDansAccess.Update
End If

Code:

1
2
3
4
5
6
7
Set MaTableDansAccess = MonFichierAccess.OpenRecordset(" select * from t_Compte where [ID_CompteFK]=" & NumeroEnregistrement)
 
If Not MaTableDansAccess.EOF Then
    MaTableDansAccess.Edit
    MaTableDansAccess.Fields("SoldeBanque") = Range("StatementSoldeBanque").Value
    MaTableDansAccess.Update
End If

10/03/2021, 17h05
Superpat9999

Merci Thumb down de ta correction.
Je m'améliore à chaque fois avec vos conseils. Là j'avais que 3 lignes.
11/03/2021, 11h33
Superpat9999

1 pièce(s) jointe(s)

Citation:

Envoyé par Thumb down

bonjour,
si ta table contient 1GO de données tu vas attendre un mois pour parcourir tous les enregistrements?

Bonjour, je reviens vers toi, le premier exemple ne fonctionne pas, toujours le même problème qu'avec Doatyn.

Pièce jointe 593115

Mais heureusement le second exemple est parfait et fonctionne correctement. :merci:
11/03/2021, 12h31
Thumb down

Bonjour,
désolé mais le principal c'est d'avoir la solution!