favoris

P.Muzellec nous a dit :

Bonjour,
Je voudrai savoir s'il est possible d'importer les
favoris dans un tableau excel, afin de gérer les mises à
jours et les lister automatiquement. j'ai une liste de
300 liens environs classées par thèmes.

merci
p@t

Salut
tu peux d'abord faire une liste au format texte que t importe ensuite dans
excel tout est explique ici
http://support.microsoft.com/?scid=kb;fr;183436

--
Laurent [MVP IE www.technicland.com - http://faq.ie6.free.fr]
Internet Trucs de Pros : http://www.technicland.com/infolivre.php3
Power IE6 : http://www.technicland.com/powerie6.php3
RadioWeb V3: http://www.technicland.com/radioweb.php3

Bonjour P.Muzellec,


Les favoris que l'on retrouve dans internet explorer sont regroupés dans un répertoire sur ton disque dur. Son chemin
varie selon les systèmes d'exploitation... mais si tu veux obtenir le contenu de ce répertoire, tu devrais trouver un
certain nombre de procédures sur Exelabo à ce sujet.


En attendant voici une procédure capable d'extraire toutes les adresses contenu dans le répertoire Favoris et de ses
sous-répertoires si désirés.

Si tu désires obtenir la même liste avec le chemin complet de chacune de ces adresses contenues dans le répertoire :

Tu trouves cette ligne de code :
dctDict.Add filFile.Name, filFile.Name

et tu remplaces par

dctDict.Add filFile.path, filFile.path


' La bibliothèque Microsoft Scripting Runtime
' doit être coché dans OutilsRéférences...

'---------------------------------------------------------------
'utilise un objet Dictionary pour récupérer la liste des fichiers
'd'un répertoire et, en option, de ses sous-répertoires


Function GetFiles(strPath As String, _
dctDict As Scripting.Dictionary, _
Optional blnRecursive As Boolean) As Boolean
'David Shank, Microsoft Corporation
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office09072000.asp

' This procedure returns all the files in a directory into
' a Dictionary object. If called recursively, it also returns
' all files in subfolders.
' La bibliothèque Microsoft Scripting Runtime
' doit être coché dans OutilsRéférences...

Dim fsoSysObj As Scripting.FileSystemObject
Dim fdrFolder As Scripting.Folder
Dim fdrSubFolder As Scripting.Folder
Dim filFile As Scripting.File

' Return new FileSystemObject.
Set fsoSysObj = New Scripting.FileSystemObject

On Error Resume Next
' Get folder.
Set fdrFolder = fsoSysObj.GetFolder(strPath)
If Err <> 0 Then
' Incorrect path.
GetFiles = False
GoTo GetFiles_End
End If
On Error GoTo 0

' Loop through Files collection, adding to dictionary.
For Each filFile In fdrFolder.Files
'récupère nom et chemin complet
dctDict.Add filFile.Name, filFile.Name
Next filFile

' If Recursive flag is true, call recursively.
If blnRecursive Then
For Each fdrSubFolder In fdrFolder.SubFolders
GetFiles fdrSubFolder.Path, dctDict, True
Next fdrSubFolder
End If

' Return True if no error occurred.
GetFiles = True

GetFiles_End:
Exit Function
End Function

'---------------------------------------------------------------
' You can use the following procedure to test the GetFiles procedure.
' This procedure creates a new Dictionary object, passes it to the
' GetFiles procedure, then prints every file in the strDirPath directory
' and every file in any subdirectories to the immediate window.

Sub TestGetFiles()
' Call to test GetFiles function.

Dim dctDict As Scripting.Dictionary
Dim varItem As Variant
Dim strDirPath As String

'à déterminer en fonction de ton système d'opération...
strDirPath = "C:Documents and SettingsDenisFavoris"

' Create new dictionary.
Set dctDict = New Scripting.Dictionary
' Call recursively, return files into Dictionary object.
If GetFiles(strDirPath, dctDict, True) Then
Sheets.Add
'récupère directement le tableau des items du dictionaire
'dans la colonne A de la nouvelle feuille
Range("A1:A" & dctDict.Count).Value = _
Application.Transpose(dctDict.Items)
End If
End Sub
'---------------------------------------------------------------


Salutations!








"P.Muzellec" <pmuzellec@noviruswanadoo.fr> a écrit dans le message de news:O1iQwHQrDHA.1488@TK2MSFTNGP12.phx.gbl...
Bonjour,
Je voudrai savoir s'il est possible d'importer les favoris dans un tableau
excel, afin de gérer les mises à jours et les lister automatiquement.
j'ai une liste de 300 liens environs classées par thèmes.

merci
p@t

merci à tous
P@t

Bonjour.

Une autre façon de procéder.

Sub ListeFile()
Dim ObjFolder, WS As Worksheet, NbItem As Long
Dim MaCol As New Collection, I As Long
Set ObjFolder = CreateObject("Shell.Application").NameSpace(6)
Populate ObjFolder, MaCol, True
NbItem = MaCol.Count
Set WS = Worksheets.Add
For I = 1 To NbItem
WS.Range("A" & I).Value = MaCol.Item(I)
Next I
WS.Range("A1:A" & NbItem).Columns.AutoFit
Set WS = Nothing
Set ObjFolder = Nothing
End Sub
Function Populate(ObjFolder, MaCol As Collection, Optional Recurs As Boolean)
Dim FolderItem, ObjFolderChild
For Each FolderItem In ObjFolder.Items
If FolderItem.IsFolder Then
Set ObjFolderChild = FolderItem.GetFolder
Populate ObjFolderChild, MaCol, True
Set ObjFolderChild = Nothing
Else
MaCol.Add FolderItem.Path
End If
Next FolderItem
Set FolderItem = Nothing
End Function

Alain CROS.

"P.Muzellec" <pmuzellec@noviruswanadoo.fr> a écrit dans le message de news: O1iQwHQrDHA.1488@TK2MSFTNGP12.phx.gbl...

Bonjour,
Je voudrai savoir s'il est possible d'importer les favoris dans un tableau
excel, afin de gérer les mises à jours et les lister automatiquement.
j'ai une liste de 300 liens environs classées par thèmes.

merci
p@t

Bonjour;
Chemin des favoris:
Private Declare Function SHGetFolderPath Lib "ShFolder" Alias _
"SHGetFolderPathA" (ByVal hWnd As Long, ByVal CSIDL As Long _
, ByVal TOKENHANDLE As Long, ByVal FLAGS As Long _
, ByVal lpPath As String) As Long

Sub FavorisPath()
Dim sPath As String
sPath = String(260, 0)
SHGetFolderPath 0, &H6, 0, 0, sPath
sPath = Left(sPath, InStr(sPath, vbNullChar) - 1)
' ensuite, tu peux utiliser fso... ou autre

End Sub

MP

"P.Muzellec" <pmuzellec@noviruswanadoo.fr> a écrit dans le message de
news:O1iQwHQrDHA.1488@TK2MSFTNGP12.phx.gbl...

Bonjour,
Je voudrai savoir s'il est possible d'importer les favoris dans un tableau
excel, afin de gérer les mises à jours et les lister automatiquement.
j'ai une liste de 300 liens environs classées par thèmes.

merci
p@t