Bonjour le forum,
Je suis toujours sur mon appli de gestion partagée d’agendas en réseau…
Je rencontre deux problèmes de taille :
Pour permettre l’utilisation simultanée à plusieurs j’ai donc activé « partager le classeur », puis « permettre une modif. Multiutilisateurs »
Les feuilles du classeur sont protégées afin d’éviter des manipulations indésirables en dehors des zones autorisées.
Dans cette configuration :
Pour écrire dans des zones « non autorisées » que j’utilise pour stocker des variables, en VBA, j’utilisais :
Worksheet..Unprotect
‘ Ecriture des données
Worksheet..Protect
Et cela génère un message d’erreur…. (qui ne se produit plus si on décoche l’option « multiutilisateurs »)
Même problème pour la sélection de formes automatiques que j’utilise pour indiquer dans quel agenda on se trouve et le nom du patient à qui on est en train de donner un RDV..
Worksheet. .Shapes("AutoShape 17").Select
Selection.Characters.Text = Label8
Ne marche pas non plus en mode “multiutilisateur”
Y a-t-il un moyen de contourner ces difficultés ???
Merci d’avance pour votre aide car le passage de ma version monoposte qui marche parfaitement à une version réseau commence à me miner le moral… (lol)
A+
Philippe
Je suis toujours sur mon appli de gestion partagée d’agendas en réseau…
Je rencontre deux problèmes de taille :
Pour permettre l’utilisation simultanée à plusieurs j’ai donc activé « partager le classeur », puis « permettre une modif. Multiutilisateurs »
Les feuilles du classeur sont protégées afin d’éviter des manipulations indésirables en dehors des zones autorisées.
Dans cette configuration :
Pour écrire dans des zones « non autorisées » que j’utilise pour stocker des variables, en VBA, j’utilisais :
Worksheet..Unprotect
‘ Ecriture des données
Worksheet..Protect
Et cela génère un message d’erreur…. (qui ne se produit plus si on décoche l’option « multiutilisateurs »)
Même problème pour la sélection de formes automatiques que j’utilise pour indiquer dans quel agenda on se trouve et le nom du patient à qui on est en train de donner un RDV..
Worksheet. .Shapes("AutoShape 17").Select
Selection.Characters.Text = Label8
Ne marche pas non plus en mode “multiutilisateur”
Y a-t-il un moyen de contourner ces difficultés ???
Merci d’avance pour votre aide car le passage de ma version monoposte qui marche parfaitement à une version réseau commence à me miner le moral… (lol)
A+
Philippe