Sub archivage()
'declaration des variables
Dim NomDossier As String
Dim CheminDossier As String
On Error GoTo 1 'gestion des erreurs
Application.DisplayAlerts = False 'on désactive les messages d'alerte
If Range("A2").Value = "" Then 'on teste que le nom du client a bien été saisie ou pas
MsgBox "attention vous n'avez pas saisie le nom du client." & vbCrLf & _
"merci de faire le necessaire avant de realiser la sauvegarde", vbOKOnly + vbInformation, "sauvegade formulle"
Else 'sinon
With ActiveWorkbook 'enregistrement du classeur portant le nom de la cellule A2
.SaveAs filname:=ThisWorkbook & "\" & Range("A2"), FileFormat:=xlOpenXMLWorkbook
End With
'onafficheun messageinformant que le fechier a bien été sauvegardé.
MsgBox "votre formilaire au nom [ " & Range("A2") & " ] a bien été enregistré dans votre dossier"
Sheets("Fiche renseignement").Shapes("bouton").Delete
End If
Application.DisplayAlerts = True 'on reactive la gestion des alertes
1
End Sub