XL 2016 bouton enregister-sous

Bonjour le forum
Bonjour Raffa

Si j'ai bien compris, tu désires depuis un bouton ActiveX copier une plage de cellules - Proposition : Copie plage D21:G21 dans une nouvelle feuille qui est enregistrée telle quelle.
Bonne journée à toutes & à tous
@+ Eric c

Merci beaucoup Eric pour ton aide,
En fait, je voudrais pour sauvegarder chaque devis, sans la date du jour mais plutôt celle que je donne,, dans un dossiers qui les regroupent.

Je ne comprend pas "fais une copie de la zone voulue"

et si je prend un bouton active X je ne peux pas integrer ta macro...

Suis plutôt "bourrin" en excel hein ;+)

Re (toujours entre 2 finitions de portes à peindre)

et si je prend un bouton active X je ne peux pas integrer ta macro...

Cliquez pour agrandir...

????
@+ Eric c

Bonjour Eric, Bonjour le forum,

Voilà où j'en suis et ça ne fonctionne pas...

Si on peut m'aiguiller?





Sub ColleEtSauve()
'
Dim MaPlage As Range

LaDate = Year(Date) & "-" & Month(Date) & "-" & Day(Date) 'Variable qui prend la date du jour
Set MaPlage = Range("C22:F22") 'Applique la plage voulue à la variable
MaPlage.Copy Range("C22:F22") 'Fait la copie de la zone voulue
Workbooks.Add 'Ouvre un nouveau Fichier XL
ActiveSheet.Paste Range("C22:F22") 'Colle la sélection copiée sur la nouvelle feuille active.
'Fait la sauvegarde, la deuxième ligne en retrait reprend la variable avec la date
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Henri\SynologyDrive\01 - In ArmoniA\01 - Devis" & LaDate & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'Chemin "C:\Users\Henri\SynologyDrive\01 - In ArmoniA\01 - Devis\2019" à adapter
End Sub