Macro pour importer du texte vers excel automatiquement

[sam1980]

bonjour à tous !
Je suis novice dans ce domaine et je suis désolé si cette question a déjà été posé mais je voudrais savoir si on pouvait m'aider a faire une macro pour importer un fichier texte dans un fichier Excel à son ouverture .
merci.

 

[phlaurent55]

Re : Macro pour importer du texte vers excel automatiquement

Bonjour Sam,

peut-être un début de réponse ci-dessous
https://www.excel-downloads.com/threads/importer-texte-vers-tableur.7194/

 

[sam1980]

Re : Macro pour importer du texte vers excel automatiquement

j'ai essayer en remplaçant fichier par le nom de mon fichier avec son extension mais ça ne marche pas ?

 

[sam1980]

Re : Macro pour importer du texte vers excel automatiquement

Personne n'a une idée ?

 

[mromain]

Re : Macro pour importer du texte vers excel automatiquement

bonjour sam1980, phlaurent55,

je pense qu'en mettant un exemple de ton fichier texte ainsi qu'un exemple de ton classeur excel, tu auras plus de réponses...
j'dis ça, j'dis rien

a+

 

[sam1980]

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 :