1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| ' -----------Déclaration des variables--------------
Dim rsInfos
'Dim Login
Dim Initiales
Dim Nom, Prenom, Email, Service
Dim SaisirAppel, ValiderAppel,SupprimerAppel, ListeDansAppel
Dim AttribuerConge, ValiderConge
Dim Parametrages, Theme, ChangerTheme, CouleurConges
Dim ModifContacts
'---- Logiciels ---------
Dim SoftAjouterModifier, SoftAccesModification, SoftModifierDateContrat, SoftChangerVersion, SoftCommandeEnCours, SoftEcrireCommentaire
Dim SoftCdePassee, SoftCdeRecue
[...]
'---------------------------------
'------- LOGICIELS ---------------
If Application ("Logiciels") = "Oui" Then
SoftAjouterModifier = rsInfos("SoftAjouterModifier")
SoftAccesModification = rsInfos("SoftAccesModification")
SoftModifierDateContrat = rsInfos("SoftModifierDateContrat")
SoftChangerVersion = rsInfos("SoftChangerVersion")
SoftCommandeEnCours = rsInfos("SoftCommandeEnCours")
SoftCdePassee = rsInfos("SoftCdePassee") (ligne 70)
SoftCdeRecue = rsInfos("SoftCdeRecue")
SoftEcrireCommentaire = rsInfos("SoftEcrireCommentaire")
End If |
Partager