Discussion :

[aoliyath]

Bonjour
je vous écrit pour votre aide. En effet jai créer un fichier sur excel. Dans ce fichier jai le nom de tous les appareils la date de validité et le moment ou il faut les vérifier.
Jaimerais dabord un code pour afficher tous les appareils quil faut vérifier des que possible et un code pour mafficher un message dalerte(meme si le fichier est fermé) qui me dit que tel ou tel appareil doit etre verifier. merci de votre aide.

[Invité]

bonjour,
Voici un première approche!
il faut que tu affine les critère pour savoir si tel ou tel justifie une alerte;

il serait préférable d'envisager du VBScript et d'utiliser le gestionnaire de tache de Windows pour lancer l'application
je pense que l'envoi des alertes par mail serait judicieux!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
Fichier = "C:\Users\Robert\Desktop\Nouveau fichier ECME 9.xlsx"
Set Connexion = CreateObject("Adodb.Connection")
Connexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;"""
Set rs = CreateObject("Adodb.recordset")
rs.Open "select * from [Feuil1$] where [Date de Fin de Validité]<>'Sans objet'", Connexion
Sheets("Feuil3").Range("a1").CopyFromRecordset rs
 
End Sub