Discussion :

[informer]

Bonjour à tous,

Pour réaliser une requête SQL avec une jointure sur 2 onglets dont le nom est avec des espaces, je partage ma solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Dim oCnx As New ADODB.Connection
    Dim oRSet As ADODB.Recordset
    Dim sSql As String
 
    '---  Range for SQL Tables ---
 
    ThisWorkbook.Names.Add Name:="EnCours", RefersTo:=worksheets("Données en cours").Range("h8:i65000") '-> Solution propre, calculer la dernière ligne non vide
    ThisWorkbook.Names.Add Name:="Mailing", RefersTo:=Worksheets("Mailing List").Range("a1:d65000") ' -> Cf. commentaire ci-dessus
 
      '---Connecting to the Data Source---
    With oCnx
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=Yes"";"
        .Open
    End With
 
    '---Run the SQL SELECT Query---
 
    sSql = "SELECT DISTINCT [Responsable], Prenom, Name, Email FROM EnCours AS R  " & _
            " INNER JOIN Mailing AS M ON [R].[Responsable]= [M].[Name] " & _
            " WHERE [Responsable] <>'' " & _
            " ORDER BY [Responsable] ASC "
 
    Set oRSet = oCnx.Execute(sSql)
 
    ThisWorkbook.Names.Item("EnCours").Delete
    ThisWorkbook.Names.Item("Mailing").Delete
 
 
    Do While Not oRSet.EOF
       Debug.Print oRSet![Prenom] & " - " & oRSet![Name] & " - " & oRSet![Email]
        oRSet.Movenext
    Loop
 
    '---Clean up---
    oRSet.Close
    oCnx.Close
    Set oCnx = Nothing
    Set oRSet = Nothing

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox ThisWorkbook.FullName

[Thumb down]

Bonjour,
tu t'éviteras toujours des désagrément si tu encadre systématiquement le [nom de tes tables] et [tes champs] par des crochets []

[informer]

Bonjour à jour


Si j'écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sSql = "SELECT DISTINCT [Responsable], Prenom, Name, Email FROM [Données en cours$h8:i65000] AS R  " & _
            " INNER JOIN [Mailing List$a1:d65000] AS M ON [R].[Responsable]= [M].[Name] " & _
            " WHERE [Responsable] <>'' " & _
            " ORDER BY [Responsable] ASC "

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[Données en cours$]h8:i65000

J'ai l'erreur

-2147217900 - Erreur de syntaxe dans la clause FROM

Si j'écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[[Données en cours$h8:i65000]]

J'ai l'erreur

-2147217900 - Mise en crochets non valide du nom [Données en cours$h8:i65000]

Merci de me donner la bonne écriture

[Thumb down]

Bonjour
Et comme ceci [Données en cours$h8:i65000] AS R

[informer]

En erreur Thumb down

[Thumb down]

tu peux poster un fichier en bidonnant les données!

[informer]

Désolé mais il faut transformer le fichier en xlsm puis ajouter un bouton dans un des 2 onglets.
Sur le onclick du bouton ajouter le code de mon post#1 et modifier le code SQL avec la référence à l’onglet et sa plage

[Thumb down]

regardes ça!

[informer]

Merci pour ton aide Thumb down, actuellement sur iPad donc pas accès au VBA. Pourrais-tu coller ton code dans ton dernier post.
Encore merci

[Thumb down]

voila

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 sSql = "SELECT DISTINCT [Responsable], Prenom, Name, Email FROM [Données en cours$a1:a65000] AS R  " & _
            " INNER JOIN [Mailing List$a1:d65000] AS M ON [R].[Responsable]= [M].[Name] " & _
            " WHERE [Responsable] <>'' " & _
            " ORDER BY [Responsable] ASC "
 
With CreateObject("AdoDb.Connection")
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=Yes"";"
    .Open
   MsgBox sSql & vbCrLf & vbCrLf & .Execute(sSql).GetString
    .Close
End With
End Sub

[informer]

Merci Thumb down,

Ta solution fonctionne parfaitement et tu nous gratifies en plus d'un bonus avec le rappel de l'utilisation de

Execute(sSql).GetString

Pour en savoir plus sur RecordSet.GetString, voir Ici l’excellent tuto de bidou


Le code peut donc ainsi s'écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    sTableResp = "[En cours$h8:h5000]"
    sTableMailing = "[Mailing List$a1:d1000]"
 
   sSql = "SELECT DISTINCT [Resp Action] AS Resp, Prenom, Name, extension, Email " & _
            " FROM " & sTableResp & " AS R  " & _
            " INNER JOIN " & sTableMailing & " AS M " & _
            " ON [R].[Resp Action] = [M].[Name] " & _
            " WHERE [Resp Action] <>'' " & _
            " ORDER BY [Resp Action] ASC "