Caractères interdits

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #5168471
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




Lulu la Nantaise
Le #5239181
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




Publicité
Poster une réponse
Anonyme