Informatique
	EXPERTISE, CONSEILS, FORMATION, ACCOMPAGNEMENT AU CHANGEMENT Solution Intranet, Extranet et Internet Accompagnement et formation au travail collaboratif Accès à la rubrique

Formation
	FORMATION SALARIES ETUDIANTS APPRENTIS. Bureautique, Internet, Sciences de la vie, Mathématique, Physiques Aéronautique Accès à la rubrique

Biologie
	RECHERCHE Biologie cellulaire Biologie moléculaire Génétique Accès à la rubrique

Aéronautique
	PILOTE PRIVE D'AVION Enseignant - aéronautique - aéromodélisme en savoir plus

Création d'une variable qui contient la date dans huit jours

Dim Datemoment
Dim DatemomentF
Dim Datemois
Dim Datejour
Dim Dateannee
Dim dateCourante
Dim dateFuture

'creation de la variable qui contient la date dans huit jour
dateCourante = Date()
dateFuture = DateAdd("d",8, dateCourante)

Datemois = DatePart("m",date)
Datejour = DatePart("d",date)
Dateannee = DatePart("yyyy",date)

DatejourF = DatePart("d",dateFuture)
DatemoisF = DatePart("m",dateFuture)
DateanneeF = DatePart("yyyy",dateFuture)

Datemoment = Datemois&"/"&Datejour&"/"&Dateannee
DatemomentF = DatemoisF&"/"&DatejourF&"/"&DateanneeF