Discussion :

[foufaa33]

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

[Philippe Tulliez]

Bonjour,
Un lien sur le sujet

[djjilou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[bilou23]

Essaie d'utiliser ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.