Private Sub Btn_Enreg_Click()
Dim vChemin As String, vFichier As String
Dim Reponse As String
' Récupération des variables
vChemin = [H84]
vClient = [E14] & " " & [H14]
vFichier = Txt_Nom
' Enregistrer le classeur
Reponse = MsgBox("Désirez-vous enregistrer " & Chr(10) & _
vFichier & "?" & " dans " & Chr(10) & vChemin, vbYesNo + vbQuestion, "Sauvegarde")
If Reponse = vbYes Then
Set NewBook = Workbooks.Add 'creation
NewBook.SaveAs vChemin & vFichier
End If
If Reponse = vbNo Then
Exit Sub
End If
End Sub