Sub MAJ_BD1_Click()
Dim Nom_Aff As String
Dim Num_Aff As String
Dim cnn As ADODB.Connection
Nom_Aff = "J'ai Réussi, Youpy"
Num_Aff = "15987"
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\projeco-s02\PROJECO REALISATIONS\Divers Projeco\Energie + détail isolation\Programme\BaseDonne.mdb"
Sql = "INSERT INTO Liste_Affaire (Num_Affaire,Nom_Affaire) VALUES('" & Nom_Aff & "','" & Num_Aff & "')"
cnn.Execute Sql
cnn.Close
Set cnn = Nothing
End Sub
Sub MAJ_BD_Click()
Dim Nom_Aff As String
Dim Num_Aff As String
Nom_Aff = "J'ai Réussi, Youpy"
Num_Aff = "15987"
ChDir ActiveWorkbook.Path
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\projeco-s02\PROJECO REALISATIONS\Divers Projeco\Energie + détail isolation\Programme\BaseDonne.mdb"
rs.Open "Liste_Affaire", cnn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Num_Affaire = Nom_Aff
rs!Nom_Affaire = Num_Aff
rs.Update
rs.Close
cnn.Close
End Sub