Salut Franck,
Tu peux, entre autre, faire comme çà :
Sub Sauvegarde()
Dim Nom_Fichier As String
Dim Chemin As String
Dim Numero As String
Chemin = "C:\Mes Documents\"
Numero = Sheets("TAFEUILLE").Range("A1").Value
Numero = Format(Numero, "0000")
Nom_Fichier = "BIDON " & Numero
MsgBox "Numéro de facture : " & Numero & ".xls"
ChDir "C:\my Documents"
ActiveWorkbook.SaveAs Nom_Fichier, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False
End Sub
Tu remplaces "Bidon" et "tafeuille"... par les noms que tu veux et çà devrait faire l'affaire...
En ce qui est de la protection... La macro ici vire toutes les protections d'ouverture et d'écriture par password du nouveau classeur sauvé...
Je suppose que c'est ce que tu veux ?
... tiens moi au courant
Bon week End
@+Thierry