Récupération données avec macro

Fermé
Bas2015 Messages postés 4 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 15 février 2016 - 15 janv. 2016 à 14:29
Bas2015 Messages postés 4 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 15 février 2016 - 15 févr. 2016 à 14:06
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
A voir également:

3 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 janv. 2016 à 15:05
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



0
Bas2015 Messages postés 4 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 15 février 2016
7 févr. 2016 à 12:48
Bonjour,

Merci pour la réponse avec un du retard car beaucoup de boulot.

Je vais essayer la solution que tu m'as donné.

A+
0
Bas2015 Messages postés 4 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 15 février 2016
7 févr. 2016 à 13:45
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
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
7 févr. 2016 à 22:38
Il faut appuyer sur F5
0
Bas2015 Messages postés 4 Date d'inscription vendredi 15 janvier 2016 Statut Membre Dernière intervention 15 février 2016
15 févr. 2016 à 14:06
Bonjour,

Bon j'ai essayé cette méthode mais pour l'instant je n'yarriva pas

Merci quand même
0