lister dans un ficher Excell la présence d'un dossier sur tout les postes du reseau.

[sg-alex]

Bonjour,

je souhaiterais lister dans un fichier Excell (VBA) la présence d'un dossier présent sur tout les postes de mon réseau.
Et si possible récupérer la date de création et la mettre en colonne B par exemple.

j'ai déja un bout de code qui ne focntionne pas ...

Sub ListeRep()
  Repertoire = "[IP]\c$\systrans"
  [A:A].ClearContents
  NomRep = Dir(Repertoire, vbDirectory)
  i = 2
  Do While NomRep < transoptimum > "\\[IP]\c$\systrans\"
     If NomRep < transoptimum > "." And NomRep < transoptimum > ".." Then
        If (GetAttr(Repertoire & NomRep) And vbDirectory) = vbDirectory Then
           Cells(i, 1) = NomRep
           i = i + 1
        End If
     End If
     NomRep = Dir
      Loop
End Sub

 

[sg-alex]

up

 

[Valdun]

essaye avec la commande net view ça simplifiera peut être, balance le tout dans un fichier texte et via vba récupère les infos du fichier txt.
cell1 = ligne1
cell 2 = ligne2
etc...