Importer la valeur d'une cellule sur VBA
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:
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 |