Importer un fichier texte dans une feuille

[hemerode]

Bonsoir à tous,

j'ai réussi à importer un fichier texte dans mon classeur en suivant l'exemple du lien.
VBA-excel : code pour ouvrir un fichier txt sous excel - VB - VBA - Programmation - FORUM Rue-Montgallet.com

Mais Je veux que l'importation commence à partir de la cellule A2.
j'ai donc changé: iCol = 0
Et je constate qu'il y a une erreur.
Merci pour vos suggestions.

Voici ma macro
'----------------------------------------------------
Option Explicit

Sub Tst()
Dim Fichier As Variant
ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt" )
If Fichier <> False Then
Lire Fichier
End If
End Sub

Function Lire(ByVal NomFichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur As String * 1

' Séparateur Tabulation
Separateur = Chr(9)

Range("A2:C10").ClearContents
NumFichier = FreeFile
iRow = 2

Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, Separateur)
For i = LBound(Ar) To UBound(Ar)
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #NumFichier
End Function

 

[Compte Supprimé 979]

Re : Importer un fichier texte dans une feuille

Bonsoir Hemerode

Qu'elle est ton erreur !?

Cordialement.

 

[Staple1600]

Re : Importer un fichier texte dans une feuille

Bonsoir

Mais Je veux que l'importation commence à partir de la cellule A2.

ICol
Col comme colonne

IRow
Row comme ligne en anglais

Donc tu vois ou je veux en venir

PS: Pourquoi ne pas utiliser l'assistant d'importation de fichier d'Excel ?
(utilisable en VBA)

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/07/2011 par EXCEL
'

'
Workbooks.OpenText Filename:="C:\test.txt", _
Origin:=xlWindows, StartRow:=2, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub

 

[hemerode]

Re : Importer un fichier texte dans une feuille

je souhaite commencer l'importation à partir de la cellule A2.
Donc dans la macro j'ai mis "iCol = 0".
Lorsque je met :"iCol = 1". ça fonctionne, sauf que l'importation commence à la cellule B2.

Merci

 

[hemerode]

Re : Importer un fichier texte dans une feuille

je souhaite commencer l'importation à partir de la cellule A2.
Donc dans la macro j'ai mis "iCol = 0".
Lorsque je met :"iCol = 1". ça fonctionne, sauf que l'importation commence à la cellule B2.

Merci

 

[Staple1600]

Re : Importer un fichier texte dans une feuille

Re


Regardes mon précédent message

Je l'ai édité et ajouté une suggestion.

PS :
A2 = ligne 2 colonne 1
B2= ligne 2 colonne 2

Tu vois cette fois ou je veux en venir ?

 

[hemerode]

Re : Importer un fichier texte dans une feuille

J'ai utilisé l'assistant d'importation de fichier d'Excel.
L'importation se fait dans un nouveau classeur. Je voudrais que l'importation dans le classeur actif.
Je suis un débutant en VBA.

Concernant ma macros:
A2 = ligne 2 colonne 1
B2= ligne 2 colonne 2

J'avais fait ceci:
ICol=0
IRow=1
Mais ça n'a pas fonctionné.

 

[Staple1600]

Re : Importer un fichier texte dans une feuille

Re


Dans ton code on peut lire
IRow=2

ce qui semble être bon si tu veux commencé à la ligne 2

 

[Staple1600]

Re : Importer un fichier texte dans une feuille

Re


Pour copier daans le classeur actif, tu peux faire ainsi

Sub Macro11()
'
' Macro1 Macro
' Macro enregistrée le 23/07/2011 par EXCEL
'

Dim s_wb As Workbook
Workbooks.OpenText Filename:="C:\test.txt", _
        Origin:=xlWindows, StartRow:=2, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
Set s_wb = ActiveWorkbook
s_wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A1")
s_wb.Close False
End Sub

Il faut adapter le nom du fichier et le chemin
Dans mon exempe, j'ai pris C:\test.txt

 

[hemerode]

Re : Importer un fichier texte dans une feuille

Merci pour cette solution.
Mais j'ai encore une préoccupation.
J'ai une mise en forme dans la feuille que je souhaite conserver après l'importation.

Merci.

 

[Staple1600]

Re : Importer un fichier texte dans une feuille

Bonjour


Avec un fichier exemple contenant ta mise en forme, il serait plus facile de faire des tests, donc de t'aider.

 

[hemerode]

Re : Importer un fichier texte dans une feuille

Bonjour Staple1600

J'ai vu mon erreur dans la macro d'exportation de fichier texte.
En fait le ficher exporté était comme ceci:
;1;2
;2;4
;4;2
C'est la raison pour laquelle la colonne A restait vide.

Merci.