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