Discussion :

[Free94]

Bonjour tout le monde

Voilà pour la 3ème fois en 6 mois je rencontre un problème que je ne comprends pas, dont l'origine m'échappe totalement, et que je ne parviens pas à résoudre... à chaque fois j'ai du remplacer le classeur par une sauvegarde et pouf magie plus de soucis pendant 3 mois

Voilà le contexte :

Un ensemble de collaborateurs travaillent sur un classeur Excel (à l'époque partagé mais ne l'est plus aujourd'hui -> je suppose donc que cela n'a pas d'impact sur le problème puisqu'on le rencontre avec et sans partage), sur lequel j'ai développé pas mal de fonctionnalités en VBA. Il s'agit d'un classeur Excel 2010.

Le problème survient du jour au lendemain, sans que je ne parvienne à expliquer pourquoi, et génère une erreur dès les premières lignes exécutées à l'ouverture du fichier dans la fonction

Code :

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

Private Sub Workbook_Open()

de la feuille ThisWorkBook.

Mes trois premières lignes sont les suivantes :

Code :

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

1
2
3
4
Application.EnableEvents = True
    Application.ScreenUpdating = False
    'Si l'utilisateur est  indiqué dans le fichier paramètre, on lui donne l'accès au fichier en rendant les feuilles visibles
    If (Not Sheets("Paramètres utilisateurs").Range("SF_Identifiants").Find(Environ("username")) Is Nothing) Then

et c'est sur la dernière que le programme s'arrête !
Erreur d'execution '32809'
Erreur définie par l'application ou par l'objet

Après avoir longuement cherché le pourquoi du comment, j'ai constaté avec effroi que c'était clairement le "Sheets("Paramètres utilisateurs")" qui posait le problème ...

Mais comment l'expliquer alors que depuis des mois je n'ai pas touché à la feuille ThisWorkBook, ni à la feuille Paramètres utilisateurs, et que la veille tout marchait très bien ...?

La feuille est toujours présente ça me paraît aberrant comme erreur...

Je dois omettre des informations pour vous aider mais je suis quand même perdu devant cette erreur qui je trouve, n'a pas de sens ...

Merci par avance

Free

[Docmarti]

Bonjour.

Cela ressemble au problème créé par une mise à jour de sécurité de déc 2014 : MS14-082 Microsoft Office Security Updates

Ce problème survenant sur les systèmes sur lesquels cette mise à jour n'a pas été installée.

[Free94]

Tout d'abord merci de m'accorder un peu de temps

En effet ça semble expliquer pas mal de choses... je vais tester ça pour faire un retour rapidement !

Merci

[Free94]

... j'ai installé la mise à jour, redémarré le PC ... et le problème est toujours là

[Docmarti]

Il se peut que le fichier soit corrompu.

Certains suggèrent d'apporter une modification mineure au code (comme simplement ajouter un commentaire à une ligne de code) puis de sauvegarder le classeur avec Excel 2007.

Un autre a réglé son problème en sauvegardant le classeur en .XLSx pour ensuite y recopier code et formulaires et resauvegarder en xLSm

[Free94]

C'est vraiment très gentil de continuer à me proposer des solutions potentielles !

Je prends bonne note et fais un retour dès que possible

Encore merci Docmarti

Cordialement,

Free

[Free94]

Il se peut que le fichier soit corrompu.

Certains suggèrent d'apporter une modification mineure au code (comme simplement ajouter un commentaire à une ligne de code) puis de sauvegarder le classeur avec Excel 2007.

Un autre a réglé son problème en sauvegardant le classeur en .XLSx pour ensuite y recopier code et formulaires et resauvegarder en xLSm

Effectivement cette solution fonctionne (celle de changer l'extension etc) MAIS temporairement puisque dans les n jours (parfois heures...) qui suivent le problème revient ...

Vu la quantité de code dans le classeur je perds chaque fois un temps fou à faire ce process et puis on ne peut clairement pas continuer ainsi