Ouvrir Excel à des dates prédéfinies

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonsoir à tous,

J'aimerais ouvrir un fichier Excel testDates.xls à des dates inscrites dans la colonne A de ce même fichier.

J'ai essayé d'utiliser ce code fourni par MichD.

Un fichier .VBS que je fais appeler dans le planificateur de tâches de Windows.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 '---------------------------------- Dim Xl set xl = createobject("Excel.application") Xl.Visible = True Xl.enableevents=false 'Chemin et nom du fichier à ouvrir set Wk = Xl.workbooks.open("c:\Chemin & NomDuFichier.xlsm") 'J'ai supposé que la macro a exécuté s'appelait "MaMacro" et qu'elle était 'située dans un MODULE STANDARD. Xl.Run "MaMacro" Xl.enableevents=true 'wk.save ' sauvegarde si nécessaire 'wk.close ' fermeture du fichier si nécessaire 'xl.quit ' fermeture de l'instance du fichier si nécessaire '----------------------------------
La macro "MaMacro" dans le fichier Excel TestDates.xls, qui teste si une date corresponde bien à la date actuelle, si oui ouvrir le fichier Excel.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 '---------------------------------- Sub MaMacro() Dim X As Variant With Feuil1 X = Application.Match(CLng(Date), .Range("a:A"), 0) If IsNumeric(X) Then ThisWorkbook.Application.Visible = True 'Rend l'application visible (si besoin) 'X représente le numéro de la ligne 'reste du code End If End With End Sub '----------------------------------
Mais voila, le code .vbs est exécuté en permanence par le planificateur de tâches, mais le fichier Excel ne s'ouvre jamais.

Le format des dates dans la colonne A est :

10/04/2012 20:40
10/04/2012 22:19
10/04/2012 22:25
10/04/2012 22:27
10/04/2012 22:29
10/04/2012 22:31
10/04/2012 22:35
10/04/2012 22:38
10/04/2012 22:42
10/04/2012 22:45
10/04/2012 22:49

Alors :

- L'exécution continue du fichier .VBS ne cause-t-elle pas de problème au système ?

- Et est-ce qu'on peut récupérer les dates du fichier Excel lors d'un premier lancement et puis introduire la liste récupérée dans le planificateur de tâches ?

Merci d'avance.

13/04/2012, 04h05
Invité

Bonjour

D'abord ici :

Code:

set Wk = Xl.workbooks.open("c:\Chemin & NomDuFichier.xlsm")

C'est quoi Chemin ? Une variable ? Si oui :

Code:

