Macro ne fonctionne plus sous XL-2010

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:

---

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.

Bonjour,

Si vous êtes sur Mac, vous trouverez une possible solution par ICI :

Le code Visual Basic pour Applications peut échouer lorsqu'une feuille de calcul contient un contrôle ActiveX

Dans Microsoft Excel pour Mac, si vous ouvrez un classeur puis exécutez une procédure Visual Basic qui effectue une action impliquant une feuille de calcul qui contient un contrôle ActiveX, vous pouvez recevoir des messages d'erreur semblables aux suivants :
- Erreur d'exécution '57121' : Impossible de sortir du mode création, le contrôle 'CheckBox1' ne peut pas être créé.
- Erreur d'exécution '32809' : Erreur définie par l'application ou par l'objet.

L'erreur peut par exemple se produire lors de l'exécution d'une macro qui contient l'une des lignes de code suivantes :

Code:

---

ActiveSheet.Controls.Delete

---

Code:

---

xName = Sheets(1).Name 'where Sheets(1) contains a control

---

Si ces problèmes se produisent, ouvrez le classeur dans Microsoft Excel pour Windows et supprimez les contrôles ActiveX de la feuille de calcul. Une fois les contrôles supprimés et le classeur enregistré, les problèmes ne se produisent plus dans Microsoft Excel pour Mac.

Mon message initial était imprécis : Je suis sur PC, passé de XP-SP3 avec XL-2007 à W7 avec Office 2010.
A priori, je n'utilise pas de controles ActiveX dans mes scripts mais je vais creuser cette piste quand même.

Merci Pijaku pour ton aide.

A tout hasard, essayez ce code :

Code:

---

1 2 3 4 5 6 7

Dim StrObjet As String, RL   StrObjet = "Répartition des achats" RL = Chr(10) & Chr(13) With ActiveWorkbook.Sheets("Feuil1") .Range("C10").Value = StrObjet & Chr(10) & "Base de données Excel" End With

---

1- avec une déclaration des variables,
2- un nom différent pour la variable Objet,
3- l'utilisation d'un bloc With - End With

Mais c'est vraiment à tout hasard....

Merci Pijaku pour ton aide.
L'idée était à tenter mais toujours le même genre de message.
Au fait, comment supprimer des controles ActiveX, dans quel menu ou dans VBA ?
J'ai essayé activesheet.controls.delete mais ça plante (erreur...)
Je vais essayer autre chose et je vous tiendrai au courant.
Mais pas ce soir...