[XL-2010] Comportement très étrange [Résolu]

[jpclabaux]

Salut,

Je viens de vivre une expérience très étrange avec VBA Excel 2010. Si quelqu'un y comprend quelque chose qu'il me fasse signe.
J'ai une macro complémentaire qui ajoute des feuilles dans mon classeur pour y copier certaines données.
Quelquechose du genre:

Code :

1
2
3
4
5
    Dim WS, Feuille As Worksheet
 
            Set WS = Sheets.Add
            WS.Name = "FeuilleA"
            ...

qui fonctionnait parfaitement depuis plusieurs mois.
J'avais une modification à apporter et mon pc habituel n'était pas disponible.
J'ai donc fait la modif sur un autre poste avec Excel 2003.
Ensuite j'ai recopié mon .xla sur 2010. Grave erreur.
Maintenant, à la première exécution, la macro s'arrête après le sheets.add. Aucun message d'erreur, c'est comme si les lignes suivantes n'existaient pas. Lorsque je relance ma macro une deuxième fois, tout rentre dans l'ordre. Sauf que si je ferme excel, le même phénomène se produit à nouveau quand je relance ma macro à la prochaine réouverture.
Le plus étrange c'est que c'est comme si ça avait corrompu mon installation car maintenant j'ai le même phénomène avec n'importe quelle macro. Dès qu'on rencontre une instruction sheets.add l'exécution s'arrête et ça uniquement à la première exécution.
Est-ce que ma présentation est claire?
Je ne sais plus quoi faire d'autre que de réinstaller excel 2010 en expérant que tout rentre dans l'ordre. À moins que vous ayez une idée.

Merci d'avance,
Jean

[jpcheck]

Salut,
il faut aller dans le detail lorsqu'on code.

Ton Sheets.Add est trop aléatoire (tu ne précises pas à quel Workbook tu fais appel).

En codant "proprement", tu devrais t'affranchir du bug

Essaie pour commencer avec un

Code :

1
2
3
4
5
Sub piou()
Dim test As Worksheet
Set test = ThisWorkbook.Sheets.Add
test.Name = "piou"
End Sub

Attention à tes déclarations aussi, tel qu'écrit dans ton exemple WS est de type Variant et non pas Worksheet

[jpclabaux]

Salut jpcheck,

Merci, ça semble fonctionner et, ce qui est définitivement étrange, c'est que d'avoir exécuter ton code ça a aussi régler mon problème pour ma macro complémentaire ??????? Je vais corriger tout mon code pour ajouter activeworkbook partout où c'est nécessaire.
Sauf que maintenant j'ai perdu mon onglet complément.
J'ai cherché sur le web et il semble que ce soit un problème assez courant mais aucune des solutions proposées ne fonctionne.
J'ai désinstallé ma macro complémentaire, j'ai même supprimé mon xla du dossier addins. J'ai réinstallé cette même macro, j'ai essayé avec d'autres, rien n'y fait. L'onglet est toujours absent.
As-tu une idée?

[jpclabaux]

Je vais ouvrir un nouveau post pour ce problème de menu.