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

[THELLIER]

Bonsoir à tous,

Petit problème sur du VB EXCEL pour l'envoi automatique de mails avec pièce jointe.

J'ai une erreur sur oBjMail.Attachments.Add mavariable car je charge dans mavariable un chemin de fichier qui comporte des espaces (et je ne peux pas faire autrement...)

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

Merci.

 

[Staple1600]

Bonsoir le fil, le forum

@THELLIER [Bienvenue sur le forum]

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

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

 

[THELLIER]

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

 

[Staple1600]

Re,

C'est mieux quand tu balises non?

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

 

[THELLIER]

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. @+