Autres [RESOLU] Partage d'une macro sur un réseau commun avec nom différent

[GV91]

Bonjour à tous,

Ci-joint une macro que j'ai réalisée.

Le fichier marche très bien avec le code sur mon ordinateur, mais lorsque je le partage sur le réseau commun de l'entreprise il ne trouve plus le chemin d'accès.

Je m'explique, mon réseau porte la lettre "H" celui du collaborateur 1 "J" celui du collaborateur 2 "K" etc..

J''aimerai savoir si il était possible de le partager de sorte à le rendre opérationnel pour tout le monde.

Si quelqu'un y voit une solution , merci d'avance

Sub importer()
'H:\02-Exploitation\03-Préparation\Manquants 1er tour\2021\01-Janvier 2021\ = cheminsource
' fichier source (0100 - Analyse_des_manquants_1er_tour 18.01.2021.xls)
' range ("A1") liste déroulante pour changer date et donc de fichier


Dim classeurSource As Workbook, classeurDestination As Workbook
fichierSource = Sheets("VISU Manquant 1er tour").Range("b1")

Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Application.ScreenUpdating = False


Set classeurSource = Workbooks.Open(Filename:="H:\02-Exploitation\03-Préparation\Manquants 1er tour\2021\01-Janvier 2021\0100 - Analyse_des_manquants_1er_tour " & fichierSource & ".xls")





Set classeurDestination = ThisWorkbook
    classeurSource.Sheets("Sheet").Range("AA:AH").Copy
    classeurDestination.Sheets("BdD").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False


                           
Application.CutCopyMode = False
    classeurSource.Close True
   
   
Application.DisplayAlerts = True
Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub

 

[Dudu2]

Bonjour,
Et tu ne peux pas demander à ton IT une lettre commune à tous les utilisateurs ?

 

[GV91]

Bonjour,
Et tu ne peux pas demander à ton IT une lettre commune à tous les utilisateurs ?

Bonjour,

J'ai peur du temps de réactivité mais j'ai finalement réussi à le rendre fonctionnel pour tous