Je souhaite obtenir dans Excel la liste de tous les répertoires ce trouvants dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
Je souhaite obtenir dans Excel la liste de tous les répertoires ce trouvants dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
Je souhaite obtenir dans Excel la liste de tous les répertoires ce trouvants dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" a écrit dans le message de
news:
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" <Francois.Racine@hotmail.com> a écrit dans le message de
news:
OVuAdXwEHHA.4620@TK2MSFTNGP04.phx.gbl...
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" a écrit dans le message de
news:
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" a écrit dans le message de
news:
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" <Francois.Racine@hotmail.com> a écrit dans le message de
news:
OVuAdXwEHHA.4620@TK2MSFTNGP04.phx.gbl...
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" a écrit dans le message de
news:
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" a écrit dans le message de
news:
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" <Francois.Racine@hotmail.com> a écrit dans le message de
news:
OVuAdXwEHHA.4620@TK2MSFTNGP04.phx.gbl...
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" a écrit dans le message de
news:
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
Ceci te donne la liste des fichiers contenus dans les sous-répertoires
(1er niveau) du répertoire
racine
mais pas les fichiers dans le répertoire racine lui-même
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String, Fil As Object
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:aTravail" ' choix du répertoire
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
For Each Fil In Fx.Files
A = A + 1
Range("A" & A) = Fil.Name
Next
Next
End If
End Sub
"François Racine" a écrit dans le message de
news:
Et quelles modifications devrais-je effectuer si je souhaitais obtenier
uniquement les noms de fichiers et pas les répertoires?
"MichDenis" a écrit dans le message de news:La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" a écrit dans le message
de
news:
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt
que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
Ceci te donne la liste des fichiers contenus dans les sous-répertoires
(1er niveau) du répertoire
racine
mais pas les fichiers dans le répertoire racine lui-même
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String, Fil As Object
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:aTravail" ' choix du répertoire
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
For Each Fil In Fx.Files
A = A + 1
Range("A" & A) = Fil.Name
Next
Next
End If
End Sub
"François Racine" <Francois.Racine@hotmail.com> a écrit dans le message de
news:
Oobp6TxEHHA.4380@TK2MSFTNGP04.phx.gbl...
Et quelles modifications devrais-je effectuer si je souhaitais obtenier
uniquement les noms de fichiers et pas les répertoires?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
el4yAiwEHHA.4832@TK2MSFTNGP06.phx.gbl...
La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" <Francois.Racine@hotmail.com> a écrit dans le message
de
news:
OVuAdXwEHHA.4620@TK2MSFTNGP04.phx.gbl...
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt
que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
Ceci te donne la liste des fichiers contenus dans les sous-répertoires
(1er niveau) du répertoire
racine
mais pas les fichiers dans le répertoire racine lui-même
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String, Fil As Object
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:aTravail" ' choix du répertoire
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
For Each Fil In Fx.Files
A = A + 1
Range("A" & A) = Fil.Name
Next
Next
End If
End Sub
"François Racine" a écrit dans le message de
news:
Et quelles modifications devrais-je effectuer si je souhaitais obtenier
uniquement les noms de fichiers et pas les répertoires?
"MichDenis" a écrit dans le message de news:La liste s'inscrira dans la colonne A:A de la feuille active
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "i:trousses" ' choix du répertoire
'On Error Resume Next
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
Set Sf = F.SubFolders
'Pour chaque répertoire de la collection répertoires
For Each Fx In Sf
A = A + 1
Range("A" & A) = Fx.Name
Next
End If
End Sub
"François Racine" a écrit dans le message
de
news:
Je souhaite obtenir dans Excel la liste de tous les répertoires ce
trouvants
dans la racine de i:trousses.
Comment puis-je faire?
J'ai tenté avec MSQUERY et le pilote ODBC Wbem mais il plante aussitôt
que
je tente de me connecter à CIMV2 ou ROOT.
Quelles sont les alternatives?
| Ce que je recherche ce sont les fichiers dans c:atravail
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String, Fil As Object
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:aTravail" ' choix du répertoire
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
For Each Fil In F.Files
A = A + 1
Range("A" & A) = Fil.Name
Next
End If
End Sub
| Ce que je recherche ce sont les fichiers dans c:atravail
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String, Fil As Object
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:aTravail" ' choix du répertoire
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
For Each Fil In F.Files
A = A + 1
Range("A" & A) = Fil.Name
Next
End If
End Sub
| Ce que je recherche ce sont les fichiers dans c:atravail
Sub test1()
Dim A As Integer
Dim Fs As Object, Files As Object, F As Object
Dim NomDossier As String, Fil As Object
Dim Sf As Object, Fx As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:aTravail" ' choix du répertoire
If NomDossier = "" Then Exit Sub
Set Dossier = Fs.GetFolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
Set F = Fs.GetFolder(NomDossier)
For Each Fil In F.Files
A = A + 1
Range("A" & A) = Fil.Name
Next
End If
End Sub