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
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: