Bonjour,
Je souhaite mettre dans un répertoire réseau de l'entreprise, un ficher que plusieurs utilisateurs peuvent utiliser en même temps.
J'ai testé un code VBA mais il y a un message d'erreur : "Erreur de compilation - Utilisation incorrecte de la propriété". Etant noviste dans la VBA, quelqu'un peut-il m'aider à résoudre le problème ? Merci d'avance pour toute aide.
Mon code est :
Sub ActiverPartageClasseur()
On Error Resume Next
' Activer le partage de classeur
ThisWorkbook.MultiUserEditing "AllowMultiUserEditing"
If Err.Number <> 0 Then
MsgBox "Le partage de classeur n'a pas pu être activé.", vbExclamation
Else
MsgBox "Le partage de classeur a été activé.", vbInformation
End If
On Error GoTo 0
End Sub
Ci-joint le classeur pour exemple.
Je souhaite mettre dans un répertoire réseau de l'entreprise, un ficher que plusieurs utilisateurs peuvent utiliser en même temps.
J'ai testé un code VBA mais il y a un message d'erreur : "Erreur de compilation - Utilisation incorrecte de la propriété". Etant noviste dans la VBA, quelqu'un peut-il m'aider à résoudre le problème ? Merci d'avance pour toute aide.
Mon code est :
Sub ActiverPartageClasseur()
On Error Resume Next
' Activer le partage de classeur
ThisWorkbook.MultiUserEditing "AllowMultiUserEditing"
If Err.Number <> 0 Then
MsgBox "Le partage de classeur n'a pas pu être activé.", vbExclamation
Else
MsgBox "Le partage de classeur a été activé.", vbInformation
End If
On Error GoTo 0
End Sub
Ci-joint le classeur pour exemple.