sauvegarde automatique pour plusieurs fichiers avec une seule macro

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bingopops

XLDnaute Nouveau
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
567
Réponses
2
Affichages
1 K
Réponses
1
Affichages
821
Réponses
22
Affichages
3 K
Réponses
11
Affichages
2 K
Retour