D
Denis
Guest
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
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