envoie mail + pièce jointe

[Eric D]

Bonjour à toutes et à tous,

J' ai un soucis pour envoyer un mail + pièce jointe, car en fait il me met un dèbut de chemin sur le nom de fichier à envoyer.
Ex : C:\\debut_de_chemin\\C:\\mon_chemin\\mon_fichier
En fait, la valeur de sèlection de fichier est dèjà initialisée avec une 1ère racine. Comment l'initialiser à ''.Voici mon code.

Dim Dossier As FileDialog, Fichier As FileDialog
Dim Destination, joint As String
Dim Source() As String
Dim Fso As Object
Dim i As Byte
Dim ouvrirfichiers As Variant 'Dim destfichiers As Variant
'
Set Fichier = Application.FileDialog(msoFileDialogOpen)
Fichier.Show
If Fichier.SelectedItems.Count = 0 Then GoTo Fin
For i = 1 To Fichier.SelectedItems.Count
ReDim Preserve Source(i)
Source(i) = Fichier.SelectedItems(i)
Next i
For ct = 1 To 10 ' boucle de lecture des adresses
If Sheets('Mail').Range('DE' & 1000 + ct).Value <> '' Then
Dest = ThisWorkbook.Sheets('Mail').Range('DE' & 1000 + ct).Value
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & Dest & '?subject=' & Sujet & '&Body=' & Msg & ''
SendKeys '%I' & 'p' & joint & '~' & '%s'
End If
Next ct
Merci de votre aide.
Eric D