utilser excel comme une bdd

ben je relance mon prbm en esperant ke kelkun peut m'aider

bonjour

je n'y pas trop là-dessus.
si tu peux envoyer un fichier exemple.
ou alors pose ta question sur le groupe microsoft.public.fr.excel

ciao
steph

merci pour l'adress, mais g du mal a y acceder est tu sur de l'adress c bien : microsoft.public.fr.excel??
sinon voila un exemple de code

Public Sub main()

Dim Maconnexion As ADODB.Connection
Dim MyRecordset As ADODB.Recordset

Dim MyQuery As String


Set Maconnexion = New ADODB.Connection

With Maconnexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=G:\Public REPO\FixStirParis\AssetSwap\nezar\mes programmes\baseexcel.xls;" & _
"Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With


'on lance la reconnaissance de la table
Set MyRecordset = Maconnexion.OpenSchema(adSchemaTables)

' on vérifie que la table ke je veux (ki est TableAnnuaire) est bien reconnu
Do While Not MyRecordset.EOF
If MyRecordset.Fields("TABLE_NAME").Value = "TableAnnuaire" Then
MsgBox "tableannuaire trouvée"
End If
MyRecordset.MoveNext
Loop
MyRecordset.Close

'c la ou se situe mon pbm je ve crée un index car la bdd excel ne le crée pas par défaud et ya aucune gestion de clé en excel, mais la commande sql "create index" ne passe pas, sachant ke les autre pas parfatement, et j'obtient le msg d'err ke g mis ds mon premier msg, ben merci de me faire un feetback, pour savoir ce ke t'en pense
MyQuery = "CREATE INDEX Index ON TableAnnuaire('Indice','Nom','Prenom')"
MyRecordset.Open MyQuery, Maconnexion
MyRecordset.Close

'je lance un select
MyQuery = "SELECT * FROM TableAnnuaire"
MyRecordset.Open MyQuery, Maconnexion

'j'affiche les valeurs récupérée
Do While Not MyRecordset.EOF
MsgBox MyRecordset("Nom") & " " & MyRecordset("Prenom") & " voila."
MyRecordset.MoveNext
Loop

MyRecordset.Close


'je lance un insert
MyQuery = "INSERT INTO TableAnnuaire ([Indice],[Nom],[Prenom]) VALUES ('12','toto22','toto22')"
MyRecordset.Open MyQuery, Maconnexion

Set MyRecordset = Nothing


Maconnexion.Close


End Sub