XL 2013 erreur 1004 définie par l'application ou par l'objet

[adet ruireux]

Bonjour à tous,

Depuis que j'ai partagé mon classeur, ma macro s'arrête en affichant ce message.

NB: Elle fonctionnait parfaitement avant le partage.

Voici le code que j'obtiens en mode enregistrement. J'ai bien conscience qu'il ne doit pas être optimisé mais ne suis pas un pro du VBA.

Sub adet9Debut() ' ' adet9Debut Macro ' Sheets("Données").Select ' Création de la liste déroulante Range("A3").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Paramètres!$N$1:$N$2" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With ' End Sub

Ce qui m'interpelle, c'est le fait que le script fonctionne quand le classeur n'est pas partagé !
Sauriez-vous comment faire pour qu'il fonctionne en l'étant ? Je tourne un peu en rond....
Un grand merci d'avance.

 

[patricktoulon]

faire les vérifications citées plus haut
si pas d'erreurs dans le code alors ton fichier est immodifiable
ton fichier se comporte bien comme un xltm
c'est du du aux restrictions du réseau et c'est donc de ce coté qui faut corriger le problème

 

[adet ruireux]

Ah!!!!
si tu a testé la proposition de @Phil69970 et que tu a une erreur ça veux dire qu'il y a un soucis d'acces

1. verifier les noms de feuille cités dans le code
2. cellule,feuille,classeur
3. vérifier la cellule A3 si elle n'est pas en lecture seule
4. vérifier pareillement pour la feuille
5. et pareil pour le classeur

etant en réseau l il est possible que le classeur se comporte comme si c'etait un xltm(fichier model)

Effectivement, A3 était en lecture seule... Je n'en ai plus maintenant mais ça ne fonctionne pas..
Les noms sont bien ceux des feuilles (j'ai fait attention à la casse).
Pour l'instant, je suis en local et non en réseau et je partage sur mon poste.

 

[patricktoulon]

c'est pareil même si tu l'utilise sur ton propre poste dans le dossier partagé ,tu utilise donc un fichier en lecture seule
propriété / onglet securité/ blablabla /gérer les autorisations

 

[adet ruireux]

Re

Peut être avec une référence plus explicite au classeur

Sub adet9Debut()
ThisWorkbook.Sheets("Données").Range("A3").Select

With Selection.Validation ' Création de la liste déroulante
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="Oui,Non"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
End Sub

@Phil69970

Non, ça ne change rien.

 

[adet ruireux]

c'est pareil même si tu l'utilise sur ton propre poste dans le dossier partagé ,tu utilise donc un fichier en lecture seule
propriété / onglet securité/ blablabla /gérer les autorisations

Exact.

 

[Phil69970]

Re

Non, ça ne change rien.

Alors cela ne vient pas du code mais des restrictions sur ton PC et/ou sur le réseau

@Phil69970

 

[adet ruireux]

faire les vérifications citées plus haut
si pas d'erreurs dans le code alors ton fichier est immodifiable
ton fichier se comporte bien comme un xltm
c'est du du aux restrictions du réseau et c'est donc de ce coté qui faut corriger le problème

Merci pour cette idée.
Du coup, que faudrait-il modifier côté réseau ?

 

[patricktoulon]

re

en dossier partagé il faut ajouter "des groupes" et dans l'imput marquer le nom de ton workgroup
( c'est le nom de ton groupe résidentiel ) il faudra ajouter le reseau aussi quand tu le mettra en réseau

 

[adet ruireux]

re
Regarde la pièce jointe 1130070


en dossier partagé il faut ajouter "des groupes" et dans l'imput marquer le nom de ton workgroup
( c'est le nom de ton groupe résidentiel ) il faudra ajouter le reseau aussi quand tu le mettra en réseau

De nouveau, merci patricktoulon.
Pour le moment, je teste le partage sur mon PC et suis le seul utilisateur et quand je regarde les propriétés de mon classeur, j'ai la même chose donc que dois-je modifier ?

 

[patricktoulon]

re
ben oui il faut ajouter ton groupe résidentiel
et surtout tout ceux qui son sur ton réseau devront avoir le même nom de groupe résidentiel
en reseau sur serveur c'est un peu différent c'est sur le serveur qu'il faut paramétrer

 

[adet ruireux]

re
ben oui il faut ajouter ton groupe résidentiel
et surtout tout ceux qui son sur ton réseau devront avoir le même nom de groupe résidentiel
en reseau sur serveur c'est un peu différent c'est sur le serveur qu'il faut paramétrer

Pardon mais j'ai du mal à comprendre pourquoi ça ne fonctionne pas, alors que je suis en local et ai tous les droits.

 

[patricktoulon]

re
non tu n'a pas tout les droits même sur ton propre Pc a moins que tu es touché ses paramètres là
1° déjà exécute tu ton Windows en mode administrateur en est tu sur!!!(car d'origine àl'intallation windows tu n'est pas administrateur
2° quand un fichier est partagé sur son propre pc l'utilisateur du pc lui même est un utilisateur du groupe résidentiel (plus l'administrateur) à moins de l'avoir paramétrés dans la création du groupe résidentiel

 

[adet ruireux]

re
non tu n'a pas tout les droits même sur ton propre Pc a moins que tu es touché ses paramètres là
1° déjà exécute tu ton Windows en mode administrateur en est tu sur!!!(car d'origine àl'intallation windows tu n'est pas administrateur
2° quand un fichier est partagé sur son propre pc l'utilisateur du pc lui même est un utilisateur du groupe résidentiel (plus l'administrateur) à moins de l'avoir paramétrés dans la création du groupe résidentiel

D'accord. Ça me semble logique.
Merci beaucoup pour toutes ces explications et ton aide précieuse.