Merci Bouben,
Je ne suis pas au pièce mais c'est vrai que j'aimerai comprendre un peu plus car je sens que je vais l'interroger souvent cette table Donc prend ton temps pour une reponse plus complete !
J'ai essaye tes modifications....j'ai du mieux et du moins bien
Avec
Private Sub LireData2()
Dim oShR As Worksheet
Dim Requete As String
Dim oRS As Recordset
Dim iCol As Integer
'connexion à la base
ConnectionDB
Requete = "SELECT [parametres.nom_link] FROM [thermo.parametres]"
'onglet destination
Set oShR = Sheets(2)
'exécute la requête, résultat dans un RecordSet
Set oRS = oConnect.Execute(Requete)
'copie les données du recordset dans l'onglet
oShR.Range("A2").CopyFromRecordset oRS
'titres de colonnes
For iCol = 0 To oRS.Fields.Count - 1
oShR.Cells(1, iCol + 1).Value = oRS.Fields(iCol).Name
Next iCol
Set oRS = Nothing
Set oShR = Nothing
'fermeture de la connexion
oConnect.Close
Set oConnect = Nothing
End Sub
J'ai une erreur sur la syntaxe de la requete
Mais si je remplace par
Requete = "SELECT "
Requete = Requete & " parametres.nom_link"
Requete = Requete & " from thermo.parametres"
La requete semble passée mais rien ne s'ecrit....
je continue à fouiller mais j'attend tes explications avec impatience
Merci