journee analyse = DateAdd (retrancher heures -- ajouter heures )

[CAPRI_456]

Bonjour le Forum,


Voilà mon problème:

J'ai une journée de travail en cours soit "Today"

Je souhaite que ma journée de travail que je nomme dans le Code "JourneeAnalyse" prenne en charge les heures suivantes
00.00 h à 06.00 h -------------------NON (1)
06.01 h à 24.00 h -------------------OUI (2)
00.00 h à 06.00 h du jour suivant ---- OUI (3)

Voici mon code ACTUEL:

Annee = Year(Now)
Mois = Month(Now)
Jour = Day(Now)
today = Jour & "-" & Mois & "-" & Annee

JourneeAnalyse = Format(DateAdd("h", 6, today), "dd-mm-yy")
'renvoie today +6 heures (du jour suivant)
'ceci permet d'incorporer les analyses lancées 6 heures après le jour d'analyse

j'ajoute donc 6 heures à today. (soit les heures du lendemain) (3)
le problème est que je ne dois pas prendre en compte les heures du matin de la journée en cours de 00.00 à 06.00 h (1)

Merci pour votre aide...


CAPRI_456

 

[CAPRI_456]

Re : journee analyse = DateAdd (retrancher heures -- ajouter heures )

Bonsoir le Forum,,

Petit progrès,

j'arrive maintenant à définir ma date de début et ma date de fin comme suit:

JourneeAnalyseDebut = Format(DateAdd("h", 6, today), "dd-mm-yy hh-mm")
'renvoie today +6heures(soit le 20/10/2010 06:00) la journée en cours dès 6 h du matin
JourneeAnalyseFin = Format(DateAdd("h", 30, today), "dd-mm-yy hh-mm")
'renvoie today + 30 heures( soit le 21/10/2010 06:00 ) la journée en cours + 30 h pour arriver le jour suivant jusque 06h du matin
--------------------------------------------------------------------

Maintenant je dois pouvoir définir le contenu de ce que j'appelle
JourneeAnalyse qui doit correspondre à la date qui correspond à la période entre début et fin ci-dessus (soit le 20/01)
Cette période doit me permettre de transférer des fichiers dans un dossier qui prend le nom suivant (exemple "fichiers-xls-du-20-01-2010")

j'ai essayé :

JourneeAnalyse = DateDiff("dd-mm-yy", JourneeAnalyseDebut, JourneeAnalyseFin)
mais là cela coince ...

Dim Chemin3 As String
Chemin3 = "V:\fichiers-xls-du-" & JourneeAnalyse
If Dir(Chemin1, vbDirectory + vbHidden) = "" Then MkDir Chemin1
'...si le DOSSIER n'existe pas, le créer
pceJointe.SaveAsFile Chemin3 & "\" & pceJointe


Merci pour vos conseils

CAPRI_456

 

[CAPRI_456]

Re : journee analyse = DateAdd (retrancher heures -- ajouter heures )

bonsoir le Forum

pour faire simple , j'ai imaginé la solution suivante pour la création de mon dossier de sauvegarde:

Chemin3 = "V:\manifestes-xls-du-" & JourneeAnalyseDebut & "-au-" & JourneeAnalyseFin
ce qui donne en clair un dossier intitulé
"manifestes-xls-du-20-01-2010 06-00 -au-21-01-2010 06-00"
c'est un peu long car j'aurai préféré

"manifestes-xls-du-20-01-2010"
tout en y classant les fichiers de la période du 20 au 21
mais là je ne vois pas comment réaliser cet affichage simplifié..

je cherche

Merci
CAPRI-456