bonjour
voici mon souci ,j'ai un programme qui fonctionne sur Excel 2010 mais pas sur Excel 2007,je me tire les cheveux
il me marque "espace de pile insuffisant" erreur d'exécution '28'
je vous envoie ma macro

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
Sub datejour()
Dim PlageActive As Range
        Dim FeuilleActive As Worksheet
        Set FeuilleActive = ActiveSheet
        Set PlageActive = ActiveCell
If Range("n1") = 1 Then
Range("b1").Select
ActiveCell.FormulaR1C1 = Date
    End If
 Range("b1").Select
If Range("n1") = 0 Then
ActiveCell.FormulaR1C1 = Date - 1
End If
FeuilleActive.Activate
         PlageActive.Activate
 
 Application.OnTime Now + TimeValue("00:10:10"), "datejour"
 
End Sub
si quelqu'un pourrait m'aider a m'enlèverais une grosse épine du pied
merci encore