Récupération données avec macro
Bas2015
Messages postés
4
Statut
Membre
-
Bas2015 Messages postés 4 Statut Membre -
Bas2015 Messages postés 4 Statut Membre -
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
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
3 réponses
-
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
-
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 -
