Discussion :

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

... ou sait-il que ce n'est pas possible
Par avance, merci.

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Pour le paramètres , je veux simplement passer un string que je ne peux déclarer en public.

[Jean-Philippe André]

et en passant par une procedure intermediaire bidon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Pierre Fauconnier]

Salut

C'est dans la

Bonne journée

[ouskel'n'or]

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
Merci Pierre.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Le message

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

[Pierre Fauconnier]

re...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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
Bref c'est tout ok !
Merci pour de bon, Pierre, je vais pouvoir finir ce que j'ai commencé avec Manue22