set Wk = Xl.workbooks.open("c:\" & Chemin & "NomDuFichier.xlsm")

Et NomDuFichier c'est aussi une variable ou le nom du fichier ? Si c'est une variable cela devient :

Code:

set Wk = Xl.workbooks.open("c:\" & Chemin & NomDuFichier & ".xlsm")

En faisant attention qu'il y ait bien les \ au bon endroit dans les variables.

De plus sur :

Code:

X = Application.Match(CLng(Date), .Range("a:A"), 0)

avec l'argument à 0.

Citation:

Si type prend la valeur 0, la fonction MATCH recherche la première valeur qui est exactement égale à valeur_cherchée. Matrice_recherche peut se trouver dans un ordre quelconque.

Il faut que tu tombes pile poil sur la minute :koi:

Philippe

Bonjour Philippe,

Même en écrivant les deux fichiers comme suivant, mais rien ne marche.

AutoTest.vbs (dans le planificateur de tâches) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'----------------------------------
Dim Xl
Set Xl = CreateObject("Excel.application")
Xl.Visible = True
Xl.EnableEvents = False
'Chemin et nom du fichier à ouvrir
Set Wk = Xl.Workbooks.Open("TestDates.xls")
Xl.Run "MaMacro"
Xl.EnableEvents = True
 
'wk.save   ' sauvegarde si nécessaire
'wk.close  ' fermeture du fichier si nécessaire
 
'xl.quit   ' fermeture de l'instance du fichier si nécessaire
'----------------------------------

"MaMacro" dans le TestDates.xls :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'----------------------------------
Sub MaMacro()
    Dim X As Variant
    With Feuil1
        'X = Application.Match(CLng(Date), .Range("A:A"), 0)
        X = Application.Match(Now, .Range("A:A"), 0)
        If IsNumeric(X) Then
            ThisWorkbook.Application.Visible = True  'Rend l'application visible (si besoin)
            'X représente le numéro de la ligne
            'reste du code
            MsgBox "La date " & Now & " se trouve dans la ligne : " & X
        Else
            MsgBox "La date " & Now & " n'a pas été trouvée"
        End If
    End With
End Sub
'----------------------------------

J'ai changé Date par Now pour prensdre en consédération en plus de la date, l'heure.

15/04/2012, 09h23
apt
Bonjour,

J'ai changé le chemin du fichier à ouvrir :
Code:

1 2 'Chemin et nom du fichier à ouvrir Set Wk = Xl.Workbooks.Open("TestDates.xls")
Par :

Code:

Set Wk = Xl.Workbooks.Open("E:\Excel\tests\Dates\AutoExec\TestDates.xls")

mais je n'ai rien pour le momemnt :aie:

Bonjour,

Juste pour tester le lancement via un script vbs, teste ceci :

Dans ton fichier *.vbs

Code:

1
2
3
4
5
Dim XLapp
 
Set XLapp= CreateObject("Excel.Application")
XLapp.Visible = false
XLapp.Workbooks.open("E:\Excel\tests\Dates\AutoExec\TestDates.xls")

Et dans ton classeur, pour tester tu fais ceci :

Code:

1
2
3
4
5
6
7
8
Sub Test_Ouverture()
Select Case MsgBox("Voulez-vous afficher le classeur", vbYesNo, "Test VBS")
    Case vbYes
        Application.Visible = True
    Case vbNo
        Application.Quit
End Select
End Sub

Code:

1
2
3
Private Sub Workbook_Open()
Test_Ouverture
End Sub

15/04/2012, 17h37
patricktoulon

heu...

bonjour

je ne comprend pas bien le besoin d'un fichier ".vbs" dans ton projet

puisque tu créé une tache dans le planificateur pourquoi ne démarre tu pas le fichier exel directement de la
ensuite tu peut très bien créer autant de tache que de dates nécessaires

avec comme fring te l'a suggéré un msgbox ouvrir ou pas avec l'application visible ou pas en réponse
et si non fermer le classeur .il redémarrera a la prochaine date programmée a moins de le faire manuellement

au plaisir
16/04/2012, 00h19
apt

Bonjour fring, patricktoulon,

Citation:

Envoyé par fring

Bonjour,
Juste pour tester le lancement via un script vbs

J'ai testé mais Il n y a pas de lancement d'Excel.

Il y a sûrement un problème quelque part :calim2:

Pourtant devant le fichier *.vbs dans le planificateur de tâches, je peux bien lire "En cours d'exécution" !

Citation:

Envoyé par patricktoulon

je ne comprend pas bien le besoin d'un fichier ".vbs" dans ton projet

Moi aussi j'aimerais comprendre pourquoi on a fait appel à un fichier *.vbs !

Citation:

Envoyé par patricktoulon

puisque tu créé une tache dans le planificateur pourquoi ne démarre tu pas le fichier exel directement de la
ensuite tu peut très bien créer autant de tache que de dates nécessaires

avec comme fring te l'a suggéré un msgbox ouvrir ou pas avec l'application visible ou pas en réponse
et si non fermer le classeur .il redémarrera a la prochaine date programmée a moins de le faire manuellement

Je n'ai pas encore essayé.

En fait ce que je souhaiterai faire c'est d'ouvrir mon fichier TestDates.xls et récupérer la liste des dates dans la colonne A, pour ensuite créer automatiquement des taches selon chaque date récupérée.

Si on peut dire, planifier des taches de manière automatique selon les dates de la colonne A.
16/04/2012, 11h54
patricktoulon

re

j'ai tres bien compris ton besoin

1° ouvrir ton fichier excel des dates
2° créer une tache pour chaque dates trouvées dans la colonne "A"

mais je ne suis pas sur que l'on puisse insérer une tache par vba

ni en vbs d'ailleurs mais je n'en suis pas sur a mon avis ca met en cause tout le système de sécurité

tu te rend bien compte que l'ouverture d'un vbs sans en connaître le contenu
risque de te planter l'ordi voir d'être piraté

je pense que tu cherche une chimère

mais encore une fois je n'en suis pas sur

au plaisir

op hop hop!!!!

j'ai encore parler trop vite

en cherchant j'ai trouver une discution sur les taches planifiées en "VB"

voila ce que j'ai trouvé bien qu'il y ai de erreur au niveau de la commande

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sw As New StreamWriter("C:\Windows\System32\Defrag.bat")
        sw.WriteLine("Ma commande")
        sw.Close()
        Dim TachePlanifiée As New Process 
        With TachePlanifiée.StartInfo
            .FileName = "cmd.exe"
            .Arguments = ("schtasks /create /ru user /rp Password /sc daily /MO 28 /ST 18:00:00 /TR "C:\Windows\System32\Defrag.bat" /TN AutomaticDefrag ") ' Ici, la commande a des " donc sa m'annule la valeur string que faire ? 
            .WindowStyle = ProcessWindowStyle.Hidden
        End With
        TachePlanifiée.Start()
    End Sub

je regarde tout ca ca m'interresse aussi

17/04/2012, 00h15
apt

Bonsoir,

C'est très intéréssant tout cela.

Mais j'attend toujours de savoir pourquoi Excel n'est pas ouvert par le fichier autoexec.vbs avec le planificateur de tâches ?
17/04/2012, 13h38
patricktoulon

re

bonjour

si dans la liste des tache en cours d'exécution tu a bien ton ".vbs" et que le fichier excel n'est pas ouvert ça veut dire que ton vbs a une erreur

je ne vois que ca

maintenant si tu arrive bien a programmer une tache par vba a la place de ton vbs lance le fichier excel dans la commande

enfin c'est mon avis

au plaisir
17/04/2012, 14h26
Jean-Philippe André

salut,

à toute fin utile, sans passer par un du vbs nécessairement :D
http://jpcheck.developpez.com/tutori...ge-parametres/

Bonsoir Patrick, Par Jean-Philippe,

Citation:

Envoyé par patricktoulon

si dans la liste des tache en cours d'exécution tu a bien ton ".vbs" et que le fichier excel n'est pas ouvert ça veut dire que ton vbs a une erreur

En fait il y avait une erreur dans les propriétés de la tâche dans "Exécuter en tant que"

Après la lecture de l'article de Jean-Philippe, j'ai pu créer de nouvel code :

AutoExec.bat :

Code:

"C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" /cmd/mMacro "E:\Excel\tests\Dates\AutoExec\TestDates.xls"

Dans un module standard une macro : mMacro dans TestDates.xls, ainsi que les déclarations des fonctions :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long
 
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (lpString As Any) As Long
 
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long
 
'fonction proposée par Tony Proctor sur le forum public de Microsoft : microsoft.public.vb.winapi
Private Function GetCmd() As String
    Dim lpCmd As Long
    lpCmd = GetCommandLine()
    GetCmd = Space$(lstrlen(ByVal lpCmd))
    lstrcpy ByVal GetCmd, ByVal lpCmd
End Function
 
'------------------------------------------
Sub mMacro()
    Dim Frm As Date
    Dim Rg As Range
    With Feuil1
        .Activate
        Frm = Format(Now, "dd/mm/yy hh:mm")
        'Frm = Date
        ThisWorkbook.Application.Visible = True
        Set Rg = .Range("A:A").Find(What:=Frm, LookIn:=xlFormulas, LookAt:=xlPart)
 
        If Not Rg Is Nothing Then
            MsgBox "La date " & Frm & " est trouvée à l'adresse " & Rg.Address
            'OU
            'Rg.Select
        Else
            MsgBox "La date : " & Frm & " n'a pas été trouvée"
        End If
    End With
End Sub
 
'------------------------------------------

Et à l'ouverture du classeur TestDates.xls qui contient la liste des dates pour lesquelles on devra émettre les alertes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_Open()
    Dim macmdline As Variant
    Dim monparam As Variant    'déclare une variable
 
    macmdline = GetCmd    'affecte la valeur de la ligne de commande
    If Not IsNull(macmdline) Then    'si la variable est nulle
        If Len(macmdline) > 0 Then    'on s'assure qu'il y a eu une ligne de commande passée
            If InStr(macmdline, "/cmd") > 0 Then
                macmdline = Replace(macmdline, ThisWorkbook.FullName, "", , , vbTextCompare)
                monparam = Split(macmdline, "/cmd")
                Application.Run Mid(monparam(1), 2, Len(monparam(1)) - 3)
            End If
        End If
    End If
End Sub

Mais lors de l'exécution j'ai une erreur signalé sur la fonction GetCmd : Variable non définie !!!

Une correction ?

Merci.

19/04/2012, 09h36
Jean-Philippe André

salut,

tu déclares la fonction en Private, il faudra donc qu'elle soit dans le workbook pour etre connue :)

Sinon tu la mets en Public :)
19/04/2012, 14h09
apt

Bonjour jpcheck,

Maintenant Excel est ouvert mais la macro mMacro n'est exécutée que si j'active manuellement les macros !

En plus le fichier ouvert n'est pas fermé et les dates dans la colonne A ne sont pas récupérés pour créer d'autres tâches pour les dates à venir !
19/04/2012, 14h16
Jean-Philippe André

Il est évident que le fait que les macros soient activées est un pré requis à ce genre de procédé :aie:

T'est-il possible d'activer ses macros par défaut ?
19/04/2012, 14h23
apt

D'accord !

Mais comment à chaque ouverture d'Excel récupérer une date et faire changé le temps d'exécution du fichier batch ôur la prochaine ouverture ?
19/04/2012, 14h26
Jean-Philippe André

tu peux regarder le code proposé avec Access :
http://jpcheck.developpez.com/tutori...depuis-access/

dans l'idée :
- mise à jour du fichier bat
- création de la nouvelle tâche planifiée
19/04/2012, 14h44
apt

Bon je vais lire cet article et essayer d'adapter le code VBA/Access avec VBA/Excel parce qu'il est un peu différent.

Et je vais revenir pour d'éventuelles corrections.

;)
19/04/2012, 21h29
apt

Salut,

Le lien pour télécharger la base d'exemples est mort :

http://jpcheck.developpez.com/tutori...P_SCHTASKS.mdb

Voir 40 message(s) de cette discussion en une page