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

adet ruireux

XLDnaute Nouveau
Bonjour à tous,

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


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.
 

adet ruireux

XLDnaute Nouveau
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.
 

adet ruireux

XLDnaute Nouveau
Re

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

VB:
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

XLDnaute Nouveau
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 ?
 

Pièces jointes

  • securite.png
    securite.png
    21.4 KB · Affichages: 35

patricktoulon

XLDnaute Barbatruc
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

XLDnaute Nouveau
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 713
Messages
2 081 808
Membres
101 819
dernier inscrit
lukumubarth