Programmer une tache

Bonjour qui peut m aider a modifier ce code cordialement

Private Function vbScheduleJob(strCommand As String, sjTime As Date, _
    AddFlags As JobAdd, Optional DayOfWeek As sjWeekdays = 0, _
    Optional DayOfMonth As sjDays = 0, Optional PCName As String = vbNullString) As Long

    Dim myInfo As AT_INFO
    Dim JobID As Long

    With myInfo
        .Command = StrConv(strCommand, vbUnicode)
        .Flags = AddFlags
        .JobTime = DateDiff("s", "00:00:00", Format(sjTime, "hh:mm:ss")) * 1000
        .DaysOfWeek = DayOfWeek
        .DaysOfMonth = DayOfMonth
    End With

    NetScheduleJobAdd PCName, myInfo, JobID

    vbScheduleJob = JobID
End Function
Option Explicit

'----------------------------------------------------

'Source:

'http://www.tek-tips.com/viewthread.cfm?qid=794484

'

'----------------------------------------------------

Private Declare Function NetScheduleJobAdd Lib "netapi32.dll" _

(ByVal Servername As String, Buffer As Any, JobID As Long) As Long

Private Type AT_INFO

JobTime As Long

DaysOfMonth As Long

DaysOfWeek As Byte

Flags As Byte

Command As String

End Type

Private Enum JobAdd

JOB_RUN_PERIODICALLY = 1&

JOB_ADD_CURRENT_DATE = 8&

JOB_NONINTERACTIVE = 16&

End Enum

Private Enum sjWeekdays

Monday = 1

Tuesday = 2

Wednesday = 4

Thursday = 8

Friday = 16

Saturday = 32

Sunday = 64

End Enum

Private Enum sjDays

d1 = 1

d2 = 2

d3 = 4

d4 = 8

d5 = 16

d6 = 32

d7 = 64

d8 = 128

d9 = 256

d10 = 512

d11 = 1024

d12 = 2048

d13 = 4096

d14 = 8192

d15 = 16384

d16 = 32768

d17 = 65536

d18 = 131072

d19 = 262144

d20 = 524288

d21 = 1048576

d22 = 2097152

d23 = 4194304

d24 = 8388608

d25 = 16777216

d26 = 33554432

d27 = 67108864

d28 = 134217728

d29 = 268435456

d30 = 536870912

d31 = 1073741824

End Enum

Sub Test()

'(ouverture du bloc notes)

vbScheduleJob "notepad.exe", DateAdd("n", 1, Now), JOB_RUN_PERIODICALLY, Wednesday, d4

End Sub

Bonjour,

Tu n'obtiendra aucune réponse en t'y prenant de cette façon.

Explique nous plutôt qu'elle est le but du code, qu'est ce qui bloque, dans quelle mesure tu souhaites adapter ce code, as-tu un fichier exemple ?

Nous ne sommes pas devin

A plus !

Bonjour j ai une macro a executer a chaque ouverture d excel tous les jours. Donc je cherche une solution pour ouvrir et fermer excel. Sans le faire manuellement c pour verifier les dates et etre avertit par mail.

(Puis l execution de macro en fonction de la date du jour et de la colonne A date) = condition

Bonjour,

La solution la plus simple est d'utiliser l'option d'exécution de fichier au démarrage d'Excel:

Options Avancées --> Général --> Au démarrage, ouvrir ......

Cela consiste en quoi, ouvrir le fichier au demerrage de l ordinateur par exemple, ou encore ouvre excel tous les jours a 9h par exmple et ferme excel. Je ne connais pas

Comme décrit dans les options de l'application Excel (Options Avancées --> Général ), vous pouvez spécifier un dossier qui contiendra les fichiers à ouvrir dès le lancement de l'application. Il suffit alors d'y placer votre fichier avec votre macro et cette dernière sera systématiquement exécutée dès l'ouverture d'Excel.

Non c pas ca, je cherche a ouvrir et fermer excel de facon automatiquement sans que j ai a ouvrir excel tout les jours genre a 9h. Si je suis pas au bureau par exemple l ordi est allume et envoi l email de façon automatique

Je ne vois pas bien l'intérêt d'utiliser cette fonction.

Vous pouvez programmer de façon très précise : jours et heure, l'exécution de votre macro via le planificateur de tâches.

C la que je sais pas faire ni comment

Bouton démarrer --> Outils d’administration --> planificateur de tâches --> menu action --> créer une tâche

1- général : cocher exécuter avec les autorisations maximales

2- déclencheur : nouveau --> paramètres : cocher chaque semaine et positionner vos paramètres

3- Actions : nouveau --> spécifier le fichier à exécuter

4- Conditions et Paramètres : options par défaut

Merci juque la je comprend mais je mais quoi un fichier.vbs ou excel lien microsoft plus fichier plus lien car en mettant excel j ai tentative reussit mais mon fichier excel n est pas rester ouvert comme demander il y a une tape que je reussit pas

Désolé je passe la main car j'ai du mal à déchiffrer votre expression écrite.

Ouvrir un fichier excel c ma demande. C simple .

Ouvrir un fichier excel c ma demande. C simple .

A des demandes formulées en langage SMS, je n'y réponds que sur mon smartphone.

Ben je suis avec mon téléphone

Je récapitule la tâche du planificateur ca je sais faire.

Mais je n y arrive pas.

Avec un fichier vos ou en direct avec lien Excel

Donc je ne sais pas faire

Bonjour planificateur de taches ok le fichier s ouvre

"C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE"

arguments = le nom du fichier

commencer = lien du fichier

content ca ouvre le fichier

ma macro envoi mon mail

d 'après vous ou dois je mettre la fermeture du fichier soit forcer l'arret apres l 'execution de la macro

Bonjour,

A mettre à la fin de ton code :

ActiveWorkbook.Close

merci beaucoup donc a la fin de macro mais pouvez vous me dire comment faire une condition en vba

If TaCondition then
'Si vrai
Else
'Si faux
End if
Rechercher des sujets similaires à "programmer tache"