enregistrer feuille avec le nom de 2 celulles différentes

[Mimi]

Bonjour,
Voila j'utilise ce code pour enregistrer la feuille active :
Sub EnregistrerFacture()
Dim Obj As Object
Dim NomFichier As String

ActiveSheet.Copy
NomFichier = Range("D3")

For Each Obj In ActiveSheet.DrawingObjects
Obj.Delete
Next Obj

ActiveWorkbook.SaveAs Filename:="C:\RV NICOLE\" & NomFichier & ".xls"
ActiveWorkbook.Close

MsgBox "Sauvegarde effectuée . ", vbInformation, "Message"

End Sub

NomFichier indique la celulle à enregistrer, mais voila je désire mettre une 2ème celulle :
NomFichier D3 et D38
Et la je bloque
D'avance merci pour votre aide
Mimi

 

[MJ13]

Re : enregistrer feuille avec le nom de 2 celulles différentes

Bionjour mimi

Peut-être

NomFichier = Range("D3") & range("D38")

Mais attention, si c'est une date, il faudra la décortiquer.

 

[Mimi]

Re : enregistrer feuille avec le nom de 2 celulles différentes

Bonjour MJ13,
Merci pour ta réponse sa marche nikel
Encore merci et à bientot
Mimi

 

[MJ13]

Re : enregistrer feuille avec le nom de 2 celulles différentes

Re

Merci pour ta réponse sa marche nikel

De rien, mais cela ne vaut vraiment pas 5 étoiles 😱.