Bonjour à toutes et à tous,
Je souhaite déplacer (merci JB) un fichier en le renommant avec le contenu
d'une cellule.
Est-il possible de remplacer tous les caractères interdits (?/... par le - ?
Merci de votre aide,
Lulu

Merci beaucoup,
Lulu
"isabelle" <i***v> a écrit dans le message de news:
O1DY4NAeIHA.4144***TK2MSFTNGP05.phx.gbl...
> bonjour Lulu,
>
> Sub RenommeFichier()
> leNom = NomFichier(Range("A1"))
> Name "x.xls" As leNom & ".xls"
> End Sub
>
> Function NomFichier(cellule As Range) As String
> Dim CI As Variant
> CI = Array("[", "]", "\", "/", "?", "*", ":")
> NomFichier = cellule
> For i = 0 To 6
> NomFichier = Application.Substitute(NomFichier, CI(i), "-")
> Next
> End Function
>
> isabelle
>
> Lulu la Nantaise a écrit :
>> Bonjour à toutes et à tous,
>> Je souhaite déplacer (merci JB) un fichier en le renommant avec le
>> contenu d'une cellule.
>> Est-il possible de remplacer tous les caractères interdits (?/... par
>> le - ?
>> Merci de votre aide,
>> Lulu