Bonjour,
J'utilise un logiciel de traitement de données qui reçoit des fichiers .REC que l'on ne trouve que très rarement (malheureusement ici). A l'aide de ce logiciel je peux transformer les fichiers en .txt. Cependant ayant environ 500 fichiers à traiter et la manoeuvre est compliquée (et surtout fastidieuse). Du coup j'aimerais trouver un moyen d'enregistrer les fichiers les uns à la suite des autres avec une incrémentation (déjà présente sur les premiers fichiers donc la récupération du numéro est possible). Pour le moment j'ai cette macro
Où "\MPBVB055.FLD" correspond à un fichier et "TEST55.txt" le nom sous lequel il se retrouve exporter.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub Macro_export() Dim NameArray ActiveDatabase.RootFolder.Import _ "C:\User\U399999\Edouard\Essai_DAS1000\Donnees rec\MPBVB055.REC", _ "SEFRAM Files (*.rec)|*.rec" ActiveDatabase.Object("\MPBVB055.FLD").Open = True ActiveWindow.Panes(fpExplorerPaneList).Activate ActiveDatabase.ActiveFolder.Object("Voie 7").Select ActiveDatabase.Selection.SelectAll ActiveDatabase.Selection.Export fpExportFormatTXT, _ "C:\User\Essai_DAS1000\Donnees txt\TEST55.txt" End Sub
Maintenant je n'arrive pas à trouver un moyen de le faire en automatique avec "MPBVB056" => "TEST56.txt", "MPBVB057"=>"TEST57.txt" etc
Auriez-vous une idée ?
Merci d'avance
Salutations,
Rahmor
Partager