Rapport de message :*
 

Re: Probleme avec fichier de jb-ListeFichiersRepertoireRenomme

Titre du sujet : Re: Probleme avec fichier de jb-ListeFichiersRepertoireRenomme
par JCGL le 02/02/2013 07:21:53

Bonjour à  tous,
Salut Mimi,

Peux-tu essayer:
 
Sub ModifieNom()
For Each c In Range([A2], [A2].End(xlDown))
   If c.Offset(0, 2) <> "" Then
     OldName = c.Offset(0, 3).Value & c.Value
     NewName = c.Offset(0, 3).Value & c.Offset(0, 2).Value
     Name OldName As NewName
    End If
Next c
End Sub

Bises à Mimi
A + à tous