Mettre a jour access a partir de Excel

Bonjour

J'ai une base de donné access tbd elle contient plusieur table, Semaine1-> semaine52

dans chaque table une colonne qui s'appel code regat qui presente la clé primaire de la table, chaque colonne dans ma table présente un indicateur qui vien d'un fichier excel a part

je veut mettre a jour les colonne de ma table sur access a partir d'un fichier excel , et que les resultats se mettent en fonction de mes code regat

je vous met une photo de la base access et une photo de mon fichier excel qui contien mon premier indicateur

pouvez vous m'aider a faire une macro qui permet de mettre a jour mes colonne sur access a partir de excel

Merci d'avance pour votre aide

Help !!!!

bonjour

c'est plutôt au logiciel d'arrivée de lire ou importer depuis le logiciel contenant les données

ta question est donc relative à Access

voir un forum consacré à Access

bonne journée

Bonjour à tous,

Voici un fichier excel de démo qui se synchronise avec une base Access

Plus d'explications sur mon blog => http://tatiak.canalblog.com/archives/2017/10/29/35815984.html

Pierre

Merci a tous pour vos réponses

voici un code que j'ai fait mais , il ne répond pas a mon besoin , parceque il me crée des nouveau enregistrements et moi je veut mettre a jour mes enregistements en fonction de la premiere colonne

qq1 peut m'aider a adabter ce bout de code ?

Merci

Sub ExportInitialtsationdonnée()

' exports data from the active worksheet to a table in an Access database this procedure must be edited before use

Dim Cn As ADODB.connection, rs As ADODB.recordSet, r As Long
' connect to the Access database
Set Cn = New ADODB.connection
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "Data Source=C:\Users\pcfj672\Desktop\Tableau de bord\tbd.accdb;"
' open a recordset
Set rs = New ADODB.recordSet

rs.Open "Semaine1", Cn, adOpenKeyset, adLockOptimistic, adCmdTable
 ' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
'.Fields("CodeRegat") = Range("A" & r).Value
'.Fields("DEX") = Range("B" & r).Value
'.Fields("Departement") = Range("C" & r).Value
'.Fields("DO") = Range("D" & r).Value
'.Fields("Etablissement") = Range("E" & r).Value
'.Fields("site") = Range("F" & r).Value
.Fields("TFC_Réception_J1") = Workbooks("BASE ETAB.xls").Sheets("Feuil1").Range("B" & r).Value
' add more fields if necessary...
 .Update ' stores the new record

 End With

r = r + 1 ' next row
 Loop

rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing

End Sub

je vous met en PJ le fichier excel que je veut importer pour mettre a jour ma BD

Merci d'avance