Discussion :

[francis60]

_
Comment faire un lien SQL externe entre 2 bases de données XL différentes avec ADO en VBA

Bonjour à tous,

Il est possible de faire un lien externe (c'est à dire une requête SQL) depuis plusieurs bases de données différentes.
Mais comment ?

Faire pointer la connection ADO vers un plusieurs fichier Excel ?
Créer un recordset avec 2 connections ?

J'ai trouvé des éléments de réponse ici, mais je ne sais pas comment initialiser les liens en amont de la requête SQL.

Merci pour vos lumières

[Invité]

Bonjour,
ça ce passe dans Access mais c'est le même principe: https://mon-partage.fr/f/LoCWKVjq/

en fonction de l'exemple du lien que tu as donné et don je suis l'auteur, je fais une connexion sur le fichier de la macro ThisWorkbook et je fais deux lien externe vers deux Xls différent! donc en l'espèce on fait un lien entre 3 fichier xls! (ThisWorkbook,c:\temp\Xls1.xlsx,c:\temp\Xls2.xlsx) => (FichierMaitre,FichierExclave1,FichierExclave2)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()Dim FichierMaitre As String, FichierExclave1 As String, FichierExclave21 As String
FichierMaitre = ThisWorkbook.FullName: FichierExclave1 = "c:\temp\Xls1.xlsx": FichierExclave2 = "c:\temp\Xls2.xlsx"
With CreateObject("AdoDb.connection")
    .Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FichierMaitre & ";Extended Properties=""Excel 12.0;HDR=No;"""
        texte_SQL = texte_SQL & "SELECT DISTINCT  [DESTINAT], [MONTANT], [NBRCOLIS] FROM [" & NomFeuille & "$] in '" & FichierExclave1 & "' 'excel 12.0;HDR=Yes;IMEX=1;'"
        texte_SQL = texte_SQL & "Union "
        texte_SQL = texte_SQL & "(SELECT DISTINCT  [DESTINAT], [MONTANT], [NBRCOLIS] FROM [" & NomFeuille & "$] in '" & FichierExclave2 & "' 'excel 12.0;HDR=Yes;IMEX=1;') "
    Set rs = .Execute(texte_SQL)
    .Close
End With

[francis60]

Je n'avait pas saisi la distinction entre connexion et lien externe.

Merci beaucoup, je vais essayer tout ça.

[francis60]

J'ai essayé et ça marche.

Hormis un petit oubli que je corrige si quelqu'un d'autre souhaite utiliser ton exemple:

Code :

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

texte_SQL = texte_SQL & " ( SELECT DISTINCT  [DESTINAT], [MONTANT], [NBRCOLIS] FROM [Sheet1$] in '" & FichierEsclave2 & "' 'excel 12.0;HDR=Yes;IMEX=1;') "

Il est important de savoir fermer une parenthèse encore faut-il l'avoir ouverte au préalable, surtout après une clause UNION .

Merci encore,

Francis

[Invité]

oui effectivement j'avais réédité le poste un peut après mais c’était trop tard. le principal étant que tu t'y retrouve au final!