macro access (import d'une valeur d'excel)

bonjour.

Je voudrais simplement (facon de parler ;) ) importer le contenue d'une cellule Excel vers Acces.

En fait, j'ai une macro sur excel qui fonctionne en deux temps :
- lancement d'une macro Acces qui supprime le contenue d'une BDD ("BDD1")access et qui est sencée ajouter le contenu d'une cellule Excel (Parametres!C11)
- Importe une requete d'access qui dépend du nouveau contenu de la "BBD1".

L'objectif étant d'importer dans Excel la requete Access correspondant à une agence dont le num est saisis dans (Parametres!C11).
(Cela afin d'éviter de créer n requetes pour n agences.

Ce systhème marchais jusqu'à présent, mais il vient de planter.
Et je ne sais pas pquoi, la nouvelle valeur ne s'importe plus dans BDD1.
Le reste à l'air de marcher.


Si qq'un à une idée ou un systhème plus simple d'utilisation je suis preneur...

Merci d'avance


fred

Tu as un fichier Excel dans lequel tu encodes un numéro d'agence et tu veux lancer un query Access afin de récupérer les données de cette agence ?

Nul besoin de travailler en deux temps :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Set objConnection = CreateObject("ADODB.Connection")   objConnection.CursorLocation = adUseClient   Set rsADO = CreateObject("ADODB.RecordSet")   sDSN = "ODBC;DSN=MS Access Database;DBQ=MaDatabase"   objConnection.Open sDSN   sSQL = "SELECT * FROM MaTable WHERE Agence= " & wNumAgence   rsADO.Open sSQL, objConnection, adOpenStatic, adLockReadOnly   If Not rsADO.Eof Then   End If   rsADO.Close Set rsADO = Nothing   objConnection.Close Set objConnection = Nothing

---

Pour que cet exemple fonctionne, tu dois ajouter une référence vers Microsoft DAO dans ton code.

Remarque : à toi à modifier le code pour qu'il fonctionne pour toi.