Importer 2 fichier texte dans une feuille Excel par macro.

Bonjour,

Tu ouvres le 2e de la même maniere et ensuite tu le copies dans le 1er.

--
Patrick


"AfterBoy" wrote:

Bonjour,

j'ai une macro qui importe un fichier texte jusque la tout va bien :

Workbooks.OpenText Filename:="C:932004GROUPESCOURS.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier: > _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:úlse, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1, 2), _
Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6,
2), Array(7, 2), Array(8, 2), _
Array(9, 2), Array(10, 1)), TrailingMinusNumbers:=True

Je dois par contre importer un deuxième fichier texte avec le même
format à la suite du premier qui a été importé.

Comment faire??

Merci

Adapte cette procédure à ton environnement.
Si tu as une ou des colonnes "date" tu ajoutes
une ligne de code pour multiplier cette colonne par 1

'------------------------------
Sub Importer_Fichier_Texte()
Dim Rg As Range, K As Long
Dim Nb As Long, Fichier As String
Dim Ligne As String, C, X As Integer
Nb = FreeFile

Set Rg = ThisWorkbook.Worksheets("Feuil1").Range("A1")

For a = 1 To 2 ' 2 pour 2 fichiers
'Indique le chemin et le nom du fichier de chacun
Fichier = Choose(a, "c:Exceldenis.txt", "c:ExcelDenis1.txt")
Open Fichier For Input As Nb
Do While Not EOF(Nb)
Line Input #Nb, Ligne
'Remplace VbTab par le séparateur
'de tes fichiers texte ("," par exemple)
C = Split(Ligne, vbTab)
Rg.Offset(K).Resize(, UBound(C) + 1) = C
K = K + 1
Loop
Close #Nb
Next
End Sub
'------------------------------








"AfterBoy" <RBRADETTE@cstfelicien.qc.ca> a écrit dans le message de news:
05e579bd-7bb7-42e9-a719-9dede04369f5@x41g2000hsb.googlegroups.com...
Bonjour,

j'ai une macro qui importe un fichier texte jusque la tout va bien :

Workbooks.OpenText Filename:="C:932004GROUPESCOURS.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier: _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:úlse, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1, 2), _
Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6,
2), Array(7, 2), Array(8, 2), _
Array(9, 2), Array(10, 1)), TrailingMinusNumbers:=True

Je dois par contre importer un deuxième fichier texte avec le même
format à la suite du premier qui a été importé.

Comment faire??

Merci