Discussion :

[ArthurFort]

Bonjour à tous,

Je suis débutant en VisualBasic et je rencontre un problème qui me bloque depuis quelques jours, j'espère donc que vous pourrez m'aider.

Contexte :
L'entreprise dans laquelle je suis utilise différentes macros Excel sous Office 2010 et désire passer sous Office 2013, et je suis chargé de la maintenance de celle ci. Premièrement la macro sur laquelle je travail fonctionne très bien sur Office 2010 mais pose un problème lorsqu'on la lance sur Office 2013. La macro est censée afficher un UserForm avec des données stockées sur un Workbook différent, pour cela elle ouvre ce Workbook et récupère les infos nécessaires.

Problème (uniquement sous Office 2013) :
Lorsque la macro ouvre le Workbook sur lequel sont stocké les données désirées, la variable ActiveSheet ne se met pas à jour et donc le reste du programme plante. Cependant si je lance cette macro avec un point d'arrêt et que je l'exécute ligne par ligne la variable ActiveSheet se met à jour et le programme fonctionne très bien.

Voila j'espère avoir été clair, si ce n'est pas le cas n'hésitez pas à me demander de clarifier certains points ou de vous transmettre certaine parties du code.

En attente de vos propositions, merci par avance.

Arthur

[Ben_L]

Bonjour,

Le problème que vous rencontrez semble être une très bonne raison de se passer de toute forme de sélection/activation dans un code Excel... à moins bien sûr qu'il n'y ait pas de contournement possible.

Dans votre cas, le nom de l'onglet auquel ActiveSheet est censé faire référence est-il fixe et connu ?
Si oui, passez simplement par une identification claire de cette sheet :

Code :

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

Workbooks("<Nom_du_fichier>").Sheets("<Nom_de_longlet>")

Si cela n'est pas possible, après l'ouverture du fichier, ajoutez un DoEvents. Cela laissera le temps à Excel de charger proprement le fichier à ouvrir et de lancer les événements Open et surtout Activate.

Cordialement

[RyuAutodidacte]

Bonjour,

Bonnes remarques de @Ben_L.
Je rajouterais à cela, si le classeur met un certain à s'ouvrir,
alors utiliser Application.Wait (cf aide vba)

[ArthurFort]

Bonjour Ben_L,

Tout d'abord merci beaucoup pour votre réponse !

Ensuite je comprend tout à fait votre conseil de ne pas utiliser d'activation, malheureusement je ne suis pas l'auteur de cette macro et mon supérieur m'à demandé de toucher le moins possible au code en lui même car il est très long et complexe. Mon travail était simplement de corriger les erreurs qui apparaissent sous Office 2013, je cherchais donc une solution pour actualiser ce ActiveSheet. J'ai essayer beaucoup de choses dont le "DoEvents" dont vous parlez et rien y fait..

J'attend donc de voir si d'autres propositions me sont apportées, sinon je demanderais si j'ai l'autorisation de modifié ActiveSheet par ce que vous me recommandez. Merci encore

Cordialement,

Arthur

[ArthurFort]

Bonjour RyuAutodidacte,

Merci de votre réponse également !

Et pour vous répondre j'ai aussi essayer de rajouter Application.Wait avec 20sec (même si je trouvais ca pas très clean ^^) pour voir si c'était le temps de chargement qui causait le problème mais cela n'a rien changé.
J'ai vraiment l'impression que ce n'est pas le Worbook qui ne se charge pas à temps mais plutôt la variable ActiveSheet qui ne se met pas a jour.

Arthur

[ArthurFort]

Bonjour Marc-L,

Merci pour votre réponse cependant :

Comme pourtant indiqué dans mes précédant messages, je n'ai pas codé cette macro j'en assure juste la maintenance et j'ai pour ordre de la modifier le moins possible, juste de fixer les différent problèmes.

Ajouter le Workbook voulu avant ActiveSheet serais donc pour moi le même problème que de mettre directement LeBonWorkbook.LeBonWorksheet, c'est a dire modifier de nombreuses lignes de la macro. Et donc dans le cas ou je serais obligé d'en venir la je mettrais cette dernière solution.

Lire les réponses précédente dans un forum n'est il pas le B A BA ?

Cordialement,

Arthur

[Ben_L]

ArthurFort,

Dans la mesure où votre rôle, si j'ai bien compris, consiste à assurer le bon fonctionnement de la macro, il paraîtrait logique que vous puissiez modifier le code si celui-ci dysfonctionne.
La réponse de Marc-L paraît ainsi tout à fait acceptable.

Le fait que vous souhaitiez modifier le code le moins possible peut se comprendre. Et ça tombe bien : il n'est pas forcément utile de supprimer tous les ActiveSheet pour corriger le problème.

Cordialement