Enregistrer et nommer automatiquement une page extraite d'un classeur

[benj87_fr]

Bonjour à tous.

Je souhaite extraire une feuille de mon classeur et la renommer d'un nom inscrit dans une cellule.
J'ai écris ça :

Sub Enregistrer_SP()
    
Sheets("Informations").Select
Range("F18").Select
Selection.Copy
Sheets("SP").Select
Range("O1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.DisplayAlerts = False
ActiveSheet.Copy

'CODE CI-DESSOUS NE MARCHE PAS COMME JE LE SOUHAITE
nomsave = ActiveSheet.Range("O1").Value
ThisWorkbook.SaveAs (nomsave)

Range("O1").Delete
Application.DisplayAlerts = True

End Sub

Mais ça ne marche pas car ça renomme et sauve le classeur et non la feuille extraite.
Je souhaite en plus envoyer par email ce fichier. je voulais savoir si je pouvais le faire par macro à l'aide de la fonction disponible sous Excel.
Pouvez-vous m'aider ?
D'avance merci,

Benj

 

[Dranreb]

Re : Enregistrer et nommer automatiquement une page extraite d'un classeur

Bonjour
Remplacer ThisWorkbook par ActiveWorkbook
Pour l'envoi par email, c'est un domaine que je ne connais pas.
Cordialement.

 

[benj87_fr]

Re : Enregistrer et nommer automatiquement une page extraite d'un classeur

Tout simplement !
Merci beaucoup Dranreb !

Et les autres, vous savez s'il est possible de d'envoyer le fichier via Envoyer puis courrier électronique ?
D'avance merci.

 

[DoubleZero]

Re : Enregistrer et nommer automatiquement une page extraite d'un classeur

Bonjour, benj87_fr, Dranreb, le Forum,

... Et les autres, vous savez s'il est possible de d'envoyer le fichier via Envoyer puis courrier électronique ?...

Parmi "les autres", moi, peut-être 🙂 !

Mais... quel est le logiciel de messagerie ?

Combien de destinataires doivent recevoir le courriel ?

Comment le fichier est-il constitué ?

Le dépôt sur XLD d'une copie du fichier, sans données confidentielles, est souhaitable.

A bientôt 🙂.