Discussion :

[Kestion100]

Bonjour,
Je souhaite récupérer dans Excel la liste des adresses internets des onglets ouverts dans Firefox.

Est-possible?


MERCI

[mfoxy]

Bonjour,

À ma connaissance, il n existe pas de com FF via vba.
par contre à partir de IE cela serait possible.

Bat

[Kestion100]

J'ai essayé de regarder sur internet, en effet ça n'a pas l'air trop possible.

J'ai juste vu que FF stocke ces infos dans des fichiers sql....

[Kestion100]

Par ce biais, en copiant le fichier en question sur mon bureau et avec un code trouvé sur un forum je suis arrivé à extraire 5 adresses mails de mon historique....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Function gst(Chaine$) As String
    Dim i As Long, t As String
    For i = 1 To Len(Chaine)
        t = Mid$(Chaine, i, 1)
        Select Case Asc(t)
        Case 32, 37, 38, 45, 46 To 58, 61, 63, 65 To 90, 92, 95, 97 To 122
        gst = gst & t
        End Select
    Next
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub del_chrs()
Dim C As Range
For Each C In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 2)
On Error Resume Next
C.Value = gst(C.Text)
Next
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub rpvs()
Range("A1:A" & [A65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Value = "µµ"
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub nettoyage()
[A1] = "FILTRE"
[A1].AutoFilter Field:=1, Criteria1:="<>*http://*", Operator:=xlAnd
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
      Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
ActiveSheet.ShowAllData
[A1].AutoFilter Field:=1, Criteria1:="=*pagead2.googlesyndication.com*", Operator:=xlAnd
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
      Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
ActiveSheet.ShowAllData
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub traitement()
Application.ScreenUpdating = False
Application.EnableEvents = False
    del_chrs
    rpvs
    nettoyage
    mise_en_forme
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub mise_en_forme()
Dim rc As Range
Dim f As Long
f = [A65536].End(xlUp).Row
Range("A1").EntireColumn.Insert
With Range("A2")
    .FormulaR1C1 = "=MID(RC[1],SEARCH(""http://w"",RC[1]),9^9)"
    .AutoFill Destination:=Range("A2:A" & f)
End With
Set rc = Range("A2:A" & f)
rc.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Columns(1).Columns.AutoFit
rc.Value = rc.Value
Range("B1:IV65536").Clear
With Range("A1")
    .Value = "LIENS ISSUS DE L'HISTORIQUE"
    .Font.Bold = True
    .BorderAround , xlThin, 15
End With
End Sub

[Kestion100]

Donc rien en direct et 5 adresses sorties de mon historique ne me semble pas être exhaustif (il me semble en plus que ce sont de vieilles consultations de page???)

[Kestion100]

Je suis parti du fichier:

places.sqlite