Taches planifiées

[Roll]

Bonsoir tout le monde,

travaillant pour une entreprise qui vend toute sorte de produits, dont des produits saisonniers, je voudrais créer un fichier excel qui s'ouvre automatiquement à une date définie.

Les tâches planifiées ne répondent qu'en partie à mon besoin car j'ai besoin de sélectionner des dates précises.

Ci-joint un exemple.

Merci pour votre aide.

 

[job75]

Re : Taches planifiées

Bonjour le forum, bonjour Roll,

Voici une solution :

1) Planifier avec le Planificateur de tâches l'ouverture du fichier tous les jours à 00:00.

2) Si à ce moment-là le fichier est le seul qui soit ouvert et qu'aucune date en feuille 1 colonne C n'est la date d'aujourd'hui, alors Excel est fermé.
Cette opération est réalisée par la macro suivante (à placer dans ThisWorkbook) :

Private Sub Workbook_Open()
If Now - Int(Now) < 0.0001 And Workbooks.Count = 1 _
And Not Application.IsNumber(Application.Match(1 * Date, Sheets(1).Columns(3), 0)) _
Then Application.Quit
End Sub

A+

 

[job75]

Re : Taches planifiées

Re
Avec un test If de plus c'est mieux :
- si le fichier est seul ouvert, Excel est fermé
- sinon le fichier est fermé, Excel restant ouvert.

Private Sub Workbook_Open()
AppActivate "Microsoft Excel"
If Not Application.IsNumber(Application.Match(1 * Date, Sheets(1).Columns(3), 0)) _
And Now - Date < 0.0005 Then
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End If
End Sub

A+

 

[Roll]

Re : Taches planifiées

Job75,

merci (un peu tardif 😱) pour la réponse.
Je vais l'essayer de suite.

A+