pheonix00fr
XLDnaute Junior
Bonjour à tous, j'ai un fichier qui me sert de base de données, il est alimenté par un dossier contenant plusieurs fichier Excel, actuellement il est en local sur mon pc, mais je voudrais le placer sur un serveur et pouvoir l'utiliser de différent postes sur le réseau. J'ai modifié le ChrDir "Local" par \\serveur\Dossier\, mais quand je lance la macro il y a une recherche mais pas de résultat.
J'ai pensé a ChrDrive mais la lettre du lecteur réseau change en fonction du PC.
Extrait de la macro:
Range("b5:g200").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Dim f As String, myf As Worksheet, A As Workbook
Set A = ActiveWorkbook
ChDir "\\serveur\Partage\"
Application.ScreenUpdating = False
Set myf = A.Sheets(1)
f = Dir("DDE*.xls")
Do While Len(f) > 0
Workbooks.Open (f)
Merci d'avance.
J'ai pensé a ChrDrive mais la lettre du lecteur réseau change en fonction du PC.
Extrait de la macro:
Range("b5:g200").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Dim f As String, myf As Worksheet, A As Workbook
Set A = ActiveWorkbook
ChDir "\\serveur\Partage\"
Application.ScreenUpdating = False
Set myf = A.Sheets(1)
f = Dir("DDE*.xls")
Do While Len(f) > 0
Workbooks.Open (f)
Merci d'avance.