Bug macro en fichier partagé

Bonjour,

Je travaille actuellement sur un fichier avec une macro. Tout fonctionnait parfaitement cependant depuis 3 mois le fichier fonctionne en local mais dès qu'il est déposé et ouvert en tant que fichier partagé, il fonctionne lors de la première ouverture mais se crash automatiquement ensuite. J'ai regardé dans la macro mais rien n'a été modifié pourtant cela plante quand même. C'est un fichier confidentiel que je ne peux donc pas partager ici mais auriez-vous ne serait-ce qu'une idée du problème ?

Je vous remercie d'avance pour vos réponses.

Bonjour,

Le fichier se crashe après une action particulière, genre exécution d'une macro ?
Si oui, il faudrait tester la macro qui fait crasher le fichier en mettant pourquoi pas des points d'arrêts pour cibler exactement la partie du code qui pose problème.
Une fois identifiée, alors on peut t'aider à creuser, pour l'instant, on manque d'éléments.

Bonjour à tous,

Concernant les fichiers partagés les plantages de fichiers sont malheureusement des problèmes souvent rencontrés. J'ai personnellement pesté contre ces fichiers qui fonctionne puis un jour ne fonctionne plus sans que l'on sache trop pourquoi.

Pour moi j'ai testé 3 solutions,

- la première c'est de concevoir une macro qui a chaque modif ou fermeture de fichier enregistre dans un fichier de sauvegarde les actions commises. (Valable si peu d'acteurs 2-3)
- la suivante est qu'en fin de journée reconstruire un fichier neuf avec les données un peu fastidieux mais fonctionne assez bien
- la dernière est la plus sûre, plus de bug, c'est de passé par access. Access gère très bien le multiutilisateur contrairement à Excel. L'inconvénient c'est qu'il faut vraiment s'investir dedans, obligatoire si plus de 10 utilisateurs simultanés.

Une chose peut être utilisée c'est l'ouverture en mode "Read Only". En effet certains utilisateurs n'ont qu'un besoin de consultation, ceux-là doivent ouvrir qu'en mode Read Only sans gêner ceux qui font des modifs dans le fichier Excel.

Oui il se crashe à l'exécution d'une macro mais seulement quand il est sur le réseau (sharepoint), genre quand je fais une extraction ou quand je met à jour avec un fichier externe, le fichier ne veut plus s'ouvrir et fait carrément fermer les autres excel ouvert.

Ca marche merci je vais tester vos solutions.

Bonjour, quand je lance la macro voici le message que cela me met. Je n'arrive pas à comprendre pourquoi cela me fait ça.


Pièce jointe 620440

Bonjour à tous

Pour rendre la croix invalide j'utilise ce type de code :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)   If CloseMode = vbFormControlMenu Then MsgBox "Vous ne pouvez pas utiliser ce bouton de fermeture." & Chr(10) _ & "Pour fermer cette boîte de dialogue, veuillez utiliser le bouton Valider" Cancel = True End If   End Sub

---

Ce code n'est pas de moi je l'ai trouvé ici

https://forum.excel-pratique.com/exc...rm-t28434.html

Je viens de retester et cela fonctionne toujours aussi bien

Cela me semble plus simple que ton code sans vouloir te vexer.

Citation:

---

Envoyé par jkkkk

Bonjour, quand je lance la macro voici le message que cela me met. Je n'arrive pas à comprendre pourquoi cela me fait ça.
Pièce jointe 620440

---

Bonjour,
C'est normal : FindWindow, SetWindow, GetWindow, sont des API qui doivent être déclarées dans un module.
Pour supprimer la croix d'un formulaire (UserForm) il faut procéder ainsi :

1) Dans un module classique déclarer les API (ici compatible Excel 32 ou 64 bits en théorie (je n'ai pas testé en 64 bits)) :

Code:

---

1 2 3 4 5 6 7 8

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr #If Win64 Then Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr #Else Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr #End If

---

2) Dans le UserForm concerné j'ajoute la demande de suppression de la croix à l'initialisation du formulaire :

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() Dim hwnd As LongPtr hwnd = FindWindow("ThunderDFrame", Me.Caption) SetWindowLongPtr hwnd, -16, GetWindowLongPtr(hwnd, -16) And &HFFF7FFFF End Sub

---

3) lors de l'appel du formulaire, il n'a rien de particulier à faire, la croix est supprimée automatiquement :

Code:

---

1 2 3 4

Sub Test() UserForm1.Show MsgBox "fin du traitement" End Sub

---

Concernant les fichiers partagés par plusieurs utilisateurs :
Effectivement Excel plante souvent avec les fichiers partagés, c'est pourquoi je préfère avoir un fichier qui sera commun mais en lecture seule (c'est plus sûr), les données proviendront d'une base Access (et y seront enregistrés les ajouts, modifications, suppression).
Une gestion des utilisateurs habilités est possible. Ainsi qu'une traçabilité.
J'ai rédigé une documentation sur ce sujet qui donne toutes les fonctions génétiques nécessaires pour vous faire gagner du temps :
https://laurent-ott.developpez.com/t...chier_partage/

Bonne programmation.