transfert acces excel

Question

/auteurdetail.aspx?ID=485266 jai besoin d'aide et c tr&#232; tr&#232; important svp dc si vous pouviez m'aider ca serait vraiment tp cool.
Voila mon pb est ce que je peu depuis excel ouvrir un fichier acces et recup&#233;rer des donn&#233;e et les mettre ds un classeur excel.

Je pense que ceci est faisable avec la fct openfilename

avt cela jaimerais fr la liste de ts les fichiers acces present ds un dossier, je pense ke lon peu fr ca avec la fonction filesearch

pr commencer dites moi si ces 2 fonctions fctionnent???

1ere etape : filesearch = liste ou je choisi le fichiers ke je veu ouvrir

2eme etape jouvre le fichier = openfilename

mais c a partir de ce moment la ke ca devient plu compliquer:

parce ke ss acces je connais rien

premierement comment choisir automatiquement la table
" Data"

ensuite qd on est ds data comment recup&#233;rer la premi&#232;re colonne et la copier ds la colonne A1 du classeur "ficheSLM" ds excel

ensuite prendre ds le fichier acces ouvert la colonne nomm&#233; LA1s et la coller ds le classeur excel "fichesSLM" ds la colonne B2.

voila aider moi svp c tp important jsui en stage et jdoi avoir fini cela ds une semaine

svp jai tp besoin de vs , si ya des trucs ke vs comprenez pa demander moi des pr&#233;cisions

merci

salut

jpleroisse · Answer

Bonjour,
J'ai d&#233;pos&#233; une source sur le transfert de base Access dans Excel, peut-&#234;tre cela pourra t'il t'aider ?
http://www.vbfrance.com/code.aspx?ID=31326

jpleroisse

ISABELLE6558 · Answer

Pour utiliser une base Access avec Excell tu peux le faire par l'interm&#233;diaire d'un module et d'une macro (alt-F11).

Sur le menu Outils/R&#233;f&#233;rences : ajoute une r&#233;f&#233;rence &#224; la bibilioth&#232;que
Micrisoft DAO 3.6 Object... pour pouvoir acc&#233;der directement &#224; des
tables d'une base Access v97.



Ensuite utilise le code suivant :

Dim maBD as database, maTable as recordset, sql as string



Set maBD = DBEngine.OpenDatabase(Chemin & NomBase)



sql = "SELECT * FROM table;" ou la requ&#234;te qui te permet d'acc&#233;der &#224; tes donn&#233;es



set matabble= mabd.openrecordset(sql, dbOpenDynaset)



ensuite &#231;a ce passe comme en VB



n = matable("Nomchamp") pour r&#233;cup&#233;rer une valeur



matable.moveFirst/Next .... 



matable.edit et matable.update pour modifier...



pour affecter une valkeur &#224; une cellule Excel utilise la commande suivante

Dim c as range

    set c=Activesheet.range("AdresseCellule")

    c.value = matable("NomChamp")



Bon courrage.

Transfert acces excel

2 réponses

Discussions similaires