Bonjour à tous,
Je rencontre un petit soucis dans un code.
Cela concerne une macro qui permet à partir d'un bouton d'envoyer un onglet par mail.
La copie envoyée par mail est aussi enregistrée dans mon PC, elle est aussi nomée automatiquement.
Avant j'utilisait la date aujourd'hui pour renomé les fichiers, maintenant je souhaite remplacer cette date par le contenu d'une cellule dans le nom du fichier de sortie, mais je n'arrive pas à le faire...
Je vous remercie d'avance et vous souhaite de bonne fêtes !

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Dim MonItem As Outlook.MailItem
 
'Requiert une référence à la bibliothèque d'objets Word
Dim wdDoc As Word.Document
 
Dim lapj As String
 
Public Sub essai_mail()
 
'Je souhaite modifier le "Fomat(date......"  par le contenu de la cellule H8 fdans la feuille "SP"
 
lapj = "D:\Documents\XLS\Programme SPDC " & Format(Date, "dd_mm_yyyy") & ".xlsx"
 
Application.DisplayAlerts = False
 
ThisWorkbook.Worksheets(Array("SP")).Copy
 
 
With ActiveWorkbook
        .SaveAs _
                Filename:=lapj, _
                FileFormat:=xlOpenXMLWorkbook
        .Close
End With
 
Call Envoi_Documents_Mail
 
Application.DisplayAlerts = False
 
End Sub