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

adet ruireux · 7 Février 2022

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 · 7 Février 2022

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 · 7 Février 2022

patricktoulon à dit:
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

verifier les noms de feuille cités dans le code

cellule,feuille,classeur

vérifier la cellule A3 si elle n'est pas en lecture seule

vérifier pareillement pour la feuille

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 · 7 Février 2022

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 · 7 Février 2022

Phil69970 à dit:

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 · 7 Février 2022

patricktoulon à dit:
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 · 7 Février 2022

Re

adet ruireux à dit:
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 · 7 Février 2022

patricktoulon à dit:
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 · 7 Février 2022

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 · 7 Février 2022

patricktoulon à dit:
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 · 7 Février 2022

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 · 7 Février 2022

patricktoulon à dit:
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 · 7 Février 2022

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 · 7 Février 2022

patricktoulon à dit:
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.

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

adet ruireux

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

adet ruireux

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

adet ruireux

XLDnaute Nouveau

adet ruireux

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

adet ruireux

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

adet ruireux

XLDnaute Nouveau

Pièces jointes

patricktoulon

XLDnaute Barbatruc

adet ruireux

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

adet ruireux

XLDnaute Nouveau

Discussions similaires