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.