Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Nouveau Membre du Club
    Homme Profil pro Franck
    Responsable qualité
    Inscrit en
    mars 2012
    Messages
    139
    Détails du profil
    Informations personnelles :
    Nom : Homme Franck
    Localisation : France

    Informations professionnelles :
    Activité : Responsable qualité
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2012
    Messages : 139
    Points : 29
    Points
    29

    Par défaut Modification chemin des liens hypetext liés à une base ACCESS

    Bonjour,
    Je stock dans un répertoire des fichiers qui sont liés à une base.
    Mais ce repertoire va être amené à changer de place et tous mes liens seront alors rompus.

    La solution de stocker ce répertoire dans le même repertoire que celui de la base access n'est helas pas possible, je sais que cette solution résoudrait tous les problèmes puisque lorsque l'on déplace le rep de la base dans lequel est stocké un rep contentant des fichiers liés, les liens sont conservés.

    Je pense qu'il existe un code VBA qui permet de mettre à jour l'ensemble des liaisons lorsqu'on déplace un rep contenant des fichiers liés à une base.

    En vous remerciant pour votre aide
    Franck

  2. #2
    Rédacteur/Modérateur
    Avatar de User
    Homme Profil pro Denis
    Développeur informatique en auto-entrepreneur
    Inscrit en
    août 2004
    Messages
    3 781
    Détails du profil
    Informations personnelles :
    Nom : Homme Denis
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique en auto-entrepreneur

    Informations forums :
    Inscription : août 2004
    Messages : 3 781
    Points : 6 135
    Points
    6 135

    Par défaut

    Bonjour,

    Oui c'est possible, d'ailleurs il y a du code disponible sur Dvp...

    Ce que tu peux faire c'est créer une fonction VBA dans un module indépendant :

    Code :
    1
    2
    3
    4
    5
    6
    Public Function NouveauChemin(AncienChemin As String, NouveauRepertoire As String) As String
     
       t = Split(AncienChemin, "\")
       NouveauChemin = NouveauRepertoire & "\" & t(UBound(t))
     
    End Function
    Et après tu utilises cette fonction dans une requête mise à jour ayant pour paramètre [NouveauRepertoire]:

    Code :
    UPDATE LaTable SET Lien = NouveauChemin([Lien],[NouveauRepertoire]);
    Ici LaTable désigne ta table contenant les liens et Lien désigne le champ où tu stockes tes liens.

    A+
    Petit à petit, l'oiseau fait son nid

    Si vous souhaitez mettre en place une gestion de planning, une gestion de stock, ventes, achats ou tout autre application Office je peux vous y aider. Pour cela n'hésitez pas à me contacter par courriel ou mp.

    Mes tutoriels et contributions sur ma page personnelle.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •