Avis sur marche à suivre

Bonjour tout le monde,

Je viens vers vous aujourd'hui pour demander votre avis sur une idée que j'ai ( un peu tordue ) mais peut-être que, de part votre expérience, vous allez m'orienter vers une autre solution.

L'idée au final est d'envoyer un mail d'alerte sur des dates de produits à J-7 sans avoir à ouvrir manuellement le classeur.

J'ai à ma disposition un classeur avec macros et mot de passe au démarrage pour la saisie des données. ( différents utilisateurs )

Mon idée est :

1- A la fermeture du classeur copier la feuille contenant les données de dates dans un autre classeur.

2- Faire ouvrir le nouveau classeur dans les tâches planifiées.

3- Créer une macro en Workbook_Open pour faire la vérification des dates.

4- Si dates arrivant à échéances copier les données dans une autre feuille.

5- Toujours dans le workbook_open mettre une macro qui ferai un pdf si des données sont présentes dans la nouvelle feuille ( donc dates arrivant à échéances ) et l'enverrai par mail.

6- Fermer le classeur.

Qu'en pensez vous ?

Merci de votre retour.

Cordialement

Bonjour tout le monde,

J'y suis presque !! \o/

Me reste qu'un petit problème de taille pour moi ):

Je voudrais supprimer la Feuil10 de mon deuxième classeur et là je bloque ....

Ma macro ouvre bien le fichier mais je n'arrive pas à supprimer la Feuil10 quelqu'un pourrait-il me donner la solution s'il vous plait ??

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False

Workbooks.Open Filename:="C:\Users\Lulu\Desktop\Verification\_Machin_"
Application.DisplayAlerts = False
'là le code pour supprimer la Feuil10 du classeur _Machin"

Application.DisplayAlerts = True

end sub

Merci d'avance de votre aide

Bonjour

Peut-être qu'avec (Sans garantie - Non testé)

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False

    Workbooks.Open Filename:="C:\Users\Lulu\Desktop\Verification\_Machin_"
    Application.DisplayAlerts = False
    'là le code pour supprimer la Feuil10 du classeur _Machin"
    ActiveWorkbook.Sheets(10).Delete
    Application.DisplayAlerts = True
    ActiveWorkbook.Save True          ' Sauvegarde du classeur modifié
    end sub

Attention à ne faire qu'une fois car après cela sera la feuille 11 qui sera supprimée et ainsi de suite

Cela fonctionne parfaitement !!

Merci beaucoup (: