XL 2013 Gerer les espaces dans chemin pour oBjMail.Attachments.Add

Bonsoir le fil, le forum

@THELLIER [Bienvenue sur le forum]

THELLIER à dit:

Bonsoir à tous,
Je n'arrive pas à trouver la solution, pourriez vous m'éclairer svp?
Merci.

Cliquez pour agrandir...

Je n'arrive pas à trouver de fichier exemple ou de code VBA dans cette discussion, fourni par le demandeur, pourriez vous m'éclairer svp?

Dim ObjOutlook As New Outlook.Application
Dim oBjMail

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

With oBjMail
.To = dest ' le destinataire
.cc = destcc
.Subject = "RAPPORT MAINTENANCE REGION " & reg ' l'objet du mail
.Body = "Ici le texte du mail " 'le corps du mail ..son contenu
.Attachments.Add nomfich '"C:\Data\essai.txt" ' ou Nomfichier
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.send
End With

ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing

Re,

C'est mieux quand tu balises non?

Exact, désolé pour le dérangement.
Merci pour l'aide et les réponses rapide mais je viens de trouver...
L'erreur ne venait pas des espaces mais il manquait l'extension du fichier...
Merci à vous. @+