Discussion :

[bill7]

bonjour,
pouvez vous me dire comment coder svp, j ai erreur incompatibilité de type et je ne trouve pas d'exemples. Je veux rajouter des minutes et des secondes à Now:

Code :

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

1
2
3
4
5
nbMin = Workbooks(nomFichierAnglais).Sheets("params").Range("B2").Value
nbSec = Workbooks(nomFichierAnglais).Sheets("params").Range("B3").Value
maStr = "00:" & nbMin & ":" & nbSec & ""
'''''Application.OnTime Now + TimeValue("00:00:02"), "restau" << fonctionne
Application.OnTime Now + TimeValue(" & maStr & "), "restau" <<fonctionne pas

[alsimbad]

hello
je n'ai pas le temps de refaire ton code, mais a priori

Code :

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

(" & maStr & "),

c'est une forme bizarre.
je ne sais pas exactement ce que tu veux obtenir, mais essaiye ça

Code :

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

( maStr )

ou si tu veux mettre les guillemets

Code :

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

(""" & maStr & """)

[bill7]

Code :

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

1
2
3
4
Dim mdt                          ' une variable date
mdt = DateAdd("n", nbMin, Now)   ' ajouter des minutes à maintenant
mdt = DateAdd("s", nbSec, mdt)   ' et ajouter des secondes
Application.OnTime mdt, "restau" ' demarre "restau" à l'heure mdt

[ouskel'n'or]

Tu peux aussi faire ça qui me semble plus orthodoxe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub CopierDestination()
Dim maStr as byte, nbMin as byte, nbsec as byte
maStr = 0
nbMin = 0
nbsec = 2
Application.OnTime Now + TimeSerial(maStr, nbMin, nbsec), "restau"
End Sub
 
Sub restau()
MsgBox "Hello"
End Sub