TABLE DES MATIERES
EPIGRAPHE I
Dédicace III
REMERCIEMENTS IV
SIGLES ET ABREVIATIONS V
0. INTRODUCTION 1
0.1. PROBLEMATIQUE 1
0.2. HYPOTHESES 2
0.3. CHOIX ET INTERET DU SUJET 2
0.4. ETAT DE LA QUESTION 3
0.5. DELIMITATION DU SUJET 3
0.6. METHODES ET TECHNIQUES 4
0.6.1. Les Méthodes 4
0.6.2. Les techniques 5
0.7. SUDIVISION SOMMAIRE. 5
CHAP.I. PRESENTATION DE L'I.S.M EN GENERAL ET LA CONSIDERATION
THEORIQUE DES ORDINATEURS 6
SECTION 1: PRESENTATION DE L'I.S .M EN GENERAL 6
1. Identification de l'I.S.M 6
2. Historique 6
3. Objectifs de l'ISM 6
4. Structure organisationnelle de l'ISM 8
5. Le fonctionnement des organes
10
SECTION 2 : CONSIDERATION THEORIQUE DES ORDINATEURS (LA
PLACE
DES ORDINATEURS DANS LES SERVICES) 14
2.1. PRESENTATION DE LA STRUCTURE DES ORDINATEURS DE
L'ISM 14
2.2. L'UTILISATION DES ORDINATEURS ET LEURS CONSEQUENCES
15
2.3. LA PLACE DES ORDINATEURS DANS LES SERVICES
19
CHAP II : L'ANALYSE DE L'EXISTANT 21
61 | Page
1. Définition des concepts 21
2. Documents utilisés 21
a. Documents d'entrée 21
b. Documents de sortie 23
3. SYMBOLES UTILISES 24
4. ANCIEN SCHEMA DE CIRCULATION DE L'INFORMATION
25
5. DESCRIPTION DES TACHES 26
6. CRITIQUE DE L'EXISTANT 26
7. SOLUTIONS ENVISAGEES 27
Chap. III. DEMARCHE METHODOLOGIQUE POUR LA CONCEPTION
D'UNE
BASE DES DONNEES 29
III. 1. CONCEPTION D'UN NOUVEAU SYSTEME D'IDENTIFICATION
DU
PERSONNEL 29
1. Introduction 29
2. Les états de sorties 29
3. Symboles utilisés. 30
4. Nouveau schéma de la circulation de
l'information 31
5. Description des tâches 32
6. Fichiers fonctionnels 32
7. Grille d'analyse des informations 35
8. Abréviations 36
9. Chaîne fonctionnelle 37
III.2. ANALYSE ORGANIQUE 39
1. Définition et but 39
2. Présentation des matériels
utilisés 39
3. Chaîne organique 41
4. Découpage de la chaîne organique
42
CHAP IV : LA PROGRAMMATION SOUS ACCESS VBA 46
IV.1. Généralités 46
IV.2. Quelques concepts 46
1° Une base des données 46
62 | Page
2° Un programmeur 47
3° Elaboration d'un programme 47
4° Choix du langage 48
5° Visual Basic sous Access 48
6° Guide de l'utilisateur 49
CONCLUSION 56
I. BIBLIOGRAPHIE 58
1. TFC 58
2. LIVRES 58
3. COURS ET ENCYCLOPEDIE 58
II. WEBOGRAPHIE 59
TABLE DES MATIERES 60
63 | Page
0 | Page
QUELQUES CODES SOURCES ACCESS VBA UTILISES Code pour
Enregistrer
Private Sub Enregistrer_Click()
Dim db As Database
Dim rec As Recordset
Set bd = CurrentDb
Set rec = bd.OpenRecordset("T-AGENTS", dbOpenTable)
If Me.Nom <> "" Then
rec.AddNew
rec!NumeroAgent = Me.NumeroAgent
rec!Nom = Me.Nom
rec!Postnom = Me.Postnom rec!NomPere = Me.NomPere rec!NomMere
= Me.NomMere rec!DateNaissance = Me.DateNaissance
rec!Nationalite = Me.Nationalite
rec!EtatCivil = Me.EtatCivil
rec!NomConjoint = Me.NomConjoint
rec!NombrEnfant = Me.NombrEnfant
rec!DateEngagement = Me.DateEngagement
rec!Grade = Me.Grade
rec!Fonction = Me.Fonction rec!Sexe = Me.Sexe
rec!Anciennete = Me.Anciennete
rec!Qualification = Me.Qualification
rec!NumTele = Me.NumTele rec!Adresse = Me.Adresse
Else
1 | Page
rec!Date = Me.Date rec.Update
MsgBox "Enregistrement reussi avec succès", vbInformation,
"Theocent_Soft"
rec.Close
bd.Close
NumeroAgent.Value = Me.NumeroAgent + 1
Me.Nom = ""
Me.Postnom = ""
Me.NomPere = ""
Me.NomMere = ""
Me.DateNaissance = ""
Me.Nationalite = ""
Me.EtatCivil = ""
Me.NomConjoint = ""
Me.NombrEnfant = ""
Me.DateEngagement = ""
Me.Grade = ""
Me.Fonction = ""
Me.Sexe = ""
Me.Anciennete = ""
Me.Qualification = ""
Me.NumTele = ""
Me.Adresse = ""
'Me.Date = ""
Me.Nom.SetFocus
2 | Page
MsgBox "Completez les champs vides", vbCritical, "Theocent_Soft"
End If
End Sub
Codes pour ajouter une photo sur le formulaire
Private Sub photo_Click()
getfileName
End Sub
Private Sub getfileName()
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Sélectionner la photo de l'agent physique"
.Filters.add "Tous les fichiers", "*.*"
.Filters.add "Fichiers JPEG", "*.jpg"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![Photo].Visible = True
Me![Photo].SetFocus
Me![Photo].Text = fileName
'Me![Commande32].SetFocus '
3 | Page
'Me![Photo].Visible = False End If
End With
End Sub
Code pour cacher les contrôles à
l'ouverture du formulaire
Private Sub Form_Load()
Me.NumeroAgent.Visible = False Me.Nom.Visible = False
Me.Postnom.Visible = False Me.NomPere.Visible = False
Me.NomMere.Visible = False Me.DateNaissance.Visible = False
Me.Nationalite.Visible = False Me.EtatCivil.Visible = False
Me.NomConjoint.Visible = False Me.NombrEnfant.Visible = False
Me.DateEngagement.Visible = False Me.Grade.Visible = False
Me.Fonction.Visible = False Me.Sexe.Visible = False
Me.Anciennete.Visible = False Me.Qualification.Visible = False
Me.NumTele.Visible = False
4 | Page
Me.Adresse.Visible = False Me.Date.Visible = False
Me.Commande19.Enabled = False Me.Commande32.Enabled = False
End Sub
Code pour rechercher et afficher les contrôles
cachés et masqués
Private Sub Rechercher_AfterUpdate()
Dim Theocent As Database
Dim Mytable As Recordset
Set Theocent = CurrentDb
Set Mytable = Theocent.OpenRecordset("T-AGENTS", dbOpenTable)
Mytable.MoveFirst
Mytable.Index = "PrimaryKey"
Mytable.Seek "=", Me.Theocent
Me.NumeroAgent = Mytable!NumeroAgent Me.Nom = Mytable!Nom
Me.Postnom = Mytable!Postnom
Me.NomPere = Mytable!NomPere
Me.NomMere = Mytable!NomMere
Me.DateNaissance = Mytable!DateNaissance Me.Nationalite =
Mytable!Nationalite Me.EtatCivil = Mytable!EtatCivil Me.NomConjoint =
Mytable!NomConjoint Me.NombrEnfant = Mytable!NombrEnfant Me.DateEngagement =
Mytable!DateEngagement
5 | Page
Me.Grade = Mytable!Grade
Me.Fonction = Mytable!Fonction
Me.Sexe = Mytable!Sexe
Me.Anciennete = Mytable!Anciennete
Me.Qualification = Mytable!Qualification
Me.NumTele = Mytable!NumTele
Me.Adresse = Mytable!Adresse
'Me.Date = Mytable!Date
Me.NumeroAgent.Visible = True Me.Nom.Visible = True
Me.Postnom.Visible = True Me.NomPere.Visible = True
Me.NomMere.Visible = True Me.DateNaissance.Visible = True
Me.Nationalite.Visible = True Me.EtatCivil.Visible = True
Me.NomConjoint.Visible = True Me.NombrEnfant.Visible = True
Me.DateEngagement.Visible = True Me.Grade.Visible = True Me.Fonction.Visible =
True Me.Sexe.Visible = True Me.Anciennete.Visible = True
Me.Qualification.Visible = True
6 | Page
Me.NumTele.Visible = True Me.Adresse.Visible = True
Me.Date.Visible = True Me.Commande19.Enabled = True Me.Commande32.Enabled =
True
Cette liste n'est pas terminée
End Sub
| 
