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

Signaler
Messages postés
4
Date d'inscription
jeudi 25 janvier 2018
Statut
Membre
Dernière intervention
26 janvier 2018
-
Messages postés
4
Date d'inscription
jeudi 25 janvier 2018
Statut
Membre
Dernière intervention
26 janvier 2018
-
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é




1 réponse

Messages postés
6987
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2020
562
Bonjour,

voici un exemple à adapter:

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

1
Merci

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

CCM 60511 internautes nous ont dit merci ce mois-ci

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!
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!
Messages postés
6987
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2020
562
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
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+