renommer les noms de fichiers d'un rep automatiquement

[midou_casa]

bonjour tout le monde,
y a t'il moyn pour renommer automatiquement le nom des fichiers d'un dossier avec du code VBA?🙂

 

[Saig]

Re : renommer les noms de fichiers d'un rep automatiquement

Bonjour,

Super, merci ça fonctionne

Par contre si je veux changer un seul titre et donc que je complète juste une ligne de la colonne B et C, ça me modifie aussi les autres titres en enlevant les termes de la seule cellule de la colonne B sans remplacer.

CA ne modifie pas dans le contenu le Pied de page.

 

[MJ13]

Re : renommer les noms de fichiers d'un rep automatiquement

Re


Peut-être comme ceci:

Sub renommeBis()
I = 1
For Each cell In Range("A2:A" & Range("A65536").End(xlUp).Rows.Row)
oldname = Cells(1, 1).Value & "\" & cell
'newname = Cells(1, 1).Value & "\" & "temp" & I & ".txt"
If Cells(cell.Row, 3) <> "" Then GoTo suite Else newname = Cells(1, 1).Value & "\" & Cells(cell.Row, 3) & Mid(cell, 4, Len(cell) - 3)
'MsgBox newname
'Stop
suite:
I = I + 1
Name oldname As newname
Next
End Sub

 

[Saig]

Re : renommer les noms de fichiers d'un rep automatiquement

Erreur 75 avec le nouveau code
Erreur d'accès chemin/fichier

 

[MJ13]

Re : renommer les noms de fichiers d'un rep automatiquement

Re

Erreur 75 avec le nouveau code
Erreur d'accès chemin/fichier

Désolé, mais je ne vois pas 😕. Je te conseille de suivre une formation, c'est le meilleur moyen pour pouvoir se débrouiller tout seul.