Bonjour.
Là j'avoue je ne comprend absolument pas ce qu'il se passe.
avec ce code
rep = Dir("C:\Users\SIFR-Receptionnistes\Desktop\automatisation fip\FIP du *.pdf")
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "xx@xx.xx" 'adresse a changer au cas ou
myItem.Subject = [A1].Value 'c'est le nom du fichier enregistrer
myItem.Body = "Bonjour," & Chr(13) & Chr(13) & "Veuillez trouver en pièce jointe, les fip du " & Format(Now() + 1, "dd-mm-yyyy") & Chr(13) & Chr(13) & "Cordialement."
Set myAttachments = myItem.Attachments
myAttachments.Add rep
Hier tout fonctionne correctement, j'avais mon envoi de mail automatique avec la pièce jointe. Parfait
Aujourd'hui je relance un test et paf il me dis qu'il ne retrouve pas le fichier. Alors que le fichier est bel est bien présent.
Le fichier est à nom variable. la construction est "FIP du (Date du lendemain).pdf". J'arrive à enregistrer le fichier correctement, il est bien présent mais ma macro ne le retrouve plus :/ (j'ai même mis une tempo de 5 sec pour m'assurer que le fichier arrive bien dans le dossier ... oui on a des PC foireux ici :/)
Je n'y comprend absolument plus rien.
Merci de m'éclairer de vos lanternes
L'Atelier Sool