Récupération données avec macro Fermé

Question

Bonjour à tous.

Je me tourne vers vous pour trouver une solution.

Je dois récupérer des données à partir de différents fichiers sous format text et les insérer dans un tableau excel.

Chaque ligne du tableau est complété par un fichier text. Et donc le fichier text n'est utilisé qu'une fois.  

Sachant que je vais avoir à l'avenir des dizaines de fichiers texte, il faut que j'automatise la récupération de ces données. 

En espérant avoir été assez clair.

Merci d'avance

cs_Le Pivert · Answer

Bonjour,

En vba, faire Alt F11 pour accéder à l’éditeur. Insérer un UserForm et y mettre un commandbutton. Double cliquez sur ce bouton et mettre ce code:

Option Explicit
Private Sub CommandButton1_Click()
Recup
End Sub
Sub Recup()
 Dim Fichier
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichier <> False Then
        'crée une requête sur le fichier texte et insère les champs
       'dans la feuille "Feuil1" en partant de "A1" à adapter
       Worksheets("Feuil1").QueryTables.Add("TEXT;" & Fichier, [A1]).Refresh 'à adapter
    Else
        MsgBox "Pour importer des données dans Excel, vous devez choisir un fichier texte !"
    End If
End Sub

Bas2015 · Answer

Rebonjour !

En fait, une fois que j'ai copier le code sur le useform je ne vois pas ce qu'il faut faire si quelqu'un peut m'expliquer ?

Merci d'avance

cs_Le Pivert · Answer

Il faut appuyer sur F5

Récupération données avec macro

3 réponses

Discussions similaires