Renommer un fichier copié (FileCopy), via Textbox, en évitant les symbol

Version imprimable

Bonjour et merci pour votre patience
Avec l’aide du forum ont à réussi à copier une image et la coller dans un répertoire spécifique.
La problématique : et de renommer le fichier coller comme la description du contenu de la Textbox14
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub CommandButton19_Click() Dim NomFichier As String Dim Fichier Fichier = Application.GetOpenFilename() If Fichier <> False Then NomFichier = Mid(Fichier, InStrRev(Fichier, "\") + 1) FileCopy Fichier, ThisWorkbook.Path & "\Information\Photos\Userform\" & NomFichier MsgBox "Photo attribuer" Else MsgBox "Photo non attribuer" End If End Sub
merci, et bonne continuation.

la problématique est résolu, mais je doit empêcher l'écriture des symboles \/:*?"<>|

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton19_Click()
Dim NomFichier As String
Dim Fichier
 
Fichier = Application.GetOpenFilename(",*.jpg")
 
If Fichier <> False Then
 
NomFichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)
 
 
FileCopy Fichier, ThisWorkbook.Path & "\Information\Photos\Userform\" & TextBox14.Text & ".jpg"
 
MsgBox "Photo attribuer"
Else
MsgBox "Photo non attribuer"
End If
 
End Sub

Salut, via cette fonction par exemple, il y en d'autres :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Function NomFichierValide(sNomFichier As String) As String
Const CaracInterdits As String = """*/:<>?[\]|"
Dim i As Long, Car As String * 1
Dim sNomVal As String
    sNomVal = Trim$(sNomFichier)
    For i = 1 To Len(CaracInterdits)
        Car = Mid$(CaracInterdits, i, 1)
        sNomVal = Replace(sNomVal, Car, "")
    Next i
    NomFichierValide = sNomVal
End Function

23/05/2016, 08h09
nacereddine.mourad

Merci encore kiki29 de votre aide précieuses;
J’ai copier la fonction dans un module, mais je n'ai aucune idée à adapter la fonction à Textbox14 (Private Sub TextBox14_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger))

Salut, à priori plutôt comme ceci, à tester dans ton contexte.

Code:

1
2
3
4
5
Option Explicit
 
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox4.Text = NomFichierValide(TextBox4.Text)
End Sub

merci kiki29, j'ai tester ton code, mais il ne fonctionne pas dans mon cas

j'ai trouver une autre solution avec Table des caractères ASCII
Code:

1 2 3 4 5 6 7 8 Private Sub TextBox14_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 92 Or KeyAscii = 47 Or KeyAscii = 58 Or KeyAscii = 63 Or KeyAscii = 34 Or KeyAscii = 60 Or KeyAscii = 62 Then KeyAscii = 0 Beep End If End Sub
merci infiniment kiki29

Re, bref qqch comme ceci :

Code:

1
2
3
4
5
6
7
Option Explicit
 
Const entrees_non_permises = """*/:<>?[\]|"
 
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(entrees_non_permises, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub