Nettoyer des liens hypertexte à la volée

Ces articles pourraient également vous intéresser...

11 réponses

  1. MARICHAL Christine dit :

    Bonjour Hervé, (Christine CCI il y a longtemps !)
    J’ai triché, j’ai résolu mon problème différemment :

    Longueur = Len(Me.Mail.Value)
    Longueur = Longueur – 9
    Longueur = Longueur / 2
    strdest = Left(Me.Mail.Value, Longueur)
    (Le 9 correspondant aux deux # et au “mailto:”
    Ma foi, ça a l’air de fonctionner…

    • Hervé Inisan dit :

      Salut Christine ! :)
      Effectivement, ça marche, mais pour des adresses mail uniquement. Dans le cas d’une adresse HTTP, le préfixe n’est plus le même, et la valeur 9 sera incorrecte.
      Mais si l’usage est uniquement “Mail”, c’est parfait !

  2. Un immense merci pour cette fonction qui comble une lacune d’Access qui me gênait depuis fort longtemps.

  3. Hervé Inisan dit :

    otam > :) Content que ça fonctionne.

  4. otam dit :

    La focale est parfaitement ajustée à la longueur du nez. Cela fonctionne à merveille. Merci

  5. Hervé Inisan dit :

    otam > A vue de nez, il faudrait que le lien inséré soit sous cette forme : titre#chemin# comme dans le 3ème exemple de l’article.

  6. otam dit :

    Bonjour,

    Je ne suis pas certain d’être dans la bonne rubrique, mais certainement pas très loin. Je m’inspire beaucoup de votre site ; vous le verrez ci-dessous dans les quelques lignes de code que je vous joins.

    Problème :
    Je gère un entrepôt logistique rempli de palettes. Lorsqu’une palette sort du dépôt, j’édite un bon de livraison (imprimer plusieurs PDF à partir d’un seul état (vous connaissez?)), l’enregistrement part dans une table Palettes_Archives et je met le champ BL à jour avec le chemin du fichier du bon de livraison.

    Voici un bout du code :
    ‘ Nom de base du fichier PDF à créer
    Jour = Format(Now, “YYYYMMDDHHMM”)
    strFichier = “C:BaseBL” & Format(Now, “YYYYMMDDHHMM”) & ” BL {0} – {1} {2}.pdf”
    strFichierZ = “\SERVERBaseBL” & Format(Now, “YYYYMMDDHHMM”) & ” BL {0} – {1} {2}.pdf”
    ‘ Ouvrir la liste des clients
    Set rst = CurrentDb.OpenRecordset(“Clients”, dbOpenSnapshot)

    ‘ Parcourir toute la liste
    While Not rst.EOF
    Garcia = rst(“CodeClient”)
    Zorro = DCount(“[Sortie]“, “Palettes”, “[CodeClient] = ” & Garcia & “”)
    If Zorro <> 0 Then

    ‘ Le nom du fichier varie en fonction du client
    strFichierPDF = StringFormat(strFichier, _
    Format(rst(“CodeClient”), “000″), _
    rst(“Abréviation”), _
    rst(“CodePostal”))
    strFichierPDFZ = StringFormat(strFichierZ, _
    Format(rst(“CodeClient”), “000″), _
    rst(“Abréviation”), _
    rst(“CodePostal”))
    ‘ Construire le filtre
    strFiltre = “[CodeClient] = ” & rst(“CodeClient”)

    ‘ Imprimer l’état en le filtrant sur le client concerné
    PrintAsPDF strFichierPDF, strEtat, strFiltre
    ‘C’EST ICI QU’IL FAUT METTRE A JOUR LA TABLE ARCHIVE AVEC LE NOM DE FICHIER DU BL EN LIEN HYPERTEXTE
    DoCmd.RunSQL “UPDATE Palettes_Archives INNER JOIN Chargement ON Chargement.Palette = Palettes_Archives.Palette SET Palettes_Archives.BL = ‘” & strFichierPDFZ & “‘”

    Tout marche très bien, sauf que, lorsque je clique sur le lien hypertexte, rien ne se passe. Si je le copie et le recolle, tout va bien…Sauf que ça m’énerve!

    Avez-vous une idée ?

    PS : Merci et bravo

  7. Hervé Inisan dit :

    JackBxl > Je n’utilise pas Picasa, difficile de répondre. Mais quels sont les 2 liens affichés, selon les cas ?

  8. JackBxl dit :

    J’enrichis depuis des années une DB avec des liens hypertexte.
    Ce sont les chemins de photos mise sur le serveur
    Les liens sont créés en glissant simplement la vignette de la photo vue dans Picasa3.
    C’est excessivement rapide et facile.
    Le chemin est le chemin absolu jusqu’à la racine du serveur.
    mediastoreaatl-broh2-meopphotos_ctrlobsbur80128_P01.JPG

    Par contre si je copie l’adresse et colle dans mon formulaire (ou table) je n’ai que le chemin qui débute sous la lettre sous laquelle le dossier est monté.

    Je ne comprends pas l’origine de cette différence, et comme parfois le glissé/coller ne fonctionne pas je suis un peu inquiet de trop me fier à cette technique.

    Cela concerne des milliers de photos qui illustrent des bases de données Access 2003 mais qui migre aussi en Access 2010
    Merci

  9. JackBxl dit :

    J’espère arriver grâce a ces pages, mais suis nul en VBA
    J’ai 4500 liens dans une table qui pointent vers des photos. Le chemin a changé (merci l’admin ! )
    Si j’édite le lien visible, le véritable lien est inchangé. (le pop-up le confirme) Une pirouette en modifiant le format du champ vers texte et retour permettrait de se retrouver ????
    Je ferai le point plus tard

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Vous pouvez utiliser ces balises et attributs HTML : <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code class="" title="" data-url=""> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre class="" title="" data-url=""> <span class="" title="" data-url="">