Discussion :

[funtim78]

Bonjour a tous!

Je suis en train de créer une .dll COM en C#, que j'appelle en suite via Excel/VBA.
Je souhaite donne en VBA un tableau de dates, que je récupere via C#. Pour cela, j'utilise le code suivant:

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
public void SetBankHolidaysCalendar(object holidaysCalendar) {
            DateTime[] intermediaryTable;
            List<DateTime> finalList = new List<DateTime>();
 
            try {
                intermediaryTable = (DateTime[])holidaysCalendar; // J'essaye de caster en tableau de date une dimension
            } catch (InvalidCastException) {
                throw new InvalidCastException("The Holidays Calendar has to be a 1-dimension array of Dates."); // Si le "castage" rate
            }
 
            foreach (DateTime dateD in intermediaryTable)
                finalList.Add(dateD);
 
            ExchangeBankHolidaysCalendar = finalList;
        }

Cependant ce code ne fonctionne pas, et plante au niveau du cast.
Je ne comprends pas vraiment pourquoi, surtout que dans Visual Studio, le type de holidaysCalendar est : object {System.DateTime[]}

De plus, je réalise un processus similaire avec des tableaux de double, et il n'y a aucune probleme. Une idée d'ou le probleme peut venir?


Merci !

[lead8209]

Salut,
si ma mémoire est bonne les dates sont stockées en double dans Excel. Voila pourquoi quand tu tentes un cast directement vers Datetime il te jette.
Tu peux caster ton object en tableau de double, itérer sur chaque item que tu pourras caster en DateTime à l'aide de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateTime.FromOADate(double);

Tiens nous au courant.

A+

[funtim78]

Bonjour,

J'ai des résultats assez surprenant en fait...

Si j'essaye de créer un tableau unicolonne de double, j'obtiens le meme probleme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

intermediaryTablePlus = (double[]) holidaysCalendar;

En regardant le type de holidaysCalendar, il s'agit en fait maintenant d'un double[*] (ou DateTime[*] dans le cas de mon premier code), et non d'un double[] (ou DateTime[]) !!!
Une idée de de ce que peut signifier cette etoile? Il me semble que c'est normalement pour les pointeurs, mais la....


Par contre, si j'essaye de passer un tableau de plusieurs dimensions, aucun probleme: le cast, meme DateTime, se fait parfaitement...

[lead8209]

Salut,
tu peux montrer le code qui récupère la valeur des cellules de Excel ?

[funtim78]

Bonjour,

Rien de tres compliqué coté VBA: je recupere un Variant, je le cast en date, et j'appelle ma fonction:

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
Sub generateDates()
    Dim listDate As ExchangeHolidayCalendar '''' Classe qui contient SetBankHolidaysCalendar en C#
    Set listDate = New ExchangeHolidayCalendar
 
    Dim calendrier() As Date
    Dim rangeCal As Variant
 
    rangeCal = Range("holidayCalendar")
    ReDim calendrier(LBound(rangeCal) To UBound(rangeCal))
 
    For i = LBound(rangeCal) To UBound(rangeCal)
        calendrier(i) = CDate(rangeCal(i, 1)) '''' Je Cast
    Next
 
    listDate.SetBankHolidaysCalendar (calendrier) '''''J'envoie le tableau
End Sub