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

[Doatyn]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ca devrait marcher dans Excel.

[Superpat9999]

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

[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.

[Thumb down]

Bonjour,
Il faut utiliser filter et tester eof!

[Superpat9999]

Merci à tous, j'ai trouvé :

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
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

[Thumb down]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 Autre possibilité :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Superpat9999]

Merci Thumb down de ta correction.
Je m'améliore à chaque fois avec vos conseils. Là j'avais que 3 lignes.

[Superpat9999]

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.



Mais heureusement le second exemple est parfait et fonctionne correctement.

[Thumb down]

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