re,
j'ai essayé ça en mettant mes N° dans la colonne A et les noms dans la colonne B de la feuil2
mais ça marche pas non plus ....
ça m'énerve un peu là....
Option Explicit
Sub RenommerDossiersCS()
Dim LastRow As Long
Dim i As Long
Dim sDir As String, sOld As String, sNew As String
With Feuil2
LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
sDir = "F:\services\Appels\serveur MANAGEMENT V2.2014\SUIVI CENTRE\APPELS\Classement des appels enregistrés\"
For i = 1 To LastRow
sOld = sDir & .Range("A" & i)
If ExistenceFichier(sOld) Then
sNew = sDir & .Range("B" & i)
Name rep$ & sOld As rep$ & sNew
End If
Next i
End With
End Sub
Private Function ExistenceFichier(sFichier As String) As Boolean
ExistenceFichier = Dir$(sFichier) <> ""
End Function