Re : Macro Export de donnees Acces vers Excel
Bonsoir Michel!
Merci beaucoup pour la reponse! C'est vrai je n'en avais pas fait mais generalement je fait des Coucou apres avoir recu de l'aide!!! et surtout des MERCI!
Et quelques fois en messages prives car je trouve cela plus personnel bref....
Alors oui la ligne rst.Open "PRENOM", dbsConn, adOpenKeyset, adLockOptimistic of the table le ( of the table etait un comm que j'ai oublie dans le copier coller....)
A force de trop faire de CTRL C CTRL V on fait souvent plein d'erreurs en tout cas moi!
J'avais consulte le super MichelXLD wiki avant de poster mon message, mon gros probleme est dans l'acces a la base de donees access.
En effet, dans le wiki il n'y a pas de login ni de pass
Dans mon code, je n'ai que le pass et non de login....
Peut etre que cela fait une grosse part d'erreur dans le code, le debuggeur me dit que je n'ai pas l'authorisation necessaire, mais vu que je n'ai rentre nulle part de login ou de pass je pense que c'est pour cela....
De plus je ne sais pas vraiment comment acceder a la table Prenom, ni aux valeurs, je tatonne un peu....
Le seul code similaire que j'ai fait etait avec exportORACLE-->EXCEL voici comment le pass etait gere....ainsi que les tables et les valeurs
Dim cnOra As ADODB.Connection
Dim rsOra As ADODB.Recordset
Dim db_name As String
Dim UserName As String
Dim Password As String
Set cnOra = New ADODB.Connection
Set rsOra = New ADODB.Recordset
db_name = "essai"
UserName = "rob"
Password = "rob"
cnOra.Open "DSN=" + db_name + ";UID=" + UserName + ";PWD=" _
& Password + ";"
rsOra.CursorLocation = adUseServer
rsOra.Open "select prenoms from pedro.prenoms", cnOra, adOpenForwardOnly
While Not rsOra.EOF
Msgbox rsOra![Prenom] rsOra.MoveNext
Wend
rsOra.Close
Une idee pour mon probleme??/ Merci