Format date

Bonjour,

Il y a quelques mois "MFerrand", m'a donné un code pour copier des cellules précises d'une feuille vers une autre qui fonctionne à merveille et je le remercie encore.

Mais aujourd'hui avec ce même code ci-dessous, j'ai un problème de date. en K5, je récupère un champ date + heure d'une autre feuille (query), cette feuille est une extraction avec lien d'un fichier Sharepoint. Mon problème est que la date qui s'affiche est la date du jour à 0h00

12/11/2017  00:00:00

i

Sub TransfertM1()

    Dim Ttm(), ColB, tm%, n%, i%, k%

    ColB = Array(1, 2, 5, 9, 10, 6, 16, 18, 20, 27, 12)
    With Worksheets("query")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 3 To n

            If .Cells(i, 1) <> "0" And .Cells(i, 5) = "1" Then
                ReDim Preserve Ttm(11, tm)
                If .Cells(i, ColB(0)) <> "" Then Ttm(0, tm) = .Cells(i, ColB(0)).Value2
                For k = 1 To 10
                    If .Cells(i, ColB(k)) <> "" Then Ttm(k, tm) = .Cells(i, ColB(k))
                Next k
                tm = tm + 1
            End If
        Next i

        For n = 9 To Range("A65536").End(xlUp).Row
Next

    End With
    With Worksheets("TEMPS")
    .Range("A5:k30").ClearContents

        If tm > 0 Then
        .Range("A5").Resize(tm, 11).Value = WorksheetFunction.Transpose(Ttm)

         .Range("k5").Value = DateValue(Format(Date, "dd/mm/yyyy hh:mm"))

       End If

       Call Copie
    End With
End Sub

Je ne comprends pas où est mon erreur ?

Quelqu'un aurait peut-être une solution pour moi ?

D'avance merci

Bonjour

DateValue ne donne que la date

pour avoir la date & heure

ex: .Range("K5").Value = Now()

A+

Maurice

Bonsoir Maurice,

Merci pour votre réponse, mais mon problème est que je ne veux pas récupérer la date du jour mais la date et l'heure d'une colonne (12) de ma feuille "query".