sauvegarde automatique pour plusieurs fichiers avec une seule macro

[bingopops]

bonjour à tous,

j'aurais besoin de votre aide, s'il vous plait.

j'ai plusieurs fichier que j'extrais toutes les semaines, il sont en format .DATA

Mon but est de convertir les données, de chacun des fichiers à partir d'un fichier que j'ai appelé "fichier macro". Pour ça c'est bon. ensuite, je dois les sauvegarder dans le format excel.

Le problème est que je n'arrive pas à automatiser cette partie, pour qu'il m'enregistre le fichier sous son bon nom et pas un nom automatique que j'aurais mis dans la formule. Suis-je clair? ... peut être moins sur la fin...

voici le programme, pour le moment. Il tourne sauf que pour la fin, ça ne marche que pour le fichier sur lequel je travaille actuellement...

Merci par avance.

Sub convertir_colonnes()

ChDir ("\\...\proj01\013436\BOUCHER")
ouvrir_fichier = Application.GetOpenFilename(Title:="Sélectionner le fichier à ouvrir")
If ouvrir_fichier = False Then
MsgBox ("Aucun fichier n'a été sélectionné")
Exit Sub
End If
Workbooks.Open Filename:=ouvrir_fichier
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1)), TrailingMinusNumbers:=True


ActiveWorkbook.SaveAs Filename:= _
"\\...\proj01\013436\BOUCHER\fichier macro.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub