Bonjour,

Je souhaiterais faire une jointure entre deux fichiers texte, j'ai le code
et la jointure fonctionne mais je n'arrive pas à trouver le bon critère
de jointure, dans mon cas j'ai mis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
F1=F2
(c'est le nom de mon champs = premiere ligne de mes fichiers)
J'ai fait plusieurs essais mais ca ne marche pas dés que j'impose le critère
de jointure
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub majointure()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = DAO.OpenDatabase("D:\Documents and Settings\pc\Mes documents\GF" _
, False, False, "Text;database=" & ";HDR=NO;Table=" & "Fichier1.txt")
Set rs = db.openrecordset("select * from [" & "Fichier1.txt" & "]" & "," & "[" & "Fichier2.txt" & "] where 'F1' ='F2' ", DAO.dbOpenSnapshot, _
DAO.dbReadOnly, DAO.dbReadOnly)
ActiveSheet.Range("A2").CopyFromRecordset rs
Set rs = Nothing
Set db = Nothing
 
End Sub
Merci d'avance de votre aide.