Implémentation URL de + 1 sous excel

crockmort Messages postés 3 Statut Membre -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je souhaiterais savoir comment implémenter une URL (celle-ci dessous) de + 1 sous excel :
http://toto.com/channels/film-1.html

Ex :

http://toto.com/channels/film-1.html
http://toto.com/channels/film-2.html
http://toto.com/channels/film-3.html
http://toto.com/channels/film-4.html

Merci par avance

3 réponses

  1. actuhebdo Messages postés 205 Date d'inscription   Statut Membre Dernière intervention   16
     
    Sans le html à la fin, tu peux mais avec, je ne pense pas.
    0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    sans VBA je ne vois pas
    une solution VBA (attention, le format de l'url est celui que tu as donné soit partie gauche + n° +.html)
    A mettre dans un module général et à utiliser comme une fonction excel
    ex A2 = IncUrl(A1)

    Public Function IncURL(u As String) As String
    Dim r As Long, s As Long, g As String, d As String
    r = InStr(u, "-")
    g = Left(u, r)
    d = Right(u, 5)
    s = 0
    r = r + 1
    While IsNumeric(Mid(u, r, 1))
      s = 10 * s + Mid(u, r, 1)
      r = r + 1
    Wend
    s = s + 1
    IncURL = g & s & d
    End Function

    bonne suite
    0
  3. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour à tous,

    ou sous forme de formule :
    =LIEN_HYPERTEXTE("http://toto.com/channels/film-" & LIGNE() & ".html ";"film-" & LIGNE())
    en ligne 1, sinon adapter. A recopier vers le bas.

    eric
    Jamais tu ne répondras à un mp non sollicité...
    Bon, ça c'est fait.
    0