Passer a une nouvelle feuille quand le mois change

Bonjour comment allez vous ?

J'ai un classeur de gestion de stock qui me permet d'enregistrer les entrer et les sorties et les envoyer par mail a la demander du chef.

J'aimerais pouvoir envoyer les feuilles par mois.

Je ne sais pas qu'elle solution trouvée

je me dis que je dois trouver un code qui va m'ouvrir une feuille quand le mois change et remplir les information du mois dans cette feuille.

OU

trouver un code qui va au moment de l'envoi des feuilles nous demander de choisir le mois et l'année d'envoi afin de faire un trie des données et envoyer

merci de bien vouloir m'aider a terminer mon projet

Bonjour Dorel, bonjour le forum,

DorelD a écrit :

merci de bien vouloir m'aider a terminer mon projet

Merci de bien vouloir nous aider à t'aider... Tu ne daignes même pas nous donner la structure de ton fichier... Ou mieux, un fichier exemple qui nous permettrait peut-être de te proposer une solution adaptée.

Private Sub CommandButton6_Click()
  Dim Ind As Integer, NbFeuil As Integer
  Dim sNomFic As String, sRep As String
  Dim TabFeuil() As String
  Dim WshShell As Object
  Dim Sht As Worksheet
  Dim OutApp As Object, OutMail As Object
  '
  ' Demander quelle feuille
  UsF_ChoixImp.Show
  '
  ' Vérifier si au moins 1 feuille a été selectionnée, sinon on sort
  If ListeFeuilSel = "" Then Exit Sub
  '
  ' Définir le tableau des feuilles
  TabFeuil = Split(ListeFeuilSel, ",")
  ' Nombre de feuille sélectionnées
  NbFeuil = UBound(TabFeuil)
  '
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
  End With
  ' Créer une instance Windows Script pour retrouver le chemin du bureau
  Set WshShell = CreateObject("WScript.Shell")
  sRep = WshShell.SpecialFolders("Desktop")
  Set WshShell = Nothing

  ' Créer une instance Outlook et mail
  Set OutApp = CreateObject("outlook.application")
  Set OutMail = OutApp.CreateItem(0)
  ' Afficher le mail pour la signature et définir les éléments souhaités
  With OutMail

    .To = "djidji.dorel@icloud.com"
    .Cc = ""
    .Subject = "FICHE DE STOCK"
  End With
  ' Ensuite il faut générer les feuilles
  ' Pour chaque feuille
  For Ind = 0 To NbFeuil
    With Sheets(TabFeuil(Ind))
      ' Afficher la feuille
      .Visible = xlSheetVisible
      ' Nom de la feuille comme nom de fichier
      sNomFic = .Name & ".pdf"
      ' L'exporter au format PDF
      .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
      ' Masquer la feuille
      .Visible = xlSheetHidden
    End With
    ' Attacher la feuille au mail
    OutMail.Attachments.Add sRep & "\" & sNomFic
    ' Une fois attacher, on peut le supprimer
    Kill sRep & "\" & sNomFic
  Next Ind
  ' Uns fois terminé, on peut envoyer le mail
  OutMail.Send
  ' Réactiver l'écran et les évènements
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
  End With
End Sub

Voici le code qui me permet d'envoyer par mail, est ce que je peux ajouter un code qui va faire le trie des dates et envoyer les feuilles en fonction des mois ?

Bonjour à tous,

esquisse de solution

avec un tcd

Crdlmt

DJIDJI ton nom ? Cool

bon le probleme ici c'est que je ne veux pas que celui qui utilise ai acces aux feuilles excel, juste les userform.