modification db via excel

  • Initiateur de la discussion Initiateur de la discussion seb33
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

seb33

XLDnaute Junior
Bonjour,

ayant trouvé une solution d'exportation de données excel vers access, j'utilise le code suivant, qui fonctionne nickel pour la modification des données.

le hic, c'est que toutes les références sont modifiées, et non uniquement la ligne de la référence voulue
Sub Modif_projet_admin()

Dim conn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim new_value As String, ref As String, table As String, refe As String
Dim a As Byte

Application.ScreenUpdating = False
table = "Projet_admin"
Sheets("Calcul").Activate
Set conn = New ADODB.Connection

With conn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open "c:\\DBmodule.accdb"
End With
Set Rst = New ADODB.Recordset
Rst.Open table, conn, adOpenKeyset, adLockOptimistic

ref = Sheets("Calcul").Range("A76").Value
For a = 2 To 45
With Rst
.MoveFirst
.Find ("reference=" & Chr(34) & (ref) & Chr(34))
If Rst.EOF Or Rst.BOF Then
Rst.MoveLast
End If
new_value = Sheets("Calcul").Cells(77, a).Value
refe = Sheets("Calcul").Cells(76, a).Value
.Fields(refe) = new_value
.Update
End With
Next a
Rst.Close
conn.Close
Application.ScreenUpdating = True
End Sub

si une bonne ame trouve mon erreur, je suis preneur 🙄
merci d'avance
seb
 
Re : modification db via excel

sinon, j'ai pensais à une solution 'batarde': faire une table tampon et creer une macro dans access mettant à jour la table principale à partir de cette table tampon.

dans ce cas de figure, quelle est la macro à faire pour lancer une macro access?

Gracie mille
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
181
Réponses
2
Affichages
812
Réponses
4
Affichages
467
Retour