Macro envoie de mail via Excel

Bonjour,

J'ai trouvé sur code dans le forum.

Sub Envoidu_Mail_Outlook()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'corps du message si besoin
strbody = Contenu
With OutMail
.To = "xxxxxx@gmail.com" 'destinataire(s)
.CC = "aaaaa@gmail.com,bbbbbb@gmail.com,ccccccc@gmail.com" ' copie
'.BCC = "aaaaa@gmail.com,bbbbbb@gmail.com,ccccccc@gmail.com" ' si BCC
.Subject = "Besoin journalier transfert."
.Body = strbody
'Piece_jointe
.Attachments.Add ("C:\test.txt") 'mettre chemin et fichier a joindre
.Display 'ouvre Outlook
'or use
'.Send 'envoi sans ouvrir Outlook
End With
Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Ce code fontionne très bien, sauf que le fichier à joindre est sur un chemin statique.

Je voudrais SVP savoir s'il y a moyen au lieu de mettre un chemin statique pour joindre le fichier, que je mette un bouton sur le fichier en question et qui ouvre outlook en joignant le dit fichier en piece jointe.
Comme fait la fonction Application.Dialogs(xlDialogSendMail).Show

Voici mon code ça fonctionne pour une seule adresse mail, mais ça ne mets pas la seconde adresse en copie

Application.Dialogs(xlDialogSendMail).Show arg1:=Emails, arg2:=Societe & " >> " & TypeService & TypeResa & " >> " & NomAssist & "/" & PrenomAssist & " - " & Date & " - " & Destination & " - N° Mission: " & NoMission & " - " & NomPax & "/" & PrenomPax
ActiveWindow.ScrollRow = 1

Merci Beaucoup pour votre aide,
Je galère