Erreur 76

Bonjour,

concernant la macro ci-dessous, elle marche pour tous les utilisateurs sauf User = "223cema", j'ai donc neutraliser le code qui restreint les utilisateusr , elle peut lancer la maccro mais après il y a un message d'erreur 76 comme quoi l'accès lui est refusé, or on travail tous sur le même fichier dans le même répertoire, et elle a bien accès puisque qu'elle travail dedans

Quelqu'un aurait une idée ?

Merci,

Sub chargement_avpcr()

Dim date_fin As Date
Dim date_systeme As Date
date_systeme = Date
date_fin = "30/04/2019"
If date_systeme > date_fin Then GoTo line1000

'User = Environ("username")

'If user = "frjmbressy" Or user = "frahimbert" Then
'If User = "223jebr" Or User = "223anhi" Or User = "223auzi" Or User = "223cema" Or User = "223clle" Or User = "223chco" Or User = "FR_Celine-Malecki" Then

'effacer les donnees de la feuille AVPCR
Sheets("AVPCR").Select
'Cells.Select:  Selection.ClearContents

Cells.Select
    Selection.Delete Shift:=xlUp
    Selection.NumberFormat = "General"

'Chargement du fichier avpcr
'ouverture du fichier
ChDir "N:\GP\suivi brut pour plannification"
fichier_expedition = Application.GetOpenFilename("fichier excel (*.xls), *.xls", , "Sélectionnez le fichier 3 besoin expedition (AVPCR)...")
adresse_fichier_3_fichier_expedition_courte = Split(fichier_expedition, "\")(UBound(Split(fichier_expedition, "\")))

Workbooks.Open fichier_expedition

'vider le presse papier
Application.CutCopyMode = False

Cells.Select: Selection.Copy

'fermer le fichier
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

'coller les donnees
Sheets("produit achat brut").Select
Sheets("AVPCR").Select

Range("A1").Select

MsgBox ("appuyer sur entrer pour continuer")

ActiveSheet.Paste: Range("A1").Select

'modifier l'ordre des dates
Call modif_ordre_date

ActiveWorkbook.RefreshAll

Sheets("produit achat brut").Select
Range("M7:O1048576").Select:    Selection.ClearContents
Range("M7").Select

ActiveWorkbook.Save

'vider le presse papier
Application.CutCopyMode = False

'recuperer les anciens commentaires
'Call ajout_commentaire

'Else

'MsgBox "Pas d'autorisation pour lancer l'importation AVPCR", vbCritical
'End If

line1000:
End Sub

Bonjour,

Pour ma part, je ne comprends pas les 2 et 3e lignes de ta procédure (les 2 If) !...

Quel est le but ?

Cdlt.

Quel est le but ?

Le If concerne la date pour ouvrir le répertoire, sinon ça ne va pas chercher le fichier, ça marche bien.

Cette maccro marche bien, c'est juste qu'un utilisateur, dans les même conditions que les autres, ne peut pas la lancer.

Il y a un message d'erreur 76 pas accès, or cette m^me personne a bien accès au répertoire puisque le fichier est dedans

Re,

Oups !..

Les 2 If avec User.

Cdlt.

Les 2 If avec User.

c'était pour limiter les utilisateurs qui peuvent lancer la maccro. Mais j'ai neutraliser le code avec des guillemets car sinon un utilisateur ne pouvait pas lancer la maccro (bien que sont user soit bien rentré dans le code). Maintenant il peut mais ça met le message d'erreur 76, or pour tous les autres ça marche

En faite, il s'agissait d'un problème de réseaux.

L'utilisateur avait bien accès au répertoire commun mais avec un chemin d'accès différent, en lui mettant le chemin d'accès codé dans la maccro en lien sur sont bureau tout fonction

Cordialement