Actions sur les fichiers d'un dossier en ligne

Bonjour,

Je souhaite réaliser des actions sur une liste de fichiers présents dans un répertoire accessible uniquement en ligne.

J'ai écrit la fonction suivante qui fonctionne très bien avec un dossier local mais je n'ai pas trouvé comment faire appel à un dossier en ligne.

Dans le code ci-dessous, c'est une fonction simple qui ne fait que compter le nombre de fichiers qui ont un certain nom dans le répertoire souhaité car ce n'est pas là que j'ai un mon souci

Sub MAFONCTION()
    Dim oFSO As Object
    Dim folder As Object
    Dim fich As Object
    Dim i As Integer

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set folder = oFSO.GetFolder("C:\Users\AAA123456\Dossier1\Sous Dossier1\Sous Sous Dossier")
    i = 1
    For Each fich In folder.Files
        If fich.Name Like "CM_M*" Then
            i = i + 1
        End If
    Next
    MsgBox (i - 1)
End Sub

J'ai essayé avec CreateObject("MSXML2.XMLHTTP"), de transformer le chemin du dossier en "\\monsite.xx.com@SSL\Dossier1\Sous Dossier1\Sous Sous Dossier" et d'autres choses mais sans succès, et je n'ai pas trouvé sur le forum ou ailleurs.

Merci d'avance pour votre aide.

Bonsoir,

A tout hasard car je ne peux pas tester, ne manque -t-il pas "HTTP:" ou "HTTPS:" devant le chemin ?

 Set folder = oFSO.GetFolder("http:\\monsite.xx.com@SSL\Dossier1\Sous Dossier1\Sous Sous Dossier")

ou

 Set folder = oFSO.GetFolder("https:\\monsite.xx.com@SSL\Dossier1\Sous Dossier1\Sous Sous Dossier")

Cdlt

Arturo83,

De ce que j'ai trouvé sur internet, il faut justement transformer le https en \\....@SSL

petit UP !

Petit UP pour la nouvelle année. Je suis toujours au point mort