Automatiser selon une date

Bonjour.
Si tu ouvres ton classeur le vendredi avant 20h :

Private Sub Workbook_Open()
Application.OnTime TimeValue("20:00:00")
If Weekday(Date) <> 6 Then Exit Sub
'ta procédure
End Sub

Cordialement.
Daniel
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de
news: C9BC2003-AC07-40B4-90B7-988C96CA56F2@microsoft.com...

Bonjour,

Pour la 2ème fois de la journée je me penche vers les seigneurs d'Excel...

Je suis dans un tableau l'évolution de 5 paramètres chaque semaine. Je
documente ce tableau tous les vendredis soirs ce qui documente alors un
histogramme (=> 1 "bâton" par semaine).
Je souhaiterai automatiser cette manip de la facon suivante (cela reste
purement algorithmique...):

If day = vendredi & hour = 20h00 then
Récupération du numéro de semaine (j'ai vu qq solutions à ce sujet sur
le forum)
Recherche de la colonne ou seront copiées les données (j'ai préparé des
colonnes jusqu'à la semaine 52)
Copie des données
End if

Comment rédiger la condition?

D'avance merci!

Grégory

Bonjour Grégory,

Pourquoi ne pas utiliser le planificateur des tâches pour lui
faire accomplir le job. Lorsque le fichier .VBS sera fait, tu
n'auras qu'à ouvrir le planificateur de tâches de windows et
lui indiquer l'horaire de la tâche selon l'horaire qui te convient.
Pour ce faire, Il suffit que windows soit ouvert...

Édite dans NotePad le texte suivant et enregistre ton fichier
en utilisant l'extension .VBS

Évidemment modifie dans le texte, le chemin et le nom du
fichier à ouvrir, de même, que le nom de la macro (situé dans
un module standard) à exécuter.

'-----------------------------
Dim Xl
Dim Wk
Set Xl = WScript.CreateObject("EXCEL.application")
Xl.Visible = True
Xl.EnableEvents = False
Set Wk = Xl.Workbooks.Open("c:test.xls")
Xl.Run "'" & Wk.Name & "'" & "!MaMacro"
Wk.Close 1
Xl.Quit
'-----------------------------


Salutations!



"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de news: C9BC2003-AC07-40B4-90B7-988C96CA56F2@microsoft.com...
Bonjour,

Pour la 2ème fois de la journée je me penche vers les seigneurs d'Excel...

Je suis dans un tableau l'évolution de 5 paramètres chaque semaine. Je
documente ce tableau tous les vendredis soirs ce qui documente alors un
histogramme (=> 1 "bâton" par semaine).
Je souhaiterai automatiser cette manip de la facon suivante (cela reste
purement algorithmique...):

If day = vendredi & hour = 20h00 then
Récupération du numéro de semaine (j'ai vu qq solutions à ce sujet sur
le forum)
Recherche de la colonne ou seront copiées les données (j'ai préparé des
colonnes jusqu'à la semaine 52)
Copie des données
End if

Comment rédiger la condition?

D'avance merci!

Grégory

Bonjour,

Merci encore pour la réponse.
En fait je ne connaissais pas "le planificateur des tâches"...

Cet outil peut-il effectuer des modifs sur fichier Excel se trouvant dans
une base de données (professionnelle) accessible via Internet Explorer?

Merci pour la découverte!

Grégory

Bonjour Grégory,

Pourquoi ne pas utiliser le planificateur des tâches pour lui
faire accomplir le job. Lorsque le fichier .VBS sera fait, tu
n'auras qu'à ouvrir le planificateur de tâches de windows et
lui indiquer l'horaire de la tâche selon l'horaire qui te convient.
Pour ce faire, Il suffit que windows soit ouvert...

Édite dans NotePad le texte suivant et enregistre ton fichier
en utilisant l'extension .VBS

Évidemment modifie dans le texte, le chemin et le nom du
fichier à ouvrir, de même, que le nom de la macro (situé dans
un module standard) à exécuter.

'-----------------------------
Dim Xl
Dim Wk
Set Xl = WScript.CreateObject("EXCEL.application")
Xl.Visible = True
Xl.EnableEvents = False
Set Wk = Xl.Workbooks.Open("c:test.xls")
Xl.Run "'" & Wk.Name & "'" & "!MaMacro"
Wk.Close 1
Xl.Quit
'-----------------------------


Salutations!



"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de news: C9BC2003-AC07-40B4-90B7-988C96CA56F2@microsoft.com...
Bonjour,

Pour la 2ème fois de la journée je me penche vers les seigneurs d'Excel...

Je suis dans un tableau l'évolution de 5 paramètres chaque semaine. Je
documente ce tableau tous les vendredis soirs ce qui documente alors un
histogramme (=> 1 "bâton" par semaine).
Je souhaiterai automatiser cette manip de la facon suivante (cela reste
purement algorithmique...):

If day = vendredi & hour = 20h00 then
Récupération du numéro de semaine (j'ai vu qq solutions à ce sujet sur
le forum)
Recherche de la colonne ou seront copiées les données (j'ai préparé des
colonnes jusqu'à la semaine 52)
Copie des données
End if

Comment rédiger la condition?

D'avance merci!

Grégory

Bonjour,

Tout parait tjs si simple... qd la solution est sous les yeux!
Merci encore pour l'aide!

Grégory

Bonjour.
Si tu ouvres ton classeur le vendredi avant 20h :

Private Sub Workbook_Open()
Application.OnTime TimeValue("20:00:00")
If Weekday(Date) <> 6 Then Exit Sub
'ta procédure
End Sub

Cordialement.
Daniel
"Grégory" <Grgory@discussions.microsoft.com> a écrit dans le message de
news: C9BC2003-AC07-40B4-90B7-988C96CA56F2@microsoft.com...

Bonjour,

Pour la 2ème fois de la journée je me penche vers les seigneurs d'Excel...

Je suis dans un tableau l'évolution de 5 paramètres chaque semaine. Je
documente ce tableau tous les vendredis soirs ce qui documente alors un
histogramme (=> 1 "bâton" par semaine).
Je souhaiterai automatiser cette manip de la facon suivante (cela reste
purement algorithmique...):

If day = vendredi & hour = 20h00 then
Récupération du numéro de semaine (j'ai vu qq solutions à ce sujet sur
le forum)
Recherche de la colonne ou seront copiées les données (j'ai préparé des
colonnes jusqu'à la semaine 52)
Copie des données
End if

Comment rédiger la condition?

D'avance merci!

Grégory

| Cet outil peut-il effectuer des modifs sur fichier Excel se trouvant dans
| une base de données (professionnelle) accessible via Internet Explorer?

Tu testes et tu nous fais part de tes résultats.


Salutations!