Télécharger le classeur Excel sur le lecteur partagé

Question

J'ai créé un classeur maître qui rassemble les données d'autres classeurs Excel. Voici le chemin où se trouvent mes autres classeurs (dont les données doivent être collectées) et mon classeur principal sur le bureau. Voici le code que j'utilise.

' Change this to the path\folder location of the files.
MyPath = "C:\P&G\"

' Add a slash at the end of path if needed.
If Right(MyPath, 1) <> "\" Then
    MyPath = MyPath & "\"
End If

' If there are no Excel files in the folder, exit.
FilesInPath = Dir(MyPath & "*.xl*")
If FilesInPath = "" Then
    MsgBox "No files found"
    Exit Sub
End If

' Fill in the myFiles array with the list of Excel files in
' the search folder.
FNum = 0
Do While FilesInPath <> ""
    FNum = FNum + 1
    ReDim Preserve MyFiles(1 To FNum)
    MyFiles(FNum) = FilesInPath
    FilesInPath = Dir()
Loop

Lorsque je télécharge ce fichier sur un disque partagé, je donne le chemin suivant :

"\\151.208.196.138\ATS shared drive\F&HC\PSG OPS\New DDS Sheet"

Mais cela donne une erreur. Quelqu'un peut-il m'aider ?

Answer 1

L'UNC ( Convention de dénomination universelle ) est en fait l'emplacement complet du chemin d'accès au fichier. Il prend le format :

\\Server\Share\filepath

Remarquez le "\\" ?

Dans votre cas, ce sera

"\\151.208.196.138\ATS shared drive\F&HC\PSG OPS\New DDS Sheet"