Discussion :

[DJ_OAKLEY_511]

Bonjour à tous,
Je suis novice sous excel et j'essaie de m'aider des forums ainsi que des bouts de code que je trouve un peu partout.
J'ai un fichier excel avec l'extension xlsm que j'ai mis en mode partagé afin de permettre à plusieurs utilisateurs de l'utiliser.

J'utilise juste la macro ci-dessous afin de pouvoir utiliser les groupages de colonnes.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Private Sub Workbook_Open()
With Worksheets("BENO")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
 
With Worksheets("ANDR")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
 
With Worksheets("POSS")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
 
With Worksheets("PORT")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
 
With Worksheets("DENI")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
 
With Worksheets("STLEU")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
 
With Worksheets("PIER")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
 
With Worksheets("TAMP")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
 
With Worksheets("PAUL")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
 
 
End With
End With
End With
End With
End With
End With
End With
End With
End With
 
End Sub

Sauf que lorsque mon fichier est en mode partagé j'ai l'erreur "Erreur 1004 erreur définie par l'application ou par l'objet" à l'ouverture et mon fichier est inutilisable.
Sans le mode partagé cela fonctionne correctement.

Pourriez-vous m'aider svp merci?

Cordialement.

[Menhir]

Ce que je vais te dire n'est sans doute pas ce que tu souhaites entendre mais Excel n'est pas fait pour le multi-utilisateurs. Il est très maladroit et peu fiable dans cet exercice.
Le seul bon conseil que je peux te donner est soit d'obliger tes utilisateurs à utiliser le fichier à tour de rôle (un seul ayant le fichier ouvert en modification à un instant donné), soit de transférer ton application sur un outil permettant le multi-utilisateurs, une SGBD comme Access ou OpenBase.

PS : dans ton code, ferme tes structures With avant d'ouvrir la suivante. On encapsule les structures With que si l'un est utile à l'autre, ce qui n'est pas le cas pour ton application.

[Invité]

Bonjour

En complément il y certaines choses que tu ne peux pas faire en mode partagé que ce soit manuellement ou par le code.

Dans ce lien tu auras ce qui n'est pas pris en charge dans un classeur partagé et entre autre la protection des classeurs.

https://support.office.com/fr-fr/art...2-c1c59a628534

Sinon je rejoins Menhir, Excel et le partage

Philippe