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é
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,
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,
'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
Le chemin du dossier est : C:\Users\Desktop\TEST
Pouvez vous m'aider pour ça, j'apprécie beaucoup!
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
-
6931
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 29 septembre 2020
552'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 SubVoilà!
@+ Le Pivert
a+