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

GV91

XLDnaute Junior
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

VB:
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
 
Dernière édition:

Statistiques des forums

Discussions
311 733
Messages
2 082 008
Membres
101 864
dernier inscrit
elrecruiter