Importer 2 fichier texte dans une feuille Excel par macro.

Le
AfterBoy
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:=False, Tab:=True,
Semicolon:=False, _
Comma:=False, Space:=False, Other:=False,
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Patrick
Le #17266661
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



michdenis
Le #17266951
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"
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
Publicité
Poster une réponse
Anonyme