Format date et heure. Fermé

Question

Bonjour, 


Je me tourne une nouvelle fois vers vous pour obtenir de l'aide !!

Je vous explique, depuis Excel j'ai mis en place l'envoi de mail via un bouton. Cela fonctionne bien sauf....
Le format de la date et de l'heure n'est pas celui voulut, sur mon fichier j'ai : mercredi 30 janvier 2019 et 12:50 sauf qu'à la réception du mail j'obtiens ce genre là 30/01/2019 et 43495, 4440046296 (pour l'heure) c'est pas terrible admettez !!!

Voici le lien : https://mon-partage.fr/f/2qLFe9IK/

Merci pour vos retour.

M-12 · Answer

Bonjour,

Remplace la macro par celle-ci

Sub Envoyer_Mail_Outlook()
    Dim ObjOutlook As New Outlook.Application
    Dim oBjMail
    Dim Nom_Fichier As String

Set ObjOutlook = New Outlook.Application
     Set oBjMail = ObjOutlook.CreateItem(olMailItem)
     
     Nom_Fichier = "C:\Temp\Délais Avions - Copie.pdf"
        If Nom_Fichier = "" Then Exit Sub
         With oBjMail
            .To = "jerome.bouly.external@airbus.com"
            .Body = "Accès Avion " & Range("D3").Value & vbCrLf & vbCrLf & vbCrLf & vbCeLf & "Arrivée avion :      le " & Range("J3").Value & " à " & Format(Range("L3").Value, "hh:mm") _
            & vbCrLf & vbCrLf & vbCeLf & "Entrée 1 :             le " & CDate(Range("J26").Value) & " à " & Format(Range("L26").Value, "hh:mm") _
            & vbCrLf & vbCrLf & vbCeLf & "Cabine :               le " & CDate(Range("J29").Value) & " à " & Format(Range("L29").Value, "hh:mm") _
            & vbCrLf & vbCrLf & vbCeLf & "Entrée 4 :             le " & CDate(Range("J32").Value) & " à " & Format(Range("L32").Value, "hh:mm") _
            & vbCrLf & vbCrLf & vbCeLf & "Soute 1 :              le " & CDate(Range("J55").Value) & " à " & Format(Range("L55").Value, "hh:mm") _
            & vbCrLf & vbCrLf & vbCeLf & "Soute 2 :              le " & CDate(Range("J58").Value) & " à " & Format(Range("L58").Value, "hh:mm") _
            & vbCrLf & vbCrLf & vbCrLf & vbCeLf & "Cordialement," _
            & vbCrLf & vbCrLf & vbCeLf & "L'Equipe Working Party Cabine."
            .Subject = "MSN " & Range("D3").Value
            .Display
            '.Send
        End With
        Set oBjMail = Nothing
        Set ObjOutlook = Nothing
            
End Sub

Vaucluse · Answer

Bonjour

1° proposition, reste à valider:
intégrer en en-tête de la macro d'envoi le copier / coller "spécial valeur" des cellules dats et heures

2° proposition
si vous pouvez entrez date et heure dans une cellule hors champ, par exemple Z1, vous pouvez transcrire dans les cellules à afficher avec ces formules
pour la date:
=TEXTE(Z1;"jjjj jj mm aaaa") pour l jour
=TEXTE(Z1;"hh:mm")  pour l'heure

3° variante
si votre entrée correspond au moment en cours, remplacer dans les formules précédentes Z1 par MAINTENANT()

crdlmnt

Format date et heure.

2 réponses

Discussions similaires