VBA - Relations entre tableaux Excel

Citation:

---

Envoyé par Floyd-44

Bonjour,
Je souhaiterai avoir comme en SQL(Si ça peut aider à comprendre ce que je souhaite) un truc du genre:

Code:

---

1 2 3 4 5 6 7

Select Vet.Nom, Cli.Nom From Animaux Ani Left Outer Join Vétérinaires Vet on Ani.IDVet = Vet.ID 'Création du lien sur ID Left Outer Join Clients Cli on Ani.IDCli = Cli.ID 'Création du lien sur ID

---

---

en fait il serait plus judicieux d’attaquer Access ou le type de base concernée et pas faire un import Excel au préalable!

LINQ c'est du .net pas du VBA.

@Floyd-44
joins un fichier Excel , en prenant soin de bidonner les informations confidentiel si il y en a

RE

Citation:

---

Envoyé par dysorthographie

bonjour 78chris,

oui si le fichier dispose d'un chemin d’accès Windows???

---

Merci mais tu réponds oui à la 1ère ou 2ème question ?

J'ai remarqué avec d'autres méthodes d’accès que cela accède au fichier enregistré donc si on met en même temps le fichier à jour, les modifs ne sont pas prises si le fichier n'est par enregistré.

Ce pourquoi je demandais mais je pourrais aussi tester au lieu de t'embêter :oops:

oui tu as raison dessolé.

si j'interviens directement dans un onglet Excel, ADODB verra les modification mais pas les éventuels autre utilisateur.

si je fais une requête de mise à jour ou d'ajout (Update,Insert,Delete) tous les utilisateur verrons en direct les modifications.

notes également que la méthode sql delete n'existe pas en SQL Excel.

en fait excel pressente une structure XML sous-jacente qui ne peut en aucun cas être modifier mais écrasé par une nouvelle version par l'action enregistré d'Excel!

Citation:

---

@Floyd-44
joins un fichier Excel , en prenant soin de bidonner les informations confidentiel si il y en a

---

@dysorthographie,
Voilà la bête (sans faire de jeu de mots...::)),

PIECE JOINTE Actualisée
Pièce jointe 407136

Re

Citation:

---

Envoyé par dysorthographie

oui tu as raison dessolé.

si j'interviens directement dans un onglet Excel, ADODB verra les modification mais pas les éventuels autre utilisateur.

si je fais une requête de mise à jour ou d'ajout (Update,Insert,Delete) tous les utilisateur verrons en direct les modifications.

notes également que la méthode sql delete n'existe pas en SQL Excel.

en fait excel pressente une structure XML sous-jacente qui ne peut en aucun cas être modifier mais écrasé par une nouvelle version par l'action enregistré d'Excel!

---

Merci de ces éclaircissement

Bonsoir,

En fait Excel, à priori, n'accepte pas le cumul des "Left Join":

Code:

---

1 2 3 4 5 6

Select Vet.Nom, Cli.Nom From Animaux Ani Left Outer Join Vétérinaires Vet on Ani.IDVet = Vet.ID Left Outer Join Clients Cli on Ani.IDCli = Cli.ID

---

Alors j'avais pris parti doubler la requête avec un truc un peu lourd comme ça:

Code:

---

1 2 3 4 5 6 7 8

'Requête SQL pour retrouver le Nom Clients en fonction des ID.Cli dans la Feuille Animal CSql = " Select Cli.Nom From [Animal$] Ani " CSql = CSql & " Left Outer Join [Client$] Cli on Ani.IDCli = Cli.ID" CSql = CSql & " Where Ani.ID = " & AniID & " " 'Requête SQL pour retrouver le Nom Vétérinaires en fonction des ID.Vet dans la Feuille Veterinaire VSql = " Select Vet.Nom From [Animal$] Ani" VSql = VSql & " Left Outer Join [Veterinaire$] Vet on Ani.IDVet = Vet.ID" VSql = VSql & " Where Ani.ID = " & AniID & " "

---

Trouvant ça absurde, puisque ça l'est j'ai fait plusieurs essais et opté pour une solution que je n'utilise jamais : Lister toutes mes tables depuis "FROM". Et ça marche

Code:

---

1 2 3

Sql = " SELECT Cli.Nom, Vet.Nom " Sql = Sql & " FROM [Animal$] Ani, [Veterinaire$] Vet, [Client$] Cli " Sql = Sql & "WHERE Ani.IDVet=Vet.ID AND Ani.IDCli=Cli.ID AND Ani.ID = " & AniID & " "

---

Donc la question est:
Etant donné que mes jointures "Left Join" fonctionnent, pourquoi je ne peux pas les cumuler?

Fichier avec requête Finalisée à la demande de dysorthographie
Pièce jointe 407134
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim Sql As String Sql = "SELECT distinct Ani.Nom, Cli.Nom, Vet.Nom" Sql = Sql & " FROM ([Animal$] AS Ani LEFT JOIN [Client$] AS Cli ON Ani.IDCli = Cli.ID) LEFT JOIN [Veterinaire$] AS Vet ON Ani.IDVet = Vet.ID"     With CreateObject("Adodb.connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;""" 'Ecrit le nom du vétérinaire dans la cellule XFD3 Range("XFC1").CopyFromRecordset .Execute(Sql) .Close End With   End Sub

---

Citation:

---

Envoyé par dysorthographie

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim Sql As String Sql = "SELECT distinct Ani.Nom, Cli.Nom, Vet.Nom" Sql = Sql & " FROM ([Animal$] AS Ani LEFT JOIN [Client$] AS Cli ON Ani.IDCli = Cli.ID) LEFT JOIN [Veterinaire$] AS Vet ON Ani.IDVet = Vet.ID"     With CreateObject("Adodb.connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;""" 'Ecrit le nom du vétérinaire dans la cellule XFD3 Range("XFC1").CopyFromRecordset .Execute(Sql) .Close End With   End Sub

---

---

Bonjour,
J'ai fait la modif avec :

Code:

---

With CreateObject("Adodb.connection")

---

En revanche,

Code:

---

CopyFromRecordset .Execute(Sql)

---

ne fonctionne pas, Il m'a mis le message erreur "Argument Non Facultatif". J'ai donc rajouté :

Code:

---

1 2 3 4

Dim Rst as Object Set Rst = .Execute (SQL) Range("XFC1").CopyFromRecordset Rst

---

Sinon pour la Parenthèse après le From, c'est subtile. Saurais tu où je peux trouver quelque chose là dessus?
Merci

Bonjour,
Microsoft.ACE.OLEDB.12.0 est le driver Access, il dispose d'un SQL propriétaire!

il est le seule à utiliser ce genre de syntaxe. je n'es jamais vraiment réussi à me familiariser à ses limitation. j'utilise un embryon de requête que je copie colle dans le requêteur d'Access et jutilise l'assistant.

https://mon-partage.fr/f/LoCWKVjq/

Code:

---

SELECT Ani.Nom from [Animal$] as Ani in 'C:\Users\dysorthographie\Downloads\animal.xlsm' [Excel 12.0;HDR=YES]

---

Ok merci pour l'info