renommer les noms de fichiers d'un rep automatiquement

S

Saig

Guest

• 3 Juin 2013

• #16

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.

 

Dernière modification par un modérateur: 3 Juin 2013

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 3 Juin 2013

• #17

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

Re


Peut-être comme ceci:

Code:

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

 

Vote positif 0 Vote négatif

S

Saig

Guest

• 3 Juin 2013

• #18

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

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 3 Juin 2013

• #19

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

Re

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif