Discussion :

[darkpocket]

lu
pour importer les donnees d'un fichier texte vers excel
j'utilise un opentext
mais les donnees sont copies dans un nouveau classeur
comment faire pour les copies dans une feuille precise du classeur d'ou j'execute mon code?

[ferdi67]

avant que ta macro qui ouvre ton fichier text tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim classeur As String
classeur = Activeworkbook.Name

aprés que ta macro ait ouvert ton fichier text tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.ActiveSheet.Copy after:=Workbooks(classeur).Sheets(1)
ActiveWorkbook.Close

j'ai pas tester.

[DarkVader]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ImportText(FileName As String, PosImport As Range)
    Dim QT As QueryTable
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
    With QT
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub

et pour l'appel de la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ImportText "C:\xxxx.txt", Range("A1")

[darkpocket]

merci pour vos reponses
ca marche niquel