Si feuille existe on l'envoi

Bonjour à toute et à tous,

Je viens vers vous pour de l'aide j'ai cherché une solution mais je ne trouve pas et je n'ai pas un grand niveau en VBA voilà.

J'ai un classeur avec 6 onglets et un septième et crée automatiquement suivant certaines conditions. J'aurai besoin que si la 7e feuille existe dans mon classeur qu'elle soit envoyée en pièce jointe d'un mail et que la macro continue. Par contre si la feuille n'existe pas on n'envoie pas de mail mais continue la macro.

Je vous joint un fichier test avec le code pour l'envoi de mail

Merci pour votre aide

Bonjour Xbooster, bonjour le forum,

Peut-être comme ça :

Sub test_mail()
' envoi de mail
Select Case Sheets.Count
    Case 7
        Message = "C:\Mail_BASE.html"
        Set objMessage = CreateObject("CDO.Message")
        objMessage.Subject = "test"
        objMessage.From = "test@mail.com"
        objMessage.To = "test@mail.com"
        objMessage.CreateMHTMLBody "file://" & Message
        objMessage.Attachments.Add TempFilePath
        objMessage.Configuration.Fields.Item _
           ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        objMessage.Configuration.Fields.Item _
           ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serveur.mail.fr"
        objMessage.Configuration.Fields.Item _
           ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        objMessage.Configuration.Fields.Update
        objMessage.Send
    Case Else
    'suite de la macro
End Select
End Sub

Salut ThauThème,

Merci pour ton aide.

Non cela ne fonctionne pas. La macro ne s'envoi pas. Quand je mets en commentaire les ligne ci-dessous dans la macro celle-ci s'envoie bien comme avant.

'Select Case Sheets.Count
   ' Case 2

    'Case Else
    'suite de la macro
'End Select

Re,

No comment !...

Bonjour a tous et tout mes meilleur voeux pour 2021.

Voilà le code qui permet de copier une feuille d'un classeur et d'envoyer cette feuille entant que classeur dans un mail.

Bonne journée