Excel et fichier texte

Bonjour à tous,

je suis débutante en VBA et je veux créer un programme qui à partir d'un fichier texte je peux charger certaines données de ce dernier dans un fichier Excel.

Pourriez vous m'aidez par me donner des livres ou des exemples pour que je puisse commencer à programmer avec VBA?

Merci d'avance :)

Bonjour,
Un lien sur le sujet

Bonjour Foufaa,

Je suis débutant aussi mais si cela peut t´aider j´ai eu à faire un peu la meme chose : pour convertir un fichier texte en excel, il y a la fonction Workbooks.OpenText
Voici mon code en exemple.
Attention, les arguments de la fonction ne seront certainement pas les memes, tu devra l´adapter à ton cas. Tu peux trouver les propriétés de la fonction sur l´aide en ligne de msdn

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub CommandButton1_Click()   'Variables declaration   Dim vFileName As Variant 'For the selection of the file Dim WkbS As Workbook 'Workbook Source.xls     'Data extraction from .txt   Set WkbS = ThisWorkbook vFileName = Application.GetOpenFilename   If vFileName = False Then   Else Workbooks.OpenText Filename:=vFileName, _ Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _ Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _ DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:=True   End If End Sub

---

Mon code se déclenche en cliquant sur un bouton commande "Button1" (que tu peux mettre dans un fichier excel de départ contenant ton programme.

Cependant, ce code convertit le fichier texte en entier. Apparement tu veux convertir "certaines" parties seulement?
Si c´est le cas il faut demander aux pros.

Essaie d'utiliser ce code :

Code:

---

1 2 3 4 5 6 7

With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\.....\exemple.txt", Destination:= _ 'emplacement du fichier texte Range("$A$1")) .Name = "exemple" .TextFileOtherDelimiter = "," 'caractères séparés par des virgules .Refresh BackgroundQuery:=False End With

---

Ici le fichier texte s'appelle exemple.txt.