Récupéré une partie de mon url

Version imprimable

Voici le code que j'ai trouvé pour extraire mes hyperliens d'une longue liste. De cette liste, j'aimerais bien avoir seulement le chiffre à la fin.

/index.php?page=4468462&id_partie=20999

De ceci j'aimerais récupérer seulement 20999
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub cmd_convert_Click() Dim Cell As Range Dim Ligne As Integer 'Récupère le numéro de la dernière ligne non vide Ligne = Columns(1).SpecialCells(xlCellTypeLastCell).Row 'Boucle sur les cellules de la colonne A For Each Cell In Range("G1:G" & Ligne) If Cell.Hyperlinks.Count > 0 Then _ Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address Next Cell End Sub
Merci de votre aide.

Si le nombre désiré se trouve toujours juste après le = final

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub cmd_convert_Click()
Dim Cell As Range
Dim Ligne As Integer, pos As Integer
Dim strHyp As String, Result As String
 
'Récupère le numéro de la dernière ligne non vide
Ligne = Columns(1).SpecialCells(xlCellTypeLastCell).Row
 
'Boucle sur les cellules de la colonne A
For Each Cell In Range("G1:G" & Ligne)
    If Cell.Hyperlinks.Count > 0 Then
        strHyp = Cell.Hyperlinks(1).Address
        pos = InStrRev(strHyp, "=")
        Result = Mid(strHyp, pos)  'le nombre récupéré
        Cell.Offset(0, 1) = strHyp
        Cell.Offset(0, 2) = Result
    End If
Next Cell
End Sub

21/08/2010, 06h38
diltech

C'est toujours le cas effectivement.

Merci infiniment.

Une petite coquille corrigée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub cmd_convert_Click()
Dim Cell As Range
Dim Ligne As Integer, pos As Integer
Dim strHyp As String, Result As String
 
'Récupère le numéro de la dernière ligne non vide
Ligne = Columns(1).SpecialCells(xlCellTypeLastCell).Row
 
'Boucle sur les cellules de la colonne A
For Each Cell In Range("G1:G" & Ligne)
    If Cell.Hyperlinks.Count > 0 Then
        strHyp = Cell.Hyperlinks(1).Address
        pos = InStrRev(strHyp, "=")
        Result = Mid(strHyp, pos+1)  'le nombre récupéré
        Cell.Offset(0, 1) = strHyp
        Cell.Offset(0, 2) = Result
    End If
Next Cell
End Sub