Bonjour,
J'ouvre ce nouveau sujet concernant un problème du format de la date lors d'un copier/coller.
J'ai une fonction qui a une condition, et si la condition est respectée, la fonction renvoie une date, sauf qu'a l'origine la date est du format "jj/mm/aaaa hh:mm:ss" et lors du copier/coller elle prend un nouveau format "mm/dd/yyyy"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Function dateJob(job As String) As String
 
'''''''''''''''''' Fonction pour récuperer la date si le status est COMPL ou ABORT ''''''''''''''''''
 
dateJob = vbNullString
Dim endFile As Integer
Dim i As Integer
 
endFile = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
 
For i = 2 To endFile
 
    If (Feuil1.Cells(i, 4).Value = job) Then
 
'''''''''''''''' test si le status est COMPL ou ABORT ''''''''''''''''''''''''
        If (Feuil1.Cells(i, 19).Value = "COMPL" Or Feuil1.Cells(i, 19) = "ABORT") Then
            dateJob = Feuil1.Cells(i, 2)
 
        End If
 
    Exit For
 
    End If
 
Next i
 
 
End Function

à la base ma fonction doit renvoyer une date, mais n'ayant pas trouver un équivalent de vbNullString pour un type date, je l'utilise comme String.
Je pense que c'est ca l'origine de mon erreur.
Donc quand j'utilise cette fonction dans une autre sub, la date se transforme en format américain.
Pourriez-vous m'aider pour apporter une solution à mon problème