Inversion date/mois

Bonjour, je vous explique mon problème :

Je travaille en VBA

Disons que j'ai un jour du mois 11 ou 13, un mois : 04 et une année : 2016 sous la forme DATE = 20160411 (ou 20160413)

Je veux inscrire en VBA 11/04/2016 dans une variable en faisant Mid(DATE, 7, 2) & "/" & Mid(DATE, 5, 2)

SAUF que ça ne marche pas pour 11/04/2016 j'obtiens 04/11/2016 (et en changeant de format j'ai bien 4 novembre)

Alors que pour 13/04/2016 j'obtiens bien ce que je veux. J'imagine que c'est un problème de format américain et qu'à partir de 13, Excel ne voit pas 13 comme un mois mais comme un jour..) mais je sais vraiment pas comment y remédier

Merci d'avance!

Bonjour,

Je ne peux rien joindre, je suis au travail et la sécurité est stricte. Je m'en excuse d'avance

Re,

Et ben, tu n'est pas obligé de joindre le vrai fichier à moins que tu as l'interdiction de joindre un fichier ???

Vous pouvez essayer ceci

Je suis complètement débutant en VBA donc désolé pour la saleté de mon programme, j'ai fait du c/c du vrai projet pour faire un truc qui fonctionne à peu près...

Bonjour,

Une suggestion :

Range("A1").Value = dateCalib

Range("A1").Value = Format(Range("A1").Value, "dd-mm-yyyy")

Gelinotte

Bonjour,

Sub Button3_Click()
    Dim fic, i%
    For i = 1 To 3
        fic = Cells(i, 8).Value
        fic = DateSerial(Mid(fic, 1, 4), Mid(fic, 5, 2), Mid(fic, 7, 2))
        Cells(i, 1).Value = fic
        Cells(i, 1).NumberFormat = "dd/mm/yyyy"
    Next i
End Sub

Cordialement.

Je vous remercie, j'ai testé

Format(dateCalib, "dd/mm/yyyy")

Vous me sauvez!!!