Est-t'il possible d'afficher toute l'arboresence d'un lecteur ? Et si ce
n'est pas possible dans excel, etes-vous au courant si on peut le faire sur
un autre logiciel tel que word (sachant pertinemment que nous sommes sur un
forum excel).
Merci
--
Cordialement,
Stéphane Loureiro
AFIB FORMATION afib.formation@wanadoo.fr
Tel : 03.44.80.17.09
Fax : 03.44.80.20.24
Port : 06.81.65.79.96
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonsoir,
Pourrais-tu préciser ce que tu entends par là ? Si c'est pour choisir un sous-répertoire ou un fichier particulier, tu as plein de solutions chez FS. Parmi celles-ci : http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/BrowseForFolderOrFileSansAPI.txt
Pour Word, je ne doute pas que va passer faire son tour ;o)
@+ FxM
steph a écrit:
Bonjour,
Est-t'il possible d'afficher toute l'arboresence d'un lecteur ? Et si ce n'est pas possible dans excel, etes-vous au courant si on peut le faire sur un autre logiciel tel que word (sachant pertinemment que nous sommes sur un forum excel).
Merci
-- Cordialement,
Stéphane Loureiro AFIB FORMATION Tel : 03.44.80.17.09 Fax : 03.44.80.20.24 Port : 06.81.65.79.96
Bonsoir,
Pourrais-tu préciser ce que tu entends par là ?
Si c'est pour choisir un sous-répertoire ou un fichier particulier, tu
as plein de solutions chez FS. Parmi celles-ci :
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/BrowseForFolderOrFileSansAPI.txt
Pour Word, je ne doute pas que M@rina va passer faire son tour ;o)
@+
FxM
steph a écrit:
Bonjour,
Est-t'il possible d'afficher toute l'arboresence d'un lecteur ? Et si ce
n'est pas possible dans excel, etes-vous au courant si on peut le faire sur
un autre logiciel tel que word (sachant pertinemment que nous sommes sur un
forum excel).
Merci
--
Cordialement,
Stéphane Loureiro
AFIB FORMATION afib.formation@wanadoo.fr
Tel : 03.44.80.17.09
Fax : 03.44.80.20.24
Port : 06.81.65.79.96
Pourrais-tu préciser ce que tu entends par là ? Si c'est pour choisir un sous-répertoire ou un fichier particulier, tu as plein de solutions chez FS. Parmi celles-ci : http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/BrowseForFolderOrFileSansAPI.txt
Pour Word, je ne doute pas que va passer faire son tour ;o)
@+ FxM
steph a écrit:
Bonjour,
Est-t'il possible d'afficher toute l'arboresence d'un lecteur ? Et si ce n'est pas possible dans excel, etes-vous au courant si on peut le faire sur un autre logiciel tel que word (sachant pertinemment que nous sommes sur un forum excel).
Merci
-- Cordialement,
Stéphane Loureiro AFIB FORMATION Tel : 03.44.80.17.09 Fax : 03.44.80.20.24 Port : 06.81.65.79.96
steph
En faîte, si je souhaites voir l'arboresence de C: , je souhaiterais voir tous les fichier qui sont dedans.
Merci
"FxM" a écrit dans le message news: u6XeOP#
Bonsoir,
Pourrais-tu préciser ce que tu entends par là ? Si c'est pour choisir un sous-répertoire ou un fichier particulier, tu as plein de solutions chez FS. Parmi celles-ci :
Pour Word, je ne doute pas que va passer faire son tour ;o)
@+ FxM
steph a écrit:
Bonjour,
Est-t'il possible d'afficher toute l'arboresence d'un lecteur ? Et si ce n'est pas possible dans excel, etes-vous au courant si on peut le faire sur
un autre logiciel tel que word (sachant pertinemment que nous sommes sur un
forum excel).
Merci
-- Cordialement,
Stéphane Loureiro AFIB FORMATION Tel : 03.44.80.17.09 Fax : 03.44.80.20.24 Port : 06.81.65.79.96
En faîte, si je souhaites voir l'arboresence de C: , je souhaiterais voir
tous les fichier qui sont dedans.
Merci
"FxM" <fxmanceaux@chello.fr> a écrit dans le message news:
u6XeOP#nDHA.3288@tk2msftngp13.phx.gbl...
Bonsoir,
Pourrais-tu préciser ce que tu entends par là ?
Si c'est pour choisir un sous-répertoire ou un fichier particulier, tu
as plein de solutions chez FS. Parmi celles-ci :
En faîte, si je souhaites voir l'arboresence de C: , je souhaiterais voir tous les fichier qui sont dedans.
Merci
"FxM" a écrit dans le message news: u6XeOP#
Bonsoir,
Pourrais-tu préciser ce que tu entends par là ? Si c'est pour choisir un sous-répertoire ou un fichier particulier, tu as plein de solutions chez FS. Parmi celles-ci :
Est-t'il possible d'afficher toute l'arboresence d'un lecteur ? Et si ce n'est pas possible dans excel, etes-vous au courant si on peut le faire sur
un autre logiciel tel que word (sachant pertinemment que nous sommes sur un
forum excel).
Merci
-- Cordialement,
Stéphane Loureiro AFIB FORMATION Tel : 03.44.80.17.09 Fax : 03.44.80.20.24 Port : 06.81.65.79.96
Daniel.j
Bonjour, Crée un userform avec 2 listbox l'une nommé List1 et l'autre List2 ajoute un bouton (CommandButton1_Click) en y affection cette macro : ================================= Private Sub CommandButton1_Click() Dim fso As Scripting.FileSystemObject Dim fd As Scripting.Folder Dim fl As Scripting.File Dim fdCur As Scripting.Folder Dim sFolderName As String ' Initialisation du nom du dossier sFolderName = InputBox("Nom du dossier", , "c:") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(sFolderName) Then Set fd = fso.GetFolder(sFolderName) 'Liste les sous-dossiers For Each fdCur In fd.SubFolders List1.AddItem fdCur.Name Next fdCur 'Liste les fichiers For Each fl In fd.Files List2.AddItem fl.Name Next fl Else MsgBox "Dossier non trouvé!" End If End Sub =================================== Ne pas oublier d'ajouter une référence à "Microsoft Scripting Runtime" depuis le menu Projet à Références de l'éditeur Visual Basic.
Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"steph" a écrit dans le message de news:
| Bonjour, | | Est-t'il possible d'afficher toute l'arboresence d'un lecteur ? Et si ce | n'est pas possible dans excel, etes-vous au courant si on peut le faire sur | un autre logiciel tel que word (sachant pertinemment que nous sommes sur un | forum excel). | | Merci | | -- | Cordialement, | | Stéphane Loureiro | AFIB FORMATION | Tel : 03.44.80.17.09 | Fax : 03.44.80.20.24 | Port : 06.81.65.79.96 | | |
Bonjour,
Crée un userform avec 2 listbox l'une nommé List1 et l'autre List2
ajoute un bouton (CommandButton1_Click) en y affection cette macro :
================================= Private Sub CommandButton1_Click()
Dim fso As Scripting.FileSystemObject
Dim fd As Scripting.Folder
Dim fl As Scripting.File
Dim fdCur As Scripting.Folder
Dim sFolderName As String
' Initialisation du nom du dossier
sFolderName = InputBox("Nom du dossier", , "c:")
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(sFolderName) Then
Set fd = fso.GetFolder(sFolderName)
'Liste les sous-dossiers
For Each fdCur In fd.SubFolders
List1.AddItem fdCur.Name
Next fdCur
'Liste les fichiers
For Each fl In fd.Files
List2.AddItem fl.Name
Next fl
Else
MsgBox "Dossier non trouvé!"
End If
End Sub
=================================== Ne pas oublier d'ajouter une référence à "Microsoft Scripting Runtime"
depuis le menu Projet à Références de l'éditeur Visual Basic.
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"steph" <s.loureiro@free.fr> a écrit dans le message de news:
efWOnj9nDHA.2592@TK2MSFTNGP10.phx.gbl...
| Bonjour,
|
| Est-t'il possible d'afficher toute l'arboresence d'un lecteur ? Et si ce
| n'est pas possible dans excel, etes-vous au courant si on peut le faire sur
| un autre logiciel tel que word (sachant pertinemment que nous sommes sur un
| forum excel).
|
| Merci
|
| --
| Cordialement,
|
| Stéphane Loureiro
| AFIB FORMATION afib.formation@wanadoo.fr
| Tel : 03.44.80.17.09
| Fax : 03.44.80.20.24
| Port : 06.81.65.79.96
|
|
|
Bonjour, Crée un userform avec 2 listbox l'une nommé List1 et l'autre List2 ajoute un bouton (CommandButton1_Click) en y affection cette macro : ================================= Private Sub CommandButton1_Click() Dim fso As Scripting.FileSystemObject Dim fd As Scripting.Folder Dim fl As Scripting.File Dim fdCur As Scripting.Folder Dim sFolderName As String ' Initialisation du nom du dossier sFolderName = InputBox("Nom du dossier", , "c:") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(sFolderName) Then Set fd = fso.GetFolder(sFolderName) 'Liste les sous-dossiers For Each fdCur In fd.SubFolders List1.AddItem fdCur.Name Next fdCur 'Liste les fichiers For Each fl In fd.Files List2.AddItem fl.Name Next fl Else MsgBox "Dossier non trouvé!" End If End Sub =================================== Ne pas oublier d'ajouter une référence à "Microsoft Scripting Runtime" depuis le menu Projet à Références de l'éditeur Visual Basic.
Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"steph" a écrit dans le message de news:
| Bonjour, | | Est-t'il possible d'afficher toute l'arboresence d'un lecteur ? Et si ce | n'est pas possible dans excel, etes-vous au courant si on peut le faire sur | un autre logiciel tel que word (sachant pertinemment que nous sommes sur un | forum excel). | | Merci | | -- | Cordialement, | | Stéphane Loureiro | AFIB FORMATION | Tel : 03.44.80.17.09 | Fax : 03.44.80.20.24 | Port : 06.81.65.79.96 | | |
