Discussion :

[wouana19]

Bonjour,

Cela fait plusieurs jours que je cherche, mais je n'arrive pas comprendre ce qui se passe. Si vous avez une idée ce serait sympa de me mettre sur la voie :-)

J'ai un soucis car j'ai des fichiers Excel qui plantent, à l'ouverture de ceux-ci s'affiche le message "Projet ou bibliothèque introuvable". Sur le nombre d'utilisations de ces fichiers, les plantages sont rares (4/300 la semaine passée). Mais lorsque cela arrive c'est embêtant. Heureusement que l'on peut récupérer dans les sauvegardes mais c'est un peu chaud d'aller chercher ses sauvegardes car il y a parfois dernières saisies qui manquent.

Ces fichiers comportent :
- 4 librairies "de base" : Visual Basic for application, Microsoft Excel 16 Object Library, Ole Automation, Microsoft Office 16.0 Object Library
- Plusieurs modules (mais rien de bien spécial)
- Dans thisWorkbook j'utilise "Private Sub Workbook_BeforeSave" pour enregistré des propriétés personnalisées contenues dans un tableau
- Plusieurs feuilles de calculs parfois complexes, mais c'est le but d'Excel il me semble ^^

Emplacement/Accès
- Bibliothèque SharePoint - Accès via OneDrive B2B
- Utilisateurs tous avec Excel 365 et Win10

J'ai investigué… en lançant ce code on voit bien qu'il y a un soucis avec le fichier qui plante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Boucle_Projets()
 
   Dim i As Integer
   Dim oVBProj As VBProject
   Dim oVBComp As VBComponent
 
   For Each oVBProj In Application.VBE.VBProjects
      i = i + 1
      Debug.Print i & " : " & oVBProj.Name
 
      For Each oVBComp In oVBProj.VBComponents
         Debug.Print "   - " & oVBComp.Name
      Next
   Next
 
End Sub

Comme résultat j'ai :

1 : VBARecup
- ThisWorkbook
- Feuil1
- M_Recup
- M_Import_Code_VBA
2 :
-
-
-
-
-
-
-
3 : VBAProject
- ThisWorkbook
- Feuil1

Le fichier 1 est le fichier qui comporte le code ci-dessus
Le fichier 2 est celui qui me pose problème. on s'aperçoit qu'il manque le nom du projet des de son contenu.
Le fichier 3 est un nouveau classeur vide

à mon avis ce n'est pas un soucis avec les librairies, car ce sont les librairies de base. à noter que si j'ouvre mon éditeur VBA, Dans mon Explorateur de projet il y a :
- Toutes les feuilles
- Tous les modules
- Par contre, à la racine de la branche il y a le nom du fichier mais par contre le nom du projet VBA ne s'affiche pas, comme s'il avait disparu.
- Lorsque j'effectue un double clic sur un des modules (idem si c'est sur thisWorkbook), voilà ce qui s'affiche (dans mon espace de travail un fenêtre grisée mais sans fond blanc)



J'ai trouvé une "solution" pour les rétablir, j'ai récupéré vbaProject.bin dans un fichier valide. mon fichier qui plante refonctionne à nouveau. Mais cela n'est de loin pas une solution viable car la majorité de mes fichiers ont un nombre de feuille et/ou de modules différents. J'ai pu utilisé cette solution uniquement sur 2 fichiers totalement identiques.

Avez-vous une idée :
- Pourquoi ces fichiers plantent ?
- Comment les réparer "facilement" ?

Merci d'avance pour votre réponse.
Wouana

[wouana19]

Bon, je vais me répondre à moi même ! :-)

J'ai passé plus de 3 jours à comprendre le problème, à chercher sur de multiples forums… à bidouiller et rebidouiller…. à commencer à développer un code pour récupérer les fichiers qui plantaient.

La solution était d'attendre la mise à jour Excel ! (nous sommes en Office 365, mise à jour canal mensuel)

Donc depuis la mise à jour 16.0.12730.20144, il n'y a plus aucun problème, même avec les fichiers qui avaient "plantés". Donc ce n'est pas les fichiers qui avaient plantés mais Excel qui n'arrivaient pas à les ouvrir. Non avons forcés les mises à jours sur les postes de tous les utilisateurs et tout est rentré dans l'ordre.

…. Avec ces produits Crosoft, on peut gagner passablement de temps, mais parfois on en perd.

++

[Antonin El Nino]

Hello Wouana19, longue vie à toi,
J'ai toujours ce problème qui apparait parfois, mises à jour faites, je n'en peux plus.
Ton topic était le plus proche de la situation que je vis.
Si tu as eu de nouveau le problème et que tu as trouvé une nouvelle solution, je suis preneur.

[wouana19]

Hello,

Je n'ai pas de vraies solutions.
Le soucis ne s'est plus présenté, comme expliqué une mise à jour Excel a dû rétablir le problème.
++