IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

importer des liens hypertextes depuis excel


Sujet :

Access

  1. #1
    Nouveau Candidat au Club
    Inscrit en
    Mars 2007
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Mars 2007
    Messages : 1
    Points : 1
    Points
    1
    Par défaut importer des liens hypertextes depuis excel
    Bonjour,

    Comment importer des liens hypertextes d'une feuille excel vers une nouvelle table access sans perdre le chemin d'accès en route ?
    Il me semble de toutes façons qu'access n'importe pas directement mes liens excel en tant que tels : l'assistant d'importation ne me laisse pas le choix du format, qui se règle automatiquement en texte, et pas en lien hypertexte. Au final, une fois le format rétabli en lien hypertexte, évidemment, access ne sait plus où aller chercher mes documents...

    Y a-il moyen de contourner le problème par un code VBA ?

    merci à tous

  2. #2
    Membre expert
    Avatar de mout1234
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    2 210
    Détails du profil
    Informations personnelles :
    Âge : 55
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Novembre 2006
    Messages : 2 210
    Points : 3 228
    Points
    3 228
    Par défaut
    Salut,

    En effet l'importation transforme ton lien en texte, en ne gardant que la partie visible. Il faut donc espérer que tes liens ne sont pas customisés, affichant un autre texte que celui correspondant au chemin du fichier.

    Pour executer le lien correspondant, tu peux faire ainsi

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Function ap_Ouvrelien(ByVal vLien As Variant)
    On Error Resume Next
     
    If Nz(vLien, "") <> "" Then
        Application.FollowHyperlink vLien
    End If
     
    End Function

Discussions similaires

  1. Réponses: 4
    Dernier message: 07/06/2012, 00h29
  2. [OL-2007] Copier/coller liens hypertext depuis Excel
    Par Adri687 dans le forum Outlook
    Réponses: 1
    Dernier message: 02/04/2012, 10h45
  3. Creer des liens hypertextes depuis des images
    Par bpm_180 dans le forum VBA Word
    Réponses: 3
    Dernier message: 21/03/2009, 00h46
  4. Importer des liens hypertextes
    Par edsaar dans le forum Access
    Réponses: 2
    Dernier message: 25/11/2007, 09h02
  5. Aspect des liens hypertextes
    Par flzox dans le forum Mise en forme
    Réponses: 5
    Dernier message: 04/09/2004, 15h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo