Envoie email erreur code

Le code ci-dessous fonctionne tres bien, mais je souhaite pouvoir envoyé toutes sortes de fichier.

quand j'efface la ligne

Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
If Nom_Fichier = "Faux" Then Exit Sub

ca me demande bien de choisir un fichier et n'importe quel type. mais quand je clique dessus pour le selectionner, il m'ouvre l'email, mais je n'ai pas la pièce jointe. Une idée??

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 = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
If Nom_Fichier = "Faux" Then Exit Sub

With oBjMail
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.To = "LeClient@gmail.com" ' le destinataire
.CC "" 'adresse destinataire en copie
'.BCC = "" 'adresse destinataires pour info
.Subject = "OPTIMUM Demande de création - Suppression " ' l'objet du mail
.HTMLBody = "Pourriez-vous S V P traîter les demandes de création et de suppression de ce jour " 'le corps du mail
.BodyFormat = olFormatHTML 'signature outlook
.Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
.Fields("urn:schemas:mailheader:return-receipt-to") = "" 'adresse pour recevoir un accusé de réception. En général c'est l'adresse de l'expéditeur.
'.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.Send
End With
ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub