re
un code simple, tu mets l'adresse de la cellule contenant le nom du client à la place de B2
pour le n° d'affaire, à la place de A1
pour le nom de la feuille à la place de Feuil1
par contre que se passe-t-il pour tes formules, comment gères-tu les numéros de devis...??? vous perdrez des données, crois-en mon expérience.
mets au moins un readonlyrecommanded à true (avant dernière ligne)
sur archivage2 il y avait peut-être un bug, je crois que B2 était verrouillée dans ce cas outil protection déprotéger, format cellule protection décocher verrouillé puis outil protection protéger la feuille, pas de mot de passe
Sub sauvegarde()
'client en B2 à adapter
nom = Range('B2')
'N° en A2 à adapter
numéro = Range('A2').Value
'nom de la feuille à adapter
nomfeuille = 'Feuil1'
'répertoire courant et sousrépertoire de stockage
répertoire = ThisWorkbook.Path & '\\Répertoire de stockage\\'
Sheets(nomfeuille).Copy
ActiveWorkbook.SaveAs Filename:= _
répertoire & nom & numéro & '.xls', FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub