Bonjour à tous,

J'ai besoin d'un petit coup de main pour implémenter la fonction "enregistrer sous" dans mon code qui me permet pour le moment que d'envoyer mon fichier par mail.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Sub Envoi()
 
 
    Set olApp = CreateObject("Outlook.application")
    Set m = olApp.CreateItem(olMailItem)
    With m
        .Subject = Range("a2") & "-" & Range("b4") & "-" & Range("c4")
        .Body = "Merci de prendre en compte la demande de préparation en pièce jointe."
        .Recipients.Add "aa@aa.com; bb@aa.com"
        .CC = "cc@cc.com"
        .Attachments.Add "C:\Users\Nouveau dossier" & NomFichier & ".xlsm"
        '.ReadReceiptRequested = True
        .Display
    End With
End Sub

Je voudrais donc :
- enregistrer le fichier sous un répertoire spécifique : par exemple "C:\Users\Nouveau dossier"

- donner un nom spécifique au fichier que j'enregistre : par exemple
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
NomFichier = Range("b23") & "-" & Range("g16") & "-" & Range("g17") & "-" & Format(Date, "dd-mm-yyyy")
- envoyer ce fichier par mail avec le code utilisé ci-dessus.

Merci d'avance pour votre aide.