Renommer un fichier

[Denis]

Bonjour à tous,

Voici mon problème : Je travaille sur un classeur nommé Indicateur, ce fichier contient 4 feuilles. à l'aide de l'instruction suivante je copie 2 feuilles :

Sheets(Array("Feuil1", "Feuil2")).Copy

Le système nomme automatiquement le nouveau classeur copié Classeur 1

je souhaite renommer Classeur 1 par un nom contenu dans une cellule de Feuil1 avant d'envoyer cette copie par mail à l'aide de l'instruction suivante :

Dim Wbk As Workbook
Set Wbk = ActiveWorkbook
Wbk.SendMail Range("B152").Value, Range("B150").Value, True
Set Wbk = Nothing

Une fois le mail envoyé je veux quitter ce classeur sans le sauvegarder.

Quel est le code qui permet cela ?

Merci de votre réponse

Cordialement à tous

Denis

 

[Denis]

Bonjour

je pense que ce code ira

ThisWorkbook.Saved = True
ThisWorkbook.Close

cordialement

 

[Denis]

Bonsoir,

Merci de ton aide.

Mais je n'ai toujours pas trouvé le code qui permet de renommer le classeur copié "Classeur 1" sous un autre nom. Connais-tu la solution ?

Bonne soirée et merci encore

Bien Cordialement Denis