Bonjour,
Je cherche à prendre des données d'un document excel (le fichier source) pour les copier vers un fichier excel de destination. Les données à copier sont celles dont la date a été définie auparavant:
QUOTE
Dim LBDdate As Date
PBDdate As Date
Dim WD As Integer
LBDdate = InputBox("Enter the date of last business day", LBDdate, 0)
Sheets("Sheet1").Range("C15") = LBDdate
Sheets("Sheet1").Range("C16") = PBDdate
WD = Weekday(LBDdate)
Sheets("Sheet1").Range("E15") = WD
' on s'assure que la date insérée ne soit pas un samedi ou un dimanche '
On Error GoTo ErrorHandler
If WD = 7 Then
Err.Number = 521
ElseIf WD = 1 Then
Err.Number = 522
ElseIf WD = 2 Then
Sheets("Sheet1").Range("C16") = DateDiff("d", 3, LBDdate)
Else: Sheets("Sheet1").Range("C16") = DateDiff("d", 1, LBDdate)
End If
ErrorHandler:
Select Case Err.Number
Case 521
MsgBox "A business day cannot fall on a saturday", vbOKOnly, "error 521"
LBDdate = InputBox("Enter the date of last business day", LBDdate, 0)
Case 522
MsgBox "A business day cannot fall on a sunday", vbOKOnly, "error 522"
LBDdate = InputBox("Enter the date of last business day", LBDdate, 0)
End Select
UNQUOTE
Comment utiliser une boucle pour dire que tant que la date insérée dans les cellules de la colonne A est égale à LBDdate, on prend les identifiants des cellules correspondantes dans le colonne B ?
Merci par avance.
Cédric
Je cherche à prendre des données d'un document excel (le fichier source) pour les copier vers un fichier excel de destination. Les données à copier sont celles dont la date a été définie auparavant:
QUOTE
Dim LBDdate As Date
PBDdate As Date
Dim WD As Integer
LBDdate = InputBox("Enter the date of last business day", LBDdate, 0)
Sheets("Sheet1").Range("C15") = LBDdate
Sheets("Sheet1").Range("C16") = PBDdate
WD = Weekday(LBDdate)
Sheets("Sheet1").Range("E15") = WD
' on s'assure que la date insérée ne soit pas un samedi ou un dimanche '
On Error GoTo ErrorHandler
If WD = 7 Then
Err.Number = 521
ElseIf WD = 1 Then
Err.Number = 522
ElseIf WD = 2 Then
Sheets("Sheet1").Range("C16") = DateDiff("d", 3, LBDdate)
Else: Sheets("Sheet1").Range("C16") = DateDiff("d", 1, LBDdate)
End If
ErrorHandler:
Select Case Err.Number
Case 521
MsgBox "A business day cannot fall on a saturday", vbOKOnly, "error 521"
LBDdate = InputBox("Enter the date of last business day", LBDdate, 0)
Case 522
MsgBox "A business day cannot fall on a sunday", vbOKOnly, "error 522"
LBDdate = InputBox("Enter the date of last business day", LBDdate, 0)
End Select
UNQUOTE
Comment utiliser une boucle pour dire que tant que la date insérée dans les cellules de la colonne A est égale à LBDdate, on prend les identifiants des cellules correspondantes dans le colonne B ?
Merci par avance.
Cédric