XL 2016 Traitement en rafale sur fichier txt

[OOLIVE]

Bonsoir,

Pourriez-vous svp m'aider sur mon besoin ci dessous ?

J'ai besoin via une macro d'exécuter dans un dossier les tâches suivantes :
- Ouvrir tous les fichiers xml enregistrés en .txt
- Récupérer la valeur du tag <Ustrd> (cf. fichier joint)
- Enregistrer le fichiers sous la valeur du tag, sous le même format.

J'ai tenté de me lancer avec mes quelques connaissances mais je me suis vite rendu compte que ça me dépasse..

Sub Test_Monitoring()

Dim Classeur As String
Dim Chemin As String
Dim Tracker As String
Dim BankSc As String
'Chemin à adapter
Chemin = "C:\Users\OOLIVE\Documents\perso\Test\"
Classeur = Dir(Chemin & "*.txt")
If Classeur = "" Then MsgBox " Le répertoire " & Chemin & " est vide ou inexistant": Exit Sub
Do
If Classeur <> "" Then
Application.EnableEvents = False
Workbooks.Open Chemin & Classeur

'''''''''''''''''''''''''''''''''''
Set oNode = oXML.getElementsByTagName("RmtInf").Item(ivar)
BankSc = oNode.SelectSingleNode("Ustrd").Text

'''''''''''''''''''''''

fileSaveName = Application.GetSaveAsFilename(BankSc, fileFilter:="Texte (séparateur: tabulation) (*.txt), *.txt")
If fileSaveName <> False Then
Worksheets(1).SaveAs fileSaveName
End If
ActiveWorkbook.Close False
Application.EnableEvents = True
End If
Classeur = Dir
Loop Until Classeur = ""
End Sub

Quelqu'un a déjà eu ce besoin et/ou serait comment m'aider ?

Merci par avance.

OOlive.

 

[sousou]

Bonsoir
Tu peux sans t'inspirer du fichier joint.
Tu notes en a1 le dossier ou sont tes fichiers,
et en a2 ou tu veux enregistrer le résultat

 

[OOLIVE]

Bonjour,

Merci Sousou. Cependant, je veux pas copier les les fichiers, simplement enregistré sous.
J'ai tenté de changer f.copy par f.SaveAs mais ca ne fonctionne pas.. Des idées ?

Il faudra que je regarde ce soir sinon,

 

[sousou]

Bonjour
La solution de copie était une sécurité en cas de problème.
cette nouvelle version fait pareil, mais efface les ancien fichiers
La première version me semble plus sur, il te suffits d'éffacer les fichiers originaux