Liste de choix spécifique et insertion

[anber]

Bonjour le forum,

Je cherche à récupérer le nom de fichiers (txt) dans une liste de choix, après choix d'un ou plusieurs de ces fichiers, insérer le contenu de chaque fichier dans une même feuille.

Merci

 

[JYLL]

Re : Liste de choix spécifique et insertion

Bonsoir anber et le forum,

Voici de quoi lire un fichier texte que tu choisis et le mettre dans une feuille Excel, une fois le fichier est nommé en dur et dans l'autre avec "GetOpenFIleName" tu te retrouves avec la façon de rechercher les fichiers comme avec Excel ou Word, sauf que dans l'exemple tu n'as que les fichiers ".TXT" qui s'affichent et les répertoires.

Bon test.


Ce programme lit les différents enregistrements dans un fichier texte et les inscrits
dans une feuille de calcul.
Structure du fichier Listing.txt

Sub LireFichierTexte()
Dim Prenom, Nom, Age
' Ouvre le fichier en lecture
Open "C:\Excel\Listing.txt" For Input As #1
' Effectue la boucle jusqu'à la fin du fichier
Do While Not EOF(1)
' Lit les données dans trois variables
Input #1, Prenom, Nom, Age
' Ecrit les données dans la feuille de calcul à partir de la ligne 2
Range("A65536").End(xlUp)(2).Value = Prenom
Range("B65536").End(xlUp)(2).Value = Nom
Range("C65536").End(xlUp)(2).Value = Age
Loop
' Ferme le fichier
Close #1
End Sub



Lister des fichiers texte et les ouvrir avec GetOpenFileName
GetOpenFileName:
Affiche la boîte de dialogue standard Ouvrir et lit un nom de fichier tapé ou sélectionné par l'utilisateur
sans réellement ouvrir les fichiers.
Sub ChoixFichierTexteAOuvrir()
ChDir "C:\"
ChDir "c:\Excel"
CeFichier =Application.GetOpenFilename("Text Files (*.txt), *.txt")
If VarType(CeFichier) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=CeFichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(1, 1)
End If
End Sub

 

[anber]

Re : Liste de choix spécifique et insertion

Bonjour le forum,

Merci Jean-Yves pour ta réponse,
Je teste