Access INSERT INTO

[ADS95]

Bonjour à tous,

Dans un projet Access, je dois récupérer dans une nouvelle table quelques données importé dans la table maître.
Je n'ai pas de problème avec la requête INSERT INTO, toutefois quand je rajoute un WHERE avec InputBox j'ai une erreur 3061 "Trop peu de paramètres. 1 attendu.
Toutefois, quand la variable WHERE est saisie cela fonctionne (Les deux exemples ci-dessous).
Merci de votre aide,
Bonne soirée

Code souhaité avec erreur :

Dim dbs As Database
Dim Activite As String

Activite = InputBox("Entrez l'activité", "Choix d'une activité")

' Chemin de la base
Set dbs = OpenDatabase("C:\Users\antoi\OneDrive..........\importer-depuis-excel.accdb")

' Select les éléments nécessaires pour inclure dans nouvelle base Table1

' and add them to the Customers table.
dbs.Execute "INSERT INTO Table1 (Nom,Activité)" _
& "SELECT societes_nom,societes_activite " _
& "FROM [societes]" _
& "WHERE Societes.societes_activite=Activite;"


Code qui fonctionne sans InputBox

Dim dbs As Database
Dim Activite As String



' Chemin de la base

Set dbs = OpenDatabase("C:\Users\antoi\OneDrive - La Maison BORD'EAUX\COMPTABILITE\03 - LMB\Caisse\importer-depuis-excel.accdb")

' Select les éléments necessaires pour inclure dans nouvelle base Table1

dbs.Execute "INSERT INTO Table1 (Nom,Activité)" _
& "SELECT societes_nom,societes_activite " _
& "FROM [societes]" _
& "WHERE societes.societes_activite = 'Hôtel' ;"

 

[Dranreb]

Bonsoir
Si vous voulez utiliser la valeur de la variable Activite au lieu de "Hotel" dans :

& "WHERE Societes.societes_activite = 'Hôtel' ;"

il faut :

& "WHERE Societes.societes_activite = '" & Activite & "' ;"

 

[ADS95]

Bonsoir Dranreb,

Merci pour le retour, cela fonctionne nickel.
D'habitude je trouve en cherchant sur plusieurs supports, mais là je séchais.
Bonne soirée