Ouvrir plusieurs fichiers text par un Macro et faire des modifs

Résolu
jadik123 Messages postés 4 Statut Membre -  
jadik123 Messages postés 4 Statut Membre -
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é




A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

voici un exemple à adapter:

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

1
jadik123 Messages postés 4 Statut Membre
 
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!
0
jadik123 Messages postés 4 Statut Membre
 
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!
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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
0
jadik123 Messages postés 4 Statut Membre
 
ça fonctionne super bien, merci infiniment,

a+
0