Copier un document PDF et le renommer avec une textbox

'### Constantes à adapter ###
Const SOURCE As String = "C:\modèle.pdf"
Const DIR_DEST As String = "C:\DossierDesCopies"
'############################

Sub CopieFichierPDF()
Dim FSO As Object
Dim Fichier As Object
Dim Dossier As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(SOURCE) Then
  MsgBox "Le fichier " & SOURCE & " n'existe pas."
  Exit Sub
End If
If Not FSO.FolderExists(DIR_DEST) Then
  Set Dossier = FSO.CreateFolder(DIR_DEST)
End If
FSO.CopyFile SOURCE, DIR_DEST & "\" & "CopiePDF.pdf", True
'pour votre cas      FSO.CopyFile SOURCE, DIR_DEST & "\" & TextBox1 & ".pdf", True
End Sub