Ouvrir plusieurs fichiers text par un Macro et faire des modifs [Résolu/Fermé]

Messages postés
4
Date d'inscription
jeudi 25 janvier 2018
Statut
Membre
Dernière intervention
26 janvier 2018
- - Dernière réponse : jadik123
Messages postés
4
Date d'inscription
jeudi 25 janvier 2018
Statut
Membre
Dernière intervention
26 janvier 2018
- 26 janv. 2018 à 14:26
Bonjour tout le monde,
J’ai une tache enuiyante au travail et j’aime bien solliciter votre aide si c’est possible, je sais que c’est facile pour les gens qui maitrise le language macro sur excel mais moi j’ai pas de connaissance, je vais essayer d’être clair dans la description du probléme,
J’ai plus au mois 50 fichiers text que je dois ouvrir un par un et modifier un chiffre unique pour tous les fichiers par un chiffre approprié qui se trouve dans une liste Excel, donc il faut que :
• J’ouvre le fichier text (les fichiers text se trouvent dans un seul dossier)
• Supprimer le chiffre 99999 et le remplacer par le chiffre approprié au fichier ex : 17500 – 17501 – 17502
• Enregistrer le fichier text, seulement cette fois ci si c’est possible d’affecter un nom à mon choix par exemple au lieu que le nom du fichier soit TEXT348 je pourrai remplacer TEXT par STORE,

Voici un print screen pour illustrer ma demande,



Merci d’avance pour votre aide, c’est grandement apprécié




Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
6365
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 novembre 2019
412
1
Merci
Bonjour,

voici un exemple à adapter:

https://www.cjoint.com/c/HAzr0pJbwkQ

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 70131 internautes nous ont dit merci ce mois-ci

jadik123
Messages postés
4
Date d'inscription
jeudi 25 janvier 2018
Statut
Membre
Dernière intervention
26 janvier 2018
-
Merci infiniment cs_Le Pivert, j'ai essayé de modifier le chemin oû se trouvent les fichiers .txt, mais la macro boug, surement j'ai pas ajouté le chemin comme il faut,

Le chemin du dossier est : C:\Users\Desktop\TEST

Pouvez vous m'aider pour ça, j'apprécie beaucoup!
jadik123
Messages postés
4
Date d'inscription
jeudi 25 janvier 2018
Statut
Membre
Dernière intervention
26 janvier 2018
-
Excusez-moi cs_Le Pivert, la macro fonctionne bien, elle change les 99999 par 17500 ..., mais la macro beug sur : Set oFl = oFSO.GetFile(ActiveWorkbook.Path & "\TEXT" & Var & ".txt") 'chemin fichier texte a adapter
Est ce que la dernière partie est incluse dans la macro câd enregistrer les fichiers en remplaçant TEXT par STORE,

merci d'ignorer le message précédent,

Merci beaucoup!
cs_Le Pivert
Messages postés
6365
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 novembre 2019
412 -
Remplacer ceci:


'boucle sur la colonne A
Sub For_X_to_Next_Ligne()
Dim maLigne As Long
Dim GestionFichier As New Scripting.FileSystemObject
 maLigne = Range("A" & Rows.Count).End(xlUp).Row
 Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 2 To maLigne
        Var = FL1.Cells(NoLig, NoCol)
      lire 'lit fichier texte
      ecrire 'écrit fichier texte
      GestionFichier.MoveFile ActiveWorkbook.Path & "\TEXT" & Var & ".txt", ActiveWorkbook.Path & "\STORE" & Var & ".txt" 'renommer fichier
    Next
    Set FL1 = Nothing
    MsgBox "Opération Terminée"
End Sub


Voilà!

@+ Le Pivert
jadik123
Messages postés
4
Date d'inscription
jeudi 25 janvier 2018
Statut
Membre
Dernière intervention
26 janvier 2018
-
ça fonctionne super bien, merci infiniment,

a+