Discussion :

[comme de bien entendu]

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.

[fring]

Bonjour,

Si je comprend bien tu souhaites remplacer la 1ère ligne de ton fichier txt1 par la 1ère ligne de ton fichier txt2.

Une solution éventuelle qui permet de remplacer une ligne X du fichier txt 1 par une ligne Y du fichier txt 2 en passant par une collection

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
Sub test_modification_ligne()
Dim colLignes As New Collection
Dim ff As Integer, i As Integer
Dim sLigne As String
 
ff = FreeFile
 
'Lecture de la 1ère ligne du fichier txt2 et envoi de la ligne dans la collection
Open "D:\Chemin\FichierTxt2.txt" For Input As #1
    Line Input #1, sLigne
    colLignes.Add sLigne
Close #1
 
'Lecture du fichier txt 1, envoi de chaque ligne dans la collection
Open "D:\Chemin\FichierTxt1.txt" For Input As #ff
    While Not EOF(ff)
        Line Input #ff, sLigne
        colLignes.Add sLigne
    Wend
Close #ff
 
'Suppression de la ligne 2 de la collection qui correspond à la 1ère ligne du fichier txt 1
colLignes.Remove 2
 
'Réecriture du fichier txt 1
Open "D:\Chemin\FichierTxt1.txt" For Output As #ff
   For i = 1 To colLignes.Count
        Print #ff, colLignes(i)
   Next
Close #ff
End Sub