Problème du format heure lors de l'envoi email en pdf

Bonjour,

Je trouve à de très nombreuses reprises mon bonheur sur ce site.

J'ai pu notamment trouver la procedure d'envoi d'un e-mail par Outlook avec une pièce jointe automatique en PFD.

Mon soucis et que lors de la creation du nom de fichier, je prends en reference différentes cellules et celle pour la reference "Zeit" (Heure en allemande), j'ai droit à un "0.46xxxxxx" dans le nom de mon fichier.

Ci-dessous mon code : (Je ne peux pour l'heure pas envoyer le fichier excel) :

Sub SendWithAtt()

' Nécessite la référence : Microsoft Outlook 1x Object Library

Application.ScreenUpdating = False

Call ZoneImpression

Call DateHeure

Dim olApp As Outlook.Application

Dim olMail As MailItem

Dim CurFile As String

Set olApp = New Outlook.Application

Set olMail = olApp.CreateItem(olMailItem)

' "C:\Users\Uxxxxxxx\AppData\Local\Temp\Normmeldung.pdf "

Dim Path As String, Nom As String

Nom = Range("K8")

Datum = Range("T7")

Zeit = Range("T9")

CurFile = ThisWorkbook.Path & "\" & "KFO - Normmeldung" & " - " & Nom & " - " & Datum & " - " & Zeit & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _

Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

With olMail

.To = Sheets("Verwaltung").Range("J17").Value

.CC = Sheets("Verwaltung").Range("J19").Value

.Subject = Sheets("Verwaltung").Range("J21").Value

.Body = Sheets("Verwaltung").Range("J23").Value

.Attachments.Add CurFile

'.Attachments.Add "c:\My Documents\book.doc"

.Display '.Send

ActiveSheet.PageSetup.PrintArea = ""

End With

Application.ScreenUpdating = True

MsgBox "Bitte um Ihre PDF Datei auf Ihre Desktop provisorisch zu speichen."

' Effacer les variables objets

Set olMail = Nothing

Set olApp = Nothing

Call ConfirmationPDF

End Sub

Je tourne et retourne ce problème dans tous les sens, hélas sans succès.

D'avance merci pour votre aide potentielle.

Bonjour,

Essaie ainsi :

Zeit=Format(Range("T9"),"hh mm")

Bonjour Jean-Eric,

Rapide, efficace , ça fonctionne !

Un grand merci pour ton aide.