Re : Macro pour importer du texte vers excel automatiquement
bonjour!
Désolé pour le retard, voici ma macro :
Sub OpenFiles()
'
' Macro2 Macro
' Macro enregistrée le 17/06/2009 par SG
'
' Touche de raccourci du clavier: Ctrl+t
NextFile = Dir("C:\Documents and Settings\SG\Bureau\*.*", vbNormal)
Do While NextFile <> ""
Workbooks.OpenText Filename:="C:\Documents and Settings\SG\Bureau\CONTACT.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 2 _
), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, 1), Array(6, 1))
newname = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\SG\contact.xls"
NextFile = Dir
Loop
Application.WindowState = xlNormal
Application.Left = 285.25
Application.Top = 9.25
Range("A1").Select
Selection.Font.Bold = True
Application.Run "essai.xls!OpenFiles"
Application.Run "essai.xls!OpenFiles"
ActiveWorkbook.Save
Range("B5").Select
Application.Left = 196.75
Application.Top = 58.75
Application.Run "essai.xls!OpenFiles"
Application.Goto Reference:="Macro1"
Range("C5").Select
Application.Run "essai.xls!OpenFiles"
Application.Left = 80.5
Application.Top = 148
End Sub
Je voudrais que ça marche avec n'importe quel texte.
et voici l'erreur :