Ouvrir Fichier

    Workbooks.OpenText Filename:='C:\\Documents and Settings\\Vincent\\Bureau\\Fichier1.TXT', Origin:=xlMSDOS, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:='!', FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

Passe_données()
'
' Passe données
' Macro enregistrée le 13/01/2006 par David Guy
'

'
    
    

    Sheets.Add  'ajoute une feuille
     ' dessous ton code d'ouverture de fichier
          Workbooks.OpenText Filename:='C:\\Documents and Settings\\Vincent\\Bureau\\Fichier1.TXT', Origin:=xlMSDOS, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:='!', FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
        
    Cells.Select                    'selectionne la feuille
    Selection.Copy                  'copie le tout
    Windows('Classeur2').Activate   'repointe le classeur
    ActiveSheet.Paste               'passe les données
    Windows('Fichier1.TXT').Close   'ferme le fichier texte
    
End Sub

Sub Ouvrir_TXT_Nouvelle_Feuille()
    Dim New_Sheet As Worksheet, Workbook_en_Cours As Workbook, Workbook_TXT As Workbook, Nom_Fichier As String
    Set Workbook_en_Cours = ActiveWorkbook
    Set New_Sheet = Workbook_en_Cours.Sheets.Add
    Nom_Fichier = Application.GetOpenFilename(Title:='Chargez le fichier à traiter', FileFilter:='Fichiers txt,*.txt')
    Set Workbook_TXT = Workbooks.OpenText(Filename:=Nom_Fichier, Origin:=xlMSDOS, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:='!', FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True)
    Workbook_TXT.Sheets(1).Cells.Copy Destination:=New_Sheet.Cells
    Workbook_TXT.Close False
End Sub