Paramètres avec Application.OnTime

Version imprimable

07/11/2007, 11h22
ouskel'n'or

Paramètres avec Application.OnTime

Bonjour tous,
Juste pour m'éviter de nouveaux tests :oops: quelqu'un connaît-il la syntaxe pour ajouter un paramètre à cette ligne.

Code:

Application.OnTime Now + TimeValue("00:00:02"), "LaMacro"

... ou sait-il que ce n'est pas possible :(
Par avance, merci.
07/11/2007, 11h38
ouskel'n'or
Citation:
Envoyé par jpcheck

salut,
l'aide d'excel m'indique ceci:

Code:

1 2 3 Cet exemple montre comment exécuter my_Procedure dans 15 secondes. Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

quel type de paramètres souhaites-tu ajouter ?
En effet, c'est mon code... à 13 secondes près :lol:
Pour le paramètres , je veux simplement passer un string que je ne peux déclarer en public.

et en passant par une procedure intermediaire bidon:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function EcrireFichierLog(texte As String) As Boolean
Dim F As Integer
On Error GoTo fin
    ChDir "C:\"
 
    F = FreeFile
    Open "C:\Documents and Settings\UserStd\Bureau\fichierlog.txt" For Append As #F
    Print #F, texte
    Close #F
    EcrireFichierLog = True
    Exit Function
fin:
    EcrireFichierLog = False
End Function
 
Sub test()
Application.OnTime Now + TimeValue("00:00:02"), "temp"
 
End Sub
 
Sub temp()
EcrireFichierLog ("piou")
End Sub

07/11/2007, 11h57
ouskel'n'or

Merci jpcheck, ta solution en est-une, je pourais aussi écrire le paramètre dans une cellule ou dans un contrôle invisible sur une feuille de calculs mais s'il était possible de paramétrer la procédure renvoyée avec OnTime, ce serait tout de même plus mieux... ;)
Je vais encore attendre un moment, ensuite, si je n'ai pas la réponse, je délesterai.
Encore merci de ton intérêt pour la chose :lol:
07/11/2007, 12h41
Pierre Fauconnier

Salut

C'est dans la :faq:

Bonne journée
07/11/2007, 12h59
ouskel'n'or

:oops: J'ai honte ! J'ai cherché avec Application.OnTime, mais n'ai pas trouvé parmi les 95 réponses... Sur ton conseil je viens d'y retourner avec seulement OnTime... et là, miracle, j'ai trouvé parmi... la réponse unique :mouarf:
Merci Pierre.
07/11/2007, 17h23
ouskel'n'or

Oui ben non !
Si j'appelle une sub plutôt qu'une fonction (l'exemple donné dans la FAQ) je n'y arrive pas.
Le code

Code:

Application.OnTime Now + TimeValue("00:00:02"), "LaMacro""" & ", """ & NomFich & Chr(34)

Le message

Citation:

Impossible de trouver la macro "D:\xls\LeFichier.xls'!LaMacro", "D:\xls\Fichier.txt".

Et quand je supprime le paramètre, ça fonctionne.
"D:\xls\Fichier.txt" étant le paramètre NomFich
Une idée ?
Merci

PS - Comme je ferme le fichier qui lance la Sub contenant l'appel à "LaMacro", je ne peux utiliser un fonction

re...

Tu n'as pas bien lu l'exemple.
Essaie
Code:

1 2 3 4 5 6 7 Dim NomFich As String Dim MacroParametree As String NomFich = "D:\xls\Fichier.txt" MacroParametree = "'RenommerCSV """ & NomFich & """'" Application.OnTime Now + TimeValue("00:00:02"), MacroParametree
Le plus simple étant d'utiliser une variable texte pour pouvoir vérifier facilement la syntaxe.

Ok?

07/11/2007, 17h50
ouskel'n'or

Ce coup-ci j'ai attendu d'avoir testé. J'avais pourtant testé en passant par une variable... Je ne devais pas en être loin :aie:
Bref c'est tout ok !
Merci pour de bon, Pierre, je vais pouvoir finir ce que j'ai commencé avec Manue22 :mouarf: