VBA - Enregistrer fichier avec nom 2 cases

Bonsoir à tous,

Je vous contacte car j'ai fait quelques recherches en vain.

Je souhaiterai obtenir une piste pour enregistrer fichier excel au format xlsm avec comme nom la case E10 et E12.

Par exemple, j'ai en E10 : DT et E12 novembre 2014, que lorsque je lance la macro cela enregistre sous le nom : DT-novembre2014.xlxm

Le tout dans le répertoire en cours.

En vous remerciant par avance de toute l'aide apportée.

Bonne soirée,

Cordialement.

Christophe.

Bonsoir Christophe, bonsoir le forum,

Comment s'appelle l'onglet qui contient E10 et E12 ?

Ta cellule E12 contient-elle réellement "Novembre 2014" ou est-ce un date affichée au format "MMMM AAAA"?

L'extension ne serait-elle pas plutôt xlsm ?

Qu'est le répertoire "en cours" ? Est-il celui dans lequel tu as enregistré ce classeur ?

Si tu poses pas les bonnes questions difficile de t'aider... Un essai :

Sub Macro1()
Dim C As Workbook 'déclare la variable C (Classeur)
Dim O As Object 'déclare la variable O (Onglet)
Dim CH As String 'déclare la variable CH (CHemin)
Dim D As String 'déclare la variable D (Date)

Set C = ThisWorkbook 'définit le classeur C
Set O = C.Sheets("Feuil1") 'définit l'onglet O (à adapter)
CH = C.Path & "\" 'définit le chemin CH

If InStr(1, O.Range("E12"), " ") <> 0 Then 'condition : si E12 contient un espace
    D = Replace(O.Range("E12"), " ", "") 'définit la date D (sans l'espace)
Else 'sinon
    D = O.Range("E12") 'définit la date D (à adapter)
End If 'fin de la condition
C.SaveAs (CH & O.Range("E10") & "-" & D & ".xlsm") 'enregistre le classeur sous...
End Sub