Fichiers sur serveur

Question

Voila, j'ai des fichiers word sur un serveur, et j'aimerais les ouvrir, mais le problème est que je n'y arrive, je ne sais pas comment mettre le chemin du fichier.
Le code :

Dim Chemin As String
Dim i As Long
Dim j As Long


On Error GoTo erreur


Set fs = Application.FileSearch
Set Wd = CreateObject("Word.Application")
j = 0


With fs
    .Lookin = "Le serveur en question"
    .SearchSubFolders = True
    .FileName = "*.doc"
    
    For i = 1 To .FoundFiles.Count
      j = j + 1
      Chemin = .FoundFiles(i)
      With Wd
        .Visible = True
        .Documents.Open Chemin
        .Activate
      End With
        Next i
        
    
End With




Exit Sub


erreur:
Call Wd.Quit
MsgBox "Problème sur le fichier : " & Chemin, vbInformation, "Problème"

aaliyan · Answer

Y a personne qui peut m'aider?

cs_MPi · Answer

Essaie ceci pour voir
With fs
    .Lookin = "//Le serveur en question"
ou peut-être
    .Lookin = "//Le serveur en question\*.*"

et change Le serveur en question par le nom du serveur

MPi

Fichiers sur serveur

2 réponses

Votre réponse

Discussions similaires