VBA - problème d'importation table Access vers ExcelRésolu

Question

Salut  à tous!

   J'ai un problème... Je vais essayer de m'expliquer...
J'importe une table Access vers un onglet de fichier Excel. Je veux choisir des enregistrements à importer selon la valeur d'une cellule d'un autre onglet avec la procedure:

Public Function ImporterBase(FichierBDD, NomTable, ConditionsDeLaRequete, NomFichierExcel, NomOngletExcel)

en l'appellant:
 Call ImporterBase("BDD.mdb", "AA", "WHERE Entité=Val", ThisWorkbook.Name, 9)

Le fichier Access(BDD.mdb) a une table "AA". Je vais importer les enregistrements où le champs "Entité" est égal à "Val"

Pour Val:    Workbooks("DDD.xls").Activate
             Sheets(1).Select
             Val = Cells(5, 3).Value

Le macro ne comprends pas le Val comme valeur de cellule et dit q'il n'y a pas d'enregistrement à importer...

Voila... Merci d'avance!!!!

cs_69chris · Accepted Answer

Salut,



Essai de faire quelque chose du genre: (avec ton code pour &#234;tre sur d'&#234;tre sur la bonne feuille)

 Call ImporterBase("BDD.mdb", "AA", "WHERE Entit&#233;=" & Cells(5,3) & ", ThisWorkbook.Name, 9)



Parce qu'une chaine de caract&#232;res, c'est pas fut&#233;e et elle sait pas qu'il faut remplacer la chaine Val par quelque chose.



Chris

N'oubliez pas de cloturer votre post.

Tiko38 · Answer

Merci beaucoup!

C'est con, mais j'ai essayé toutes les possibilitées imaginables sauf celle-la  :o)

VBA - problème d'importation table Access vers Excel

2 réponses

Discussions similaires