Sujet Précédent Sujet Suivant

Ouvrir plusieurs fichiers text par un Macro et faire des modifs

Résolu/Fermé
jadik123 Messages postés 4 Date d'inscription jeudi 25 janvier 2018 Statut Membre Dernière intervention 26 janvier 2018 - 25 janv. 2018 à 14:58
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é




A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
25 janv. 2018 à 18:53
Bonjour,

voici un exemple à adapter:

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

1
jadik123 Messages postés 4 Date d'inscription jeudi 25 janvier 2018 Statut Membre Dernière intervention 26 janvier 2018
25 janv. 2018 à 20:55
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 Date d'inscription jeudi 25 janvier 2018 Statut Membre Dernière intervention 26 janvier 2018
26 janv. 2018 à 02:26
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
26 janv. 2018 à 07:56
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 Date d'inscription jeudi 25 janvier 2018 Statut Membre Dernière intervention 26 janvier 2018
26 janv. 2018 à 14:26
ça fonctionne super bien, merci infiniment,

a+
0

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"
sidojaice -
JIP -

24 réponses