Cellule Excel en complément d'un lien

Bonjour,

J’ai créé une macro ci-dessous pour envoyer des mails sur Mozilla thunderbird, quelqu’un aurait l’amabilité de me renseigner sur comment attaché à la valeur X une cellule excel ( une date pour prendre le bon fichier pd ou word qui change chaque jour).

Merci beaucoup !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Test() Dim destinataire, sujet, fichierjoint As String destinataire = "--------" sujet = "-----" body = "test" test1 "" fichierjoint = "P:\----\----\Test 1XXX.docx" strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird" strcommand = strcommand & " -compose " & "to='" & destinataire & "'" strcommand = strcommand & "," & "subject=" & sujet & "," strcommand = strcommand & "body=" & body strcommand = strcommand & "," & "attachment=file:///" & fichierjoint MsgBox strcommand Call Shell(strcommand, vbNormalFocus) End Sub

---

Cordialement,

Bonjour,

Si j'ai bien compris, avec une date en A1 :

Code:

---

fichierjoint = "P:\----\----\Test 1XXX" & Format([A1].Value,"dd-mm-yyyy") & ".docx"

---

Merci pour votre réponse ! Cependant j'ai mis le chemin comme indiqué (en spécifiant ma feuille) mais ca ne marche pas, je ne comprends pas.

Mon fichier s’appelle donc Test_23012015.docx et la date 23-01-2015 en A1 et j 'ai mis le chemin ci dessous

Code:

---

1 2 3

fichierjoint = "P:\MARKETING\Reporting\Test_" & Format(ThisWorkbook.Worksheets("Feuil1").cell(1,1).Value, "dd-mm-yyyy") & ".docx"

---

Merci pour votre aide.

Qu'est-ce qui ne marche pas ? Quelle est la valeur de "fichierjoint" après la ligne indiquée ?

Enfait c'est un problème de format de date désolé...
Mon fichier commence par "150123" pour (2015 janvier 23)

De plus, dans l'objet du mail je voudrais le format "23/01/2015" et dans le texte du mail le format "23 janvier 2015"

Est ce possible uniquement en insérant une date à partir de A1 sur excel ?

si je peux me permettre

Citation:

---

Mon fichier s’appelle donc Test_23012015.docx

---

Code:

---

fichierjoint = "P:\MARKETING\Reporting\Test_" & Format(ThisWorkbook.Worksheets("Feuil1").cell(1, 1).Value, "ddmmyyyy") & ".docx"

---