Excel / Access - Problème requete SQL avec 2 clause WHERE

Bonjour,

J'aurais besoin d' un petit coup de main pour terminer un projet ...


En partant d'excel en VBA, je souhaiterais qu'un enregistrement se fasse dans une table ACCESS avec 2 paramètres WHERE ... (voir détail dans le fichier joint)

J'ai essayé mais il me manque des connaissances en sql à priori ... car tantot ca m'efface des lignes ou alors j'ai des messages d'erreur en tout genre.

Je joint les 2 fichiers (excel et BDD ACCESS)

J'espere que quelqu'un pourra m'aider


Merci Beaucoup


Pièce jointe 358380

Bonjour,

Comme tu es nouveau, prends le temps de lire les règlements...
D'une part tu n'es pas dans le forum de macros.
D'autre part, la plupart des gens n'ouvriront pas de fichiers joints, encore moins avec macros...

Est-ce que tu peux écrire la requête que tu essaies de mettre en place avec quelques explications sur ce qui ne fonctionne pas?

La solution envisagée n'est pas des meilleurs pour ton problème:
Je cite "En partant d'excel en VBA, je souhaiterais qu'un enregistrement se fasse dans une table ACCESS avec 2 paramètres Where"

Je recommande d'aller dans Access, importer la bonne feuille dans une table (appelons la "Tbl"), puis utiliser une requête ACCESS sur Tbl, tenant compte de tes critères dans la clause WHERE.

Bonjour,

Ton exposé est déjà assez étonnant:

• Une requête SQL ne peut avoir qu'une clause WHERE. Cela dit, il est évidemment possible que cette clause contienne plusieurs conditions, grâce à AND et OR;
• Une requête qui enregistrerait une donnée ( = INSERT INTO) ne contient pas de clause WHERE, car il n'y a pas de condition à l'insert;
• Une requête ne peut pas ajouter ou supprimer des lignes, car il n'est pas possible de réaliser un INSERT dans une même requête qu'un UPDATE ou qu'un DELETE. Dans UNE requête, tu ne peux réaliser qu'une seule de ces trois opérations.

Il serait donc intéressant que tu exprimes mieux ton problème et que tu nous montre la requête que tu utilises.

En fait j'ai changé mon fusil d'épaule, je n'update que la ligne active du tableau ce qui m'évite des complications niveau langage SQL (que, comme vu l'avez compris, je ne maitrise pas bien).

Pour vous donner plus de contexte, l'idée de départ était de créer un fichier de travail excel collaboratif mis à jour en temps reel et ou tous les collaborateurs peuvent travailler en meme temps.

J'ai procédé comme ceci en VBA, avec une BDD Access :
-
dans Worksheet_Change j'update chaque fois uniquement la ligne entière correspondant à la cellule modifié (pour ne pas overwriter les potentielles modif d'autres utilisateurs sur la BDD sur d'autres lignes)
dans worksheet_Selection Change je lance un refresh des données de la BDD Access au cas ou un autre utilisateurs y a apporté des modifs, de cette manière je les vois en temps réelles.

Sur chaque poste de travail le meme fichier excel pour ecrire / et lire la BDD.

Voilà en gros l'idee du projet.

Je sais que c'est certainement du bidouillage et pas très orthodoxe mais j'apprend tout seul dans mon coin (et grace à l'aide de gens sympas comme vous) et ca a le mérite de marcher...


Un extrait de mon code en Worksheet_Change si un jour ca sert à quelqu'un ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

'Macro RecordAcliveRow dans ACCESS   Dim Plage As Range Dim Array1 As Variant Dim x As Variant Dim Db1 As Database Dim Rs1 As Recordset Dim Sql As String Dim Exist As String   ' permet la validation en cas de cellule normale ou cellule contenant une liste de validation If ActiveCell.Row <> Target.Row Then Set Plage = ActiveSheet.ListObjects(1).ListRows(ActiveCell.Row - 2).Range Else Set Plage = ActiveSheet.ListObjects(1).ListRows(ActiveCell.Row - 1).Range End If   Array1 = Plage.Value 'Ouverture de la base de donnée BaseAccess.accdb   Set Db1 = DBEngine.OpenDatabase("\\PC-ACCUEIL-DROI\Users\Public\BaseAccess.accdb") For x = 1 To UBound(Array1, 1)   'Requête sur la table Salarie Sql = "SELECT * FROM Salarie where ID=" & Array1(x, 1) & ";" Set Rs1 = Db1.OpenRecordset(Sql) Exist = Rs1.RecordCount If Exist = 0 Then Set Rs1 = Db1.OpenRecordset("Salarie", dbOpenDynaset) With Rs1 .AddNew .Fields("ID") = Array1(x, 1) .Fields("Nom") = Array1(x, 2) .Fields("Prenom") = Array1(x, 3) .Update End With Else With Rs1 .Edit .Fields("Nom") = Array1(x, 2) .Fields("Prenom") = Array1(x, 3) .Update End With End If Next Db1.Close   enderror:       Call Refresh 'appelle macro qui synchronise excel avec la BDD Access     End Sub

---

Merci à tous de votre intérêt en tout cas !