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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
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
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" 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