Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Caractères interdits

2 réponses
Avatar
Lulu la Nantaise
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

2 réponses

Avatar
isabelle
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

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




Avatar
Lulu la Nantaise
Merci beaucoup,
Lulu
"isabelle" a écrit dans le message de news:

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

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