Bonjour, trés simple : Les caractère spéciaux sont interdits dans les noms de fichiers. : \ " / * ? °
Alors votre nom de fichier DEVIS N° : 200 .... çà le fait pas.
Remplacez la formule en A1 par exemple :
="DEVIS-Num_"&C10&"-"&E8&".xlsm"
Par ailleurs votre nom de fichier en cellule A1 contiend déjà l'extention : "xlsm" donc pas besoin de l'indiquer dans le code vba
'Non car .xlsm est déjà en A1
Devis = Chemin & "\" & Range("A1") & ".xlsm"
'oui celà suffit
Devis = Chemin & "\" & Range("A1").value