Je voudrais tout d'abord remercier du fond du coeur toutes les personnes qui m'ont aidée sans eux je n'y serait jamais arrivé!
Voici mon code pour ceux que ça interesse. Tout fonctionne comme je le desirais! En tout cas pour aujourd'hui!!
Sub exportbdd()
'
' exportbdd Macro
' Macro enregistrée le 14/04/2005 par DUBOIS-15314
'
' EXPORTATION DANS ACCESS de CHANGEMENTs DE VALEURS DE CHAMPS
Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim fld As ADODB.Field
Dim i As Long
ActiveSheet.Unprotect
Application.ScreenUpdating = False
' Création de l'objet Connexion
Set Conn = New ADODB.Connection
With Conn
' Définition du fournisseur OleDB pour la connexion
.Provider = 'Microsoft.JET.OLEDB.4.0'
' Ouverture d'une connexion
.Open ThisWorkbook.Path & '\\bd1.mdb'
End With
Set rsT = New ADODB.Recordset
rsT.Open 'Imprimante', Conn, adOpenKeyset, adLockOptimistic
nbre = Range('D65536').End(xlUp).Row
lig = 2
While lig <= nbre
numero = Cells(lig, 4)
nouvgrp = Cells(lig, 7)
With rsT
.MoveFirst
'recherche la fiche concernée
.Find ('Adresse_IP=' & (numero))
'recherche valeur vide
If rsT.EOF Then
MsgBox 'valeur ' & numero & ' inconnue'
'ActiveSheet.Protect
rsT.Close
Conn.Close
Exit Sub
End If
' inscrit les changements
.Fields('Save_NdP') = nouvgrp
.Update
End With
lig = lig + 1
Wend
'ActiveSheet.Protect
Conn.Close
End Sub