[VBA/EXCEL] Concaténation de chaîne simple

Bonjour,

Je souhaiterai concaténer trois parties d'un integer.
Voilà mon code
DateCompareMin = CInt(Mid(From, 5, 4) & (Mid(From, 5, 4) & Mid(From, 1, 2))

Bizarement, Mid(From, 5, 4) , (Mid(From, 5, 4), Mid(From, 1, 2) affiche bien des valeurs, mais DateCompareMin est toujours à vide.

Merci à celui qui pourra m'aider !

2 réponses

  1. je ne sais pas ce que tu veux faire... mais c'est mal parti!

    DateCompareMin = CInt(Mid(From, 5, 4) & (Mid(From, 5, 4) & Mid(From, 1, 2))

    tu n'as pas le droit ajouter du texte et des entiers
    Cint renvoie une variable de type integer
    mid renvoie une chaine de charactère.
    je pense qu'il jeter un oeil du côté de dateserial
    MyDate = DateSerial(2010, 12, 16) ensuite tu pourras comparer.