VBA pb Calcule d'heure résultat nb mais erreur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

anthooooony

XLDnaute Occasionnel
Bonjour

J'ai un petit problème avec un petit code, mes collègues souhaitent recevoir un décompte pour la fin du monde qui est imminent bien sur.

J'ai crée le batch avec un lancement en tache planifié, mais je n'arrive pas à lui faire dire de mettre le bon résultat..

J'ai crée une variable comme vous verrez ci dessous ou j'ai marqué date fatidique - date du jour, il devrait me trouver 23 mais il trouve tout autre chose, mais je pense que j'ai du merdé quelque part.

Auriez vous une la réponse?

merci d'avance

Anthooooonu

Rendu

Objet : "-82481,9991302187"

Corps du Mail

"-82481,9991302187 avant la fin du monde"

Il devrait y avoir marqué 23 ...




Code:
Sub Macro2()


 Dim OutApp As Object
    Dim OutMail As Object
Dim fdm
fdm = 21 / 12 / 2012 - Date

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
       ' .to = "pierre.rabbe@cofely-gdfsuez.com;thomas.gavet@cofely-gdfsuez.com"
        .BCC = "anthony.saiz@cofely-gdfsuez.com"
        .Subject = fdm - Date
               .HTMLBody = "<font face='Calibri'><br><br><br>" & _
        fdm - Date & "  avant la fin du monde"



        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    
  End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
962
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
613
Réponses
17
Affichages
2 K
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
452
Réponses
2
Affichages
1 K
Retour