Bonjour,
Depuis quelques jours j'ai un problème sur mes serveurs.
Sur ceux ci est installé Office Pro Plus 2010 (32-bit). (sauf un en office 2013 qui présente le même problème)
Problème 1
A l'ouverture du classeur la procédure Private Sub Workbook_Open() va écrire des données dans différentes feuilles.
Mais à la première occurrence il y a un arrêt avec un message d'erreur (cf plus bas).
Afin de facilité la lecture de la macro et les différents caractères utilisés j'ai écris dans un module la simple sélection d'une feuille :
La première ligne de commande fonctionne correctement. La feuille 16-ST04-CS (FW Positions) est sélectionnée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Sub Macro1() Worksheets("16-ST04-CS (FW Positions)").Select Worksheets("03-MT54x-CS(BS SEC External)").Select End Sub
La seconde ligne de commande provoque une erreur avec arrêt en débogueur.
Les deux feuilles sont bien présentes dans le groupe VBAProject / Microsoft Excel Objects.Run-time error '32809': Application-defined or object-defined error
Elles portent toutes deux des noms différents de feuil1,2,3 ...
F16_ST04 pour la première et F03_External_CS pour la seconde.
Le problème ne se présente pas sur les postes clients, cependant ce sont des fichiers qui sont exécuté automatiquement sur le serveur qui est le seul a être allumé la nuit.
Dans ce cas le problème peut être contourné avec le code suivant :
Cependant la modification de l'ensemble des lignes de commandes ne fonctionnant pas risque d'être longue et dangereuse...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 For Each ws In Worksheets ws.Activate Select Case ws.Name Case "www": Cells(1, 12) = "toto" End Select Next ws
Problème 2
Sur mes feuilles sont présents les deux types de boutons de commande.
Boutons de commande active X
Le bouton s’appelle cmd_LectureFichier.
La procédure d'exécution sur click est
Lors du click sur le bouton celui ci ne s’exécute pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub cmd_LectureFichier_Click() CODE End Sub
Lors du premier contrôle je suis passé en mode designer et ait fait double click sur le bouton pour voir le code.
Celui ci a été renommé en CommandButton2 et la procédure Private Sub CommandButton2_Click() a été créé (vide).
J'ai essayé de renommé le bouton mais un message d'erreur apparaît
Si j'écris le même code dans Private Sub CommandButton2_Click() que dans la procédure initiale et effectue le click rien ne se passe.Ambigous name detected: cmd_LectureFichier
Boutons de commande formulaire
Ces boutons lancent la macro auxquels ils sont rattaché. Mais un problème survient. Même problème que si je lance la macro en faisant F5 ou F8. Même dans une procédure vide.
Le code se met immédiatement en erreur :
J'ai supprimé les fichiers exd mais rien n'y fait.Compile error:
Object library invalid or contains references to object definitions that could not be found
En résumé :
Cela ne fonctionne pas depuis vendredi sur les serveurs avec :
Office 2010 avec toutes les dernières mises à jours installées
Office 2010 sans les dernières mises à jour.
Office 2013 avec toutes les dernières mises à jours installées
Les fichiers sont exécuté correctement sur les postes clients avec office 2010 et toutes les dernières mises à jours installées.
Si quelqu'un à une idée il sera le bienvenue.
Alessandro.
Partager