Discussion :

[grainedechipie]

Bonjour à tous

nouvelles sur cet espace, c'est en cherchant si je pouvais trouver un petit conseil pour résoudre mon souci du moment que je suis tombée sur votre mine de renseignements...je sens qu'il se pourrait que je me mette à aimer mon excel avec lequel il va bien falloir que je fasse amie-ami vu les rapports que l'on me demande dans mes nouvelles fonctions..

alors je ne suis pas complètement nulle mais carrément pas très débordante d'imagination dès que cela dépasse les déplacements de ma souris à faire rentrer dans une macro..

ce dont j'ai besoin...
dire à ma macro d'ouvrir un ensemble de x fichiers.txt stockés dans un même répertoire, selectionner x colonnes les copier coller dans un fichier excel et convertir ces données séparées par une virgule pour les transformer en colonnes et sortir un joli rapport plein de stats qui rassurera ou inquiètera...

ce que j'ai réussi à faire une macro qui ouvre UN fichier, selectionne, convertit...cela marche très bien mais c'est toujours le même fichier qui s'ouvre je ne trouve pas comment dire à ma macro
ouvrir le fichier1, exécuter la selection et convertir...puis ouvrir le fichier2, le fichier x...

je ne recevais jusque là que 5 fichiers par jour donc je faisais cela sans trop de violence j'ouvre le fichier et exécute une macro de selection, copie, coller, conversion...
depuis le début du mois j'en reçois 25 et cela va m'a t on prévenue augmenter voir doubler d'ici mars...

est ce que vous pensez que c'est possible ? et comment ?
j'ai le sentiment de vous demander quelque chose s'énorme, je ne sais pas écrire de macro autrement qu'en glissant ma souris sur les opérations pas à pas faite mais là je bug je n'arrive pas à dire selectionner les fichiers de ce répertoire (ils ont tous la même structure mais arrivent chaque jour avec des noms différents.

merci d'avance pour votre aide potentielle et en tous les cas pour toutes les astuces que j'ai déjà pu lire en naviguant avec grand interet.. si une question se pose et que je saurai y apporter mon grain de sel ce sera avec grand plaisir solution à mon problème trouvé ou pas évidemment.

PS: l'idéal à mon classeur excel serait de réussir à copier le fichier 1 dans l'onglet 1 le fichier toto dans l'onglet toto et le fichier x dans l'onglet x...

cordialement
lili

[Kimy_Ire]

Bonjour grainedechipie,

Alors, il est tout à fait possible de faire ce que tu demandes.
Tout d'abord, voici un code te permettant de parcourir l'ensemble des fichiers ".txt" d'un répertoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Fichiers()
Dim myPath As String, myFile As String
 
myPath = "C:\Users\...\Desktop\"
myFile = Dir(myPath & "*.txt*")
 
Do While myFile <> ""
    MsgBox myFile
    myFile = Dir()
Loop
 
End Sub

Tu n'as plus qu'à y insérer ton code, à peu de chose près, à l'endroit de la MsgBox.
Après, pour l'écriture des données, tu peux créer une Feuille à chaque passage dans ta boucle afin d'y insérer ce que tu souhaites.

Pour d'avantage d'aide, n'hésite pas à communiquer le code que tu as réalisé.
N'hésite pas également à revenir vers moi.

Cordialement,
Kimy

[grainedechipie]

Merci Kimy pour cette proposition

je teste et te fais un retour.. @++