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
A voir également:
- Récupération données avec macro
- Fuite données maif - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Logiciel de récupération de données - Guide
- Trier des données excel - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
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:
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
Merci pour la réponse avec un du retard car beaucoup de boulot.
Je vais essayer la solution que tu m'as donné.
A+