a = InputBox("Entrer le dossier dans lequel le Tableau de suivi doit être sauvegardé (ex: P:\CamGSM\Management)", "ok")
Chemin_sauvegarde = a & "\Tableau de suivi " & Format(Date, "yyyy mm dd") & ".doc"
If Not Chemin_sauvegarde = ???? Then
msg_erreur1 = MsgBox("Erreur de format du chemin de sauvegarde, rentrer à nouveau un chemin ")
a = InputBox("Entrer le dossier dans lequel le Tableau de suivi doit être sauvegardé (ex: P:\CamGSM\Management)", "ok")
Chemin_sauvegarde = a & "\Tableau de suivi " & Format(Date, "yyyy mm dd") & ".doc"
If Not Chemin_sauvegarde = ???? Then
msg_erreur2 = MsgBox("Erreur de format du chemin de sauvegarde, échec de sauvegarde du Tableau de suivi ")
Exit Sub
Else
WordDoc.SaveAs Chemin_sauvegarde
End If
Else
WordDoc.SaveAs Chemin_sauvegarde
End If