DEVOIR DE MACRO
Dim sexe As String
Dim mydoc As Document
Set mydoc = Application.Active Document
Sexe = inputBox (« entrer le sexe »)
Nom = inputBox (« entrer le nom de l’étudiant »)
If sexe = « masculin » Then
Mydoc.Paragraphs(1).Range.Text = « Communiqué »
Mydoc.Paragraphs.Add
Mydoc.Paragraphs(2).Range.Text = « L’étudiant » +nom+ » est prié de déposer son dossier d’inscription avant le 12/11/2010 »
Mydoc.Paragraphs.Add
Mydoc.Paragraphs(3).Range.Text = « Passé cette date, il sera considéré comme démissionnaire »
Mydoc.Paragraphs.Add
Mydoc.Paragraphs(4).Range.Text = « L a scolarité »
End if
If sexe = « féminin » Then
Mydoc.Paragraphs(1).Range.Text = « Communiqué »
Mydoc.Paragraphs.Add
Mydoc.Paragraphs(2).Range.Text = « L’étudiante » +nom+ » est priée de déposer son dossier d’inscription avant le 12/11/2010 »
Mydoc.Paragraphs.Add
Mydoc.Paragraphs(3).Range.Text = « Passé cette date, elle sera considérée comme démissionnaire »
Mydoc.Paragraphs.Add
Mydoc.Paragraphs(4).Range.Text = « L a scolarité »
End if
End Sub