Avoir la même date de facturation
Bonjour le forum
Le code ci-dessous me permet de centraliser les ventes de mes produits.
Le soucis que je rencontre porte sur la date du jour.
En effet, dans la configuration actuelle, à partir de minuit, la date du jour change ce qui est normal.
Je souhaite qu'on m'aide à faire en sorte que jusqu'à 3h du matin la date ne change pas.
Comment faire ?
Code:
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
30
31
32
33
| Dim ligExport As Long
'Ce code permet d'alimenter la feuil ETAT_VENTE
ligExport = Feuil2.Range("f" & Rows.Count).End(xlUp).Row + 1
'Affectation de la cellule contanant le numéro de facture à incrémenter
If Me.Serveur <> "" And Me.TextBox_Réf <> "" Then 'si service et ref renseignés
For i = 1 To 10 'pour toutes les lignes
If Me.Controls("ComboBox_Bois" & i) <> "" And Me.Controls("TextBox_Qte" & i) <> "" Then 'si tous les contrôles de la ligne sont remplis
'export
With Feuil2
.Range("a" & ligExport) = Date
.Range("b" & ligExport) = Me.Controls("ComboBox_Bois" & i)
.Range("c" & ligExport) = CDbl(Me.Controls("TextBox_Qte" & i))
.Range("d" & ligExport) = CDbl(Me.Controls("TextBox_Mtant" & i))
.Range("e" & ligExport) = Me.Serveur
.Range("f" & ligExport) = Me.TextBox_Réf
.Range("g" & ligExport) = Me.CodeExpl
.Range("h" & ligExport) = CDbl(Val(Me.TextBox_Encais))
.Range("j" & ligExport) = CDbl(Val(Me.TextBox_Avoir))
.Range("i" & ligExport) = CDbl(Val(Me.TextBox_Reste))
.Range("k" & ligExport) = Format(Now(), "hh:mm")
'.Range("a" & ligExport) = Date
End With
'incrémentation de la ligne
ligExport = ligExport + 1
End If
Next i
End If |
