Bonjour à tous,
J'ai écumé pas mal de forum et de post mais je ne trouve pas de solutions à mon problème. Je dispose d'un dossier dans un emplacement variable et contenant X fichiers de type texte (ex du nom des fichiers : 2011-07-29_05h49mn45). Je dois transformer ces fichiers texte en fichiers excel afin de les mettre en forme. Le but de la macro serait :
1) demander un chemin contenant le dossier ou se trouvent les fichiers
2) selectionner automatiquement le premier fichier du dossier (tri par horodatage)
3) l'ouvrir/le convertir/mettre en forme/enregistrer en .xls
4) passer au fichier suivant du dossier
5) recommencer au 1) jusqu'à ce que tous les fichiers du dossiers soient traités.
Pour le 1) j'ai trouvé pour le moment :
Sub Choix_dossier()
Dim Dossier As String
Application.FileDialog(msoFileDialogFolderPicker).Show
Dossier = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
Pour le 2) et le 4) je ne sais pas comment faire, pas de soucis par contre pour le 3).
Je suis novice en matière de vba et je me debrouille en général en recopiant des bouts de codes à droite et à gauche, mais la je sèche !
Quelqu'un pourrait-il m'aider ?
Un grand merci pour toutes les réponses que vous pourrez m'apporter.
J'ai écumé pas mal de forum et de post mais je ne trouve pas de solutions à mon problème. Je dispose d'un dossier dans un emplacement variable et contenant X fichiers de type texte (ex du nom des fichiers : 2011-07-29_05h49mn45). Je dois transformer ces fichiers texte en fichiers excel afin de les mettre en forme. Le but de la macro serait :
1) demander un chemin contenant le dossier ou se trouvent les fichiers
2) selectionner automatiquement le premier fichier du dossier (tri par horodatage)
3) l'ouvrir/le convertir/mettre en forme/enregistrer en .xls
4) passer au fichier suivant du dossier
5) recommencer au 1) jusqu'à ce que tous les fichiers du dossiers soient traités.
Pour le 1) j'ai trouvé pour le moment :
Sub Choix_dossier()
Dim Dossier As String
Application.FileDialog(msoFileDialogFolderPicker).Show
Dossier = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
Pour le 2) et le 4) je ne sais pas comment faire, pas de soucis par contre pour le 3).
Je suis novice en matière de vba et je me debrouille en général en recopiant des bouts de codes à droite et à gauche, mais la je sèche !
Quelqu'un pourrait-il m'aider ?
Un grand merci pour toutes les réponses que vous pourrez m'apporter.