Problème avec l'exportation de données en fichier .ics

Bonjour,

J'ai récupéré ce fichier (PJ) qui fonctionne super bien. j'ai transféré le module et la macro dans ma base de données et la j'ai une erreur à la dernière ligne de cette fonction. en déplaçant la feuille j'ai remis le format juste dans chaque colonnes.

Function H2UTC(H As Variant) As String
Dim nowUtc As SYSTEMTIME, Delta_UTC As Single

    Application.Volatile
    Call GetSystemTime(nowUtc)
    Delta_UTC = Hour(Now()) - nowUtc.wHour
    H2UTC = "T" & Format(Hour(CDate(H)) - Delta_UTC, "00") & _
                  Format(Minute(CDate(H)), "00") & Format(Second(CDate(H)), "00") & "Z"
    Exit Function
End Function

Si quelqu'un à une solution je suis preneur !!

Merci d'avance.

Chris

bonjour,

avec les données B2:E2, cela fonctionne. Vous êtes sûr que ce sont des valeurs numeriques valables chez vous ?

J'ai transféré également la feuille dans ma base donc tout est exactement comme le fichier d'origine...

Bonjour

N'ayant pas trouvé le problème, j'ai essayé une autre méthode.

en exécutant la macro depuis le fichier d'origine tout fonctionne. lorsque je transfert le tout dans ma base, le fichier est bien crée mais.....vide

De toute évidence le problème vient de ma base.... mais ou ??

Si vous avez une solution...je suis preneur !

merci d'avance