Attacher un fichier dans un mail

Bonjour,

Dans la suite de mon fichier de découpage, je veux maintenant envoyer un mail avec le fichier que j'ai sauvegardé.

J'ai mis le chemin et le nom du fichier dans un variable et je voulais réutiliser cette variable pour mettre le fichier dans le mail mais j'ai le message.

au niveau de mon code cela donne

    fichier = Chemin & "\" & fichierdecoupe & " " & superviseur(lignesup, 2)

    Range("a1:ax2000").Copy

    Workbooks.Add
    ActiveSheet.Paste Destination:=Range("A1")
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs fichier
    ActiveWorkbook.Close

    Application.DisplayAlerts = True

    'on se repositionne sur le fichier de travail
    Workbooks.Open fichierw2

    Sheets("Fichier de travail").Select
    End If
    'vidage de la matrice
    For lignemat = 1 To 2000
        For colonnemat = 1 To 50
            matrice(lignemat, colonnemat) = Clear
        Next
    Next

    'création du mail
    Set objoutlook = CreateObject("outlook.application")
    With objoutlook.createitem(olMailItem)
        .SentOnBehalfOfName = "xxxxxxxxxxxxx@xxxxxxxxxxxxxxx.com"
        .Subject = fichierdecoupe
        .To = superviseur(lignesup, 3)
        .CC = superviseur(lignesup,4)
        .Body = corpsmail & corpsmail2
        .Attachments.Add fichier
        .display
    End With

    lignesup = lignesup + 1
    'MsgBox (superviseur(lignesup, 1))

Wend

Avez-vous un idée de ce que je dois faire ?

D'avance merci.

Coacholive

Bonjour,

Qu'est la valeur de la variable "fichier" ?

Daniel

Bonjour DanielC

La variable contient le chemin d'accès et le nom du fichier.

Ah mais j'ai trouvé, en écrivant la réponse, je viens de me rendre compte que dans la variable fichier, il n'y a pas l'extension. (elle se met automatiquement au moment de la sauvegarde). Je viens de la rajouter et cela fonctionne.

          If fichier <> "" Then .Attachments.Add fichier & ".xlsx"

Merci

Coacholive