Discussion :

[nacereddine.mourad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[nacereddine.mourad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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))

[kiki29]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nacereddine.mourad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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