Bonjour à tous.
Je souhaite extraire une feuille de mon classeur et la renommer d'un nom inscrit dans une cellule.
J'ai écris ça :
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
Je souhaite extraire une feuille de mon classeur et la renommer d'un nom inscrit dans une cellule.
J'ai écris ça :
Code:
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 SubJe 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
Dernière édition: