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