Ajouter un Nouvel Enregistrement (Méthode ADO)

Bonjour

Toujours dans mon apprentissage de mis à jour via ADO (tests très simple).

Je parviens enfin à importer une BD, à modifier un enregistrement mais je n'arrive pas à ajouter un nouvel enregistrement (première ligne vide) dans la feuille LOG d'un classeur fermé. Les données à intégrer sont dans le classeur actif en feuille 13

Aucun message d'erreur, pas de bug, rien ne se passe tout simplement. Ça fait des plombes que j'y suis ...

Sub testajout()
Dim val1 As String
Dim val2 As String

val1 = Sheets(13).Cells(1, 1)
val2 = Sheets(13).Cells(2, 1)

repertoire = Sheets(3).Cells(4, 1) & "\Pass\"
Fichier = "PASS_GEN.xlsx"

Set Cnn = New ADODB.Connection

With Cnn
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & repertoire & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
End With
strSQL = "INSERT INTO [LOG$] (Login,PrenomLogin) VALUES ('" & val1 & "','" & val2 & "')"

Cnn.Execute strSQL
Cnn.Close
Set Cnn = Nothing
End Sub

Merci d'avance

Bonjour Boby63

De mon côté, j'ai mis les 2 fichiers dans le même dossier, j'ai modifié le code come suit

Sub testajout()
  Dim val1 As String
  Dim val2 As String
  Dim Repertoire As String
  Dim Fichier As String
  Dim Cnn As ADODB.Connection
  Dim strSQL As String

  'val1 = Sheets(13).Cells(1, 1)
  'val2 = Sheets(13).Cells(2, 1)
  val1 = "TestLogin": val2 = "TestPrénom"

  'Repertoire = Sheets(3).Cells(4, 1) & "\Pass\"
  Repertoire = ThisWorkbook.Path & "\"
  Fichier = "PASS_GEN.xlsx"

  Set Cnn = New ADODB.Connection

  With Cnn
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Repertoire & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
  End With
  strSQL = "INSERT INTO [LOG$] (Login,PrenomLogin) VALUES ('" & val1 & "','" & val2 & "')"

  Cnn.Execute strSQL
  Cnn.Close
  Set Cnn = Nothing
End Sub

Et cela fonctionne

@+