Sub envoiClasseur()
Dim Fichier As Variant

'le programme ouvre une fenetre ou l'on selectionne le fichier'
Fichier = Application.GetOpenFilename("tous les fichiers(*.*),*.*")
MsgBox Fichier
 'Verifie si Outlook est ouvert
    If OutlookOuvert = False Then o = Shell("Outlook", vbNormalNoFocus)
    Set OutApp = CreateObject("Outlook.Application")
'ici on demande d'utiliser outlook comme messagerie'
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("outlook.application")
Set MonMessage = MaMessagerie.Createitem(0)

'ici nous definissons les champs du mail'
'entre guillemet il faut indiquer les adresses mail'
MonMessage.to =


'ici nous commençons la rédaction du mail'
MonMessage.attachments.Add Fichier

'sujet du mail'
MonMessage = "test mise a jour gestion cave avec envoi mail automatique me répondre si recu par un sms"

'Corps du mail'
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)
'les caracteres Chr indique un saut de ligne'
contenu = contenu & "Veuillez trouver ci-joint l'inventaire cave" & Chr(10) & Chr(13)
contenu = contenu & "Cordialement" & Chr(10) & Chr(13)

MonMessage.body = contenu

'ici on provoque l'envoi du mail et de sa pièce jointe'
MonMessage.Send

'réinitialisation de la messagerie'
Set MaMessagerie = Nothing

' Boite de dialogue qui confirme l'envoi du message et de sa pièce jointe'
MsgBox "Votre mail a bien été envoyé"

ActiveSheet.Range("Gestion de stock[Stock final]").Copy

ActiveSheet.Range("Gestion de stock[Stock initial]").PasteSpecial Paste:=xlPasteValues

ActiveSheet.Range("Gestion de stock[Sortie consommé]").ClearContents

End Sub