Bonjour,

Je fais une macro afin de faire un "enregistrer sous" de mon fichier. Le nom de mon fichier est la valeur de la cellule "BE2" de la feuille "Calcule". Quand je lance ma macro, j'ai le message d'erreur
Erreur d'exécution '1004': La méthode 'SaveAs' de l'objet'_Workbook' a échoué.
Et la ligne 8 se surligne en jaune. Quand je passe mon curseur sur mon code je remarque de ma variante Nomdeficher n'a que ".xlsm" comme valeur. Que dois-je modifier afin d'avoir le nom désiré?

Merci d'avance,

Voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Enregistrer()
Dim Nomdefichier As String
Dim Chemin As String
 
    Chemin = "U:\Documents\"
    Nomdefichier = Sheets("Calcule").Range("BE2") & ".xlsm"
    ThisWorkbook.SaveAs Chemin & Nomdefichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
 
End Sub