XL 2013 Erreur "Permission réfusée" 70 VBA

Samson491 · 17 Février 2017

Bonjour a tous,

je suis nouveau sur le forum et dans le développement VBA.

Je construit actuellement une base données client... Pour faire le suivi, le mail de ma petite entreprise.

Je rencontre cette erreur la "Permission Réfusée 70".

Je vous explique.
J'ai deux Listbox (Listbox1 : les entreprises et Listbox2 : les contacts associé à chaque entreprise) un clique sur Listbox1 me donne automatiquement les contactes associés dans Listbox2 (Userform " Client_Salim").

Je peux également filtrer mes listbox avec un combox et le bouton "afficher". (c'est la que commence mes blèmes)
Quand je filtre sur un élément (Par ex "Entreprise" ) le resultat s'affiche correctement.
Ce que je voudrais faire ces lorsque je fini de filtrer j'ai un bouton qui me permette de réinitialiser la listbox concernée. J'ai essayer (Call Userform_Iniatialize) et c'est qu'il me déclare l'erreur dans ce qui me permettais au lancement de l'application d'alimenter les listsbox.

Merci pour votre aide

Lone-wolf · 17 Février 2017

Bonjour Samson

Apparement l'erreur est dans tous les filtres avancés

Feuil7.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Feuil7.Range("N1:N2"), CopyToRange:=Feuil7.Range("P1:Y1"), Unique:=False

Les Listbox et combobox doivent être initialisée dans userform_initialize et mettre Listbox1.Clear. Un exemple parmi d'autres

VB:

Dim n As Byte, k As Byte, x As Byte, lig As Long, L As Long

Private Sub ComboBox1_Change()
  If ComboBox1 <> "" Then ListBox1.Clear
End Sub

Private Sub CommandButton1_Click()
  Dim R As Range, ColDate

If ComboBox1 <> "" Then
  For Each R In [Tb]
    If R Like ComboBox1 & "*" And R.Row <> L Then
      L = R.Row - 1
      ListBox1.AddItem [Tb].Item(L, 1)
      For k = 2 To n
        ListBox1.List(ListBox1.ListCount - 1, k - 1) = [Tb].Item(L, k)
        ColDate = ListBox1.List(ListBox1.ListCount - 1, k - 1)
        ListBox1.List(ListBox1.ListCount - 1, k - 1) = Format(ColDate, "dd.mm.yyyy")
      Next
    End If
  Next
  Else
    ListBox1.Clear
End If
End Sub

Private Sub UserForm_Activate()
  ComboBox1 = ""
  ListBox1.Clear
End Sub

Private Sub UserForm_Initialize()
Dim ColDate

n = [Tb].Columns.Count
  ListBox1.ColumnCount = [Tb].Columns.Count
  ListBox1.ColumnWidths = "50;90;80;70;70;70;60"
  For k = 1 To n
    Me("Label" & k) = [Tb].Item(0, k)
    Me("Label" & k).Top = Me("Label" & k).Top + 5
  Next
    ListBox1.Clear

With Sheets("Factures")
lig = .Range("a65536").End(xlUp).Row

For i = 2 To .Range("b65536").End(xlUp).Row
        ComboBox1 = .Range("b" & i)
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("b" & i)
    Next i

For x = 2 To lig
ListBox1.AddItem .Range("a" & x)
        For j = 2 To 7
        ListBox1.List(ListBox1.ListCount - 1, j - 1) = .Cells(x, j)
        ColDate = ListBox1.List(ListBox1.ListCount - 1, j - 1)
        If IsDate(ColDate) Then _
        ListBox1.List(ListBox1.ListCount - 1, j - 1) = Format(ColDate, "dd.mm.yyyy")
        Next j
    Next x
End With
End Sub

Compte Supprimé 979 · 17 Février 2017

Nouveau et déjà les mauvaises habitudes de crossposting 😡
https://forum.excel-pratique.com/excel/erreur-permission-refusee-70-vba-t89341.html

Samson491 · 17 Février 2017

Merci Lone-Wolf,

Je vais essayer de nettoyer tous ça.

BrunoM45 Y'a t-il un mal à rechercher des solutions a un blème sur un plusieurs forum ?

Roland_M · 17 Février 2017

Bonsoir tout le monde,

Salut à toi BrunoM45 !
excuses moi, mais c'est vrai, Samson n'a pas tort, qui a t'il de mal à chercher de l'aide sur d'autres forums sur lesquels on est inscrit ?
je comprends pas bien !? perso si j'étais inscrit sur un autre forum je ferai de même !
où est le problème, ce n'est pas de la trahison non plus !?

JCGL · 17 Février 2017

Bonjour à tous,
Salut Nono,
Salut Roland,

Il n'y rien de "répréhensible" en soi mais juste le fait que sur un des Forum, on cherche et que, peut-être, une solution a été donné sur l'autre Forum.
Ceci dit je ne suis pas contre "l'envoi d'un message simultanément à plusieurs forums" mais il est souhaitable que le demandeur le précise.

Bises à mon Nono et Fanny.
A+ à tous

Compte Supprimé 979 · 17 Février 2017

Salut Roland_M

Roland_M à dit:
Bonsoir tout le monde,
Salut à toi BrunoM45 !
excuses moi, mais c'est vrai, Samson n'a pas tort, qui a t'il de mal à chercher de l'aide sur d'autres forums sur lesquels on est inscrit ?
je comprends pas bien !? perso si j'étais inscrit sur un autre forum je ferai de même !
où est le problème, ce n'est pas de la trahison !?

Ce n'est pas un problème de "trahison"... Pourquoi utiliser ce mot d'ailleurs !?
C'est juste que certains "perdent" leur temps à trouver une solution sur un forum, alors qu'elle peut être donné sur un autre
Et tu devrais voir un peu d'autres forums, le crossposting n'est jamais très apprécié.
je sais qu'ici on laisse tout faire, c'est bien pour ça que je ne viens plus 😎

Compte Supprimé 979 · 17 Février 2017

Salut mon JP

JCGL à dit:
Bonjour à tous,
Salut Nono,
Salut Roland,
Il n'y rien de "répréhensible" en soi mais juste le fait que sur un des Forum, on cherche et que, peut-être, une solution a été donné sur l'autre Forum.
Ceci dit je ne suis pas contre "l'envoi d'un message simultanément à plusieurs forums" mais il est souhaitable que le demandeur le précise.
Bises à mon Nono et Fanny.
A+ à tous

Je trouve que ce serait la moindre des choses 😵
Merci 😉 tu as un bisous de sa part
Au plaisir

Samson491 · 18 Février 2017

Salut BrunoM45,

Ce que tu dis n'est pas faux. Mais bon je voudrais simplement qu'on essaie d'être objectif.

Merci

Si... · 19 Février 2017

Bonjour

Cela fait un moment que cela me démange d’intervenir, comme toi Roland_M 🙂, sur ce sujet.

« Il n'y rien de "répréhensible" en soi mais juste le fait que sur un des Forum, on cherche et que, peut-être, une solution a été donnée sur l'autre Forum. »

« C'est juste que certains "perdent" leur temps à trouver une solution sur un forum, alors qu'elle peut être donnée sur un autre »

Et alors 😎 ? Une nouvelle proposition peut s’avérer plus à la portée du demandeur, plus complète, plus générale, plus simple, plus … et moins …

Quant à parler de perte de temps cela correspond à quoi sur un forum d’entraide 🙁 ?

Croyant trouver une réponse à la demande, le lecteur perdra plus de temps à lire ce genre de reproche qu’à prendre connaissance d’un début de proposition qui fait défaut.
______________________________________________________________________

Pour en revenir à la demande*, je trouve qu’il y a beaucoup de maladresses, beaucoup de choses à revoir, de plus je n’aime pas me faire éjecter sans tambour ni trompette.
Je ne sais si cela a été proposé ailleurs mais cela n’est guère sympa pour celui qui essaie d’intervenir.
Il y a mieux à faire que de commencer par brider le projet.

Voilà une proposition* qui permet de limiter le nombre de formulaires identiques pour des onglets de même organisation.

*J’ai vu des ".RowSource" qui peuvent poser problème (titre de la demande).
Je ne me suis occupé que de l’ouverture des formulaires et des 2 contrôles "Listbox" tant il est aléatoire de proposer des méthodes avec un fichier si peu avancé.
Attention aux références qui pourraient bloquer ceux qui ne les ont pas (Outlook par exemple).

Si ce que Lone-wolf a proposé convient 😉, je ne dirais pas que j’ai pris du plaisir pour rien.
Je suis quand même sûr de ne pas trouver ici où là les macros que j’ai écrites.

JCGL · 19 Février 2017

Bonjour à tous,

Si... : Deux conceptions d'un Forum d'Entraide qui, visiblement, se mettent en"opposition". Certainement une génération, ou deux, de différences.

Je réitère, néanmoins, mon souhait que "l'envoi d'un message simultanément à plusieurs forums" soit exprimé par le demandeur.

A+ à tous

Si... · 19 Février 2017

Bonsoir JCGL,

« Certainement une génération, ou deux, de différences. »
Bien que je sois plus proche des 4x20 je suis totalement d’accord avec toi sur ce point.

Pas pour Toi 😉 :
Il faut quand même savoir évoluer, non ? Imposer les règles de conduite de sa charrette aux nouveaux moyens de communication, très peu pour moi !

Pour Toi :
Bien entendu je respecte ton souhait à condition qu’on n’en fasse pas une règle qui soit certaine fois mal adaptée.
Je viens de suivre le lien donné ci-dessus et quand j’en vois la teneur cela me conforte dans mon point de vue.
Chacun est libre d’en avoir un autre encore faut-il se demander quel est le moins sujet à discussion.

A+ pour le plaisir de lire tes nouvelles interventions (toujours aussi courtoises)

Samson491 · 23 Février 2017

Si... à dit:
Bonjour

Cela fait un moment que cela me démange d’intervenir, comme toi Roland_M 🙂, sur ce sujet.

« Il n'y rien de "répréhensible" en soi mais juste le fait que sur un des Forum, on cherche et que, peut-être, une solution a été donnée sur l'autre Forum. »

« C'est juste que certains "perdent" leur temps à trouver une solution sur un forum, alors qu'elle peut être donnée sur un autre »

Et alors 😎 ? Une nouvelle proposition peut s’avérer plus à la portée du demandeur, plus complète, plus générale, plus simple, plus … et moins …

Quant à parler de perte de temps cela correspond à quoi sur un forum d’entraide 🙁 ?

Croyant trouver une réponse à la demande, le lecteur perdra plus de temps à lire ce genre de reproche qu’à prendre connaissance d’un début de proposition qui fait défaut.
______________________________________________________________________

Pour en revenir à la demande*, je trouve qu’il y a beaucoup de maladresses, beaucoup de choses à revoir, de plus je n’aime pas me faire éjecter sans tambour ni trompette.
Je ne sais si cela a été proposé ailleurs mais cela n’est guère sympa pour celui qui essaie d’intervenir.
Il y a mieux à faire que de commencer par brider le projet.

Voilà une proposition* qui permet de limiter le nombre de formulaires identiques pour des onglets de même organisation.

*J’ai vu des ".RowSource" qui peuvent poser problème (titre de la demande).
Je ne me suis occupé que de l’ouverture des formulaires et des 2 contrôles "Listbox" tant il est aléatoire de proposer des méthodes avec un fichier si peu avancé.
Attention aux références qui pourraient bloquer ceux qui ne les ont pas (Outlook par exemple).

Si ce que Lone-wolf a proposé convient 😉, je ne dirais pas que j’ai pris du plaisir pour rien.
Je suis quand même sûr de ne pas trouver ici où là les macros que j’ai écrites.

Je te remercie "Si Alors, je viens de voir ton message. Je travaillais sur un autre projet.
Merciiiiii!!!

Compte Supprimé 979 · 23 Février 2017

Samson491 à dit:
Je te remercie "Si Alors, je viens de voir ton message. Je travaillais sur un autre projet.
Merciiiiii!!!

C'est vrai que là... c'est objectif

XL 2013 Erreur "Permission réfusée" 70 VBA

Samson491

XLDnaute Nouveau

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Samson491

XLDnaute Nouveau

Roland_M

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Compte Supprimé 979

Guest

Samson491

XLDnaute Nouveau

Si...

XLDnaute Barbatruc

Pièces jointes

JCGL

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Samson491

XLDnaute Nouveau

Compte Supprimé 979

Guest

Discussions similaires

XL 2013 Erreur "Permission réfusée" 70 VBA

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Compte Supprimé 979

Guest

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Compte Supprimé 979

Guest

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

Compte Supprimé 979

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency