XL 2016 bouton enregister-sous

[Raffa]

Bonjour le Forum,

Je voudrais créer un bouton "Enregistrer-sous" mon classeur avec les élément de H22 à savoir : E21 - D21 - F21 - G21

Pouvez-vous m'aider Svp

Merci d'avance

Henri

 

[Eric C]

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.

Sub ColleEtSauve()
'
Dim MaPlage As Range
 
LaDate = Year(Date) & "-" & Month(Date) & "-" & Day(Date) 'Variable qui prend la date du jour
Set MaPlage = Range("D21:G21") 'Applique la plage voulue à la variable
    MaPlage.Copy 'Fait la copie de la zone voulue
    Workbooks.Add 'Ouvre un nouveau Fichier XL
    ActiveSheet.Paste '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:\a\" & LaDate & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
'Chemin "C:\a\" à adapter
End Sub

Bonne journée à toutes & à tous
@+ Eric c

 

[Raffa]

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 ;+)

 

[Eric C]

Re (toujours entre 2 finitions de portes à peindre)

Set MaPlage = Range("D20:H22") 'Applique la plage voulue à la variable
    MaPlage.Copy 'Fait la copie de la zone déclarée ci-dessus (Range("D20:H22)

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

????
@+ Eric c

 

[Raffa]

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