Discussion :

[Pipeti]

Parmi de nombreuses applications VBA Excel qui fonctionnaient très bien depuis longtemps sous XL-2007 celle ci-dessous ne fonctionne plus sous XL-2010 (3ème ligne) :

Code :

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

1
2
3
4
'-->Valeurs standards
    Objet = "Répartition des achats"
    RL = Chr(10) & Chr(13)
    ActiveWorkbook.Sheets("Tableau_de_Bord").Range("C10").Value = Objet & Chr(10) & "Base de données Excel"

...
J'ai essayé de remplacer ActiveWorkbook par différentes expressions :
ThisWorkbook
Workbooks("nom du classeur")
... mais sans succès ...

Quelqu'un peut-il m'éclairer ?
Merci d'avance.