exporter une date

[Reeaz]

Rebonjour,

Je crée une procédure qui intègre 2 dates et j'aimerais exporter ces dates que j'obtiens dans une feuille de calcul excel à un endroit précis!
Mais rien à faire. S'agit il d'un pb de format?
Voici une partie du cose en question.
Quand je met une chaîne de caractère, ca marche ss pb par contre!!

Public Ecart
Public volinterp
Public DateDepart
Public DateMaturite
Public volarond



Sub essai3()

Dim DateDepart As Variant
Dim DateMaturite As Variant

Dim Ecart As Integer
Dim i As Integer
DateDepart = InputBox("Entrez la date à laquelle vous évaluez votre option ", "Date d'évaluation", Date)
DateMaturite = InputBox("Entrez la date à laquelle votre option arrive à maturité ? ", "Date de maturité", Date)
DateDepart = CDate(DateDepart)
DateMaturite = CDate(DateMaturite)
Ecart = DateMaturite - DateDepart
'MsgBox Ecart
Range("G3") = Ecart
Range("G3").Offset(1, 0).Activate



End Sub

Sub essai4()
'J'ouvre ma feuile de calcul
Windows("swaption160.xls").Activate

Range("C7").Select
ActiveCell.ClearContents
nombre = volarondi / 100
Range("C7") = nombre

Range("D8").Select
ActiveCell.ClearContents
Range("D8") = DateDepart

Range("C9").Select
ActiveCell.ClearContents
Range("C9").Value = "yoyo"

End Sub


Si qqun avait des suggestions...
Merci
reeaz

 

[DJN90]

Bjr Reeaz,

Par défaut, le fornat des cellules est "Standard".
Vérifie à cet endroit précis quel est le format de la cellule.

S'il est "Standard" tu peux rajouter ceci à la macro :

Range("tes cellules").NumberFormat = "m/d/yy"

Est-ce que cela fonctionne ?

@+ Dan