Exportation de lien hypertexte Access vers Excel

[RaceX]

Bonjour à tous,

J'utilise du code VBA pour transférer le contenu d'un tableau Excel vers Access et inversement. Ce code marche à merveille sauf lors de l'exportation de liens hypertexte depuis Access vers Excel. En effet j'arrive à exporter seulement le nom affiché du lien.

Voici une partie du code que j'utilise pour l'exportation Access --> Excel. En rouge le champ contenant les liens hypertextes.

Sub ExporterAccess()

' EXPORTATION DANS ACCESS de CHANGEMENTs DE VALEURS DE CHAMPS

Dim source As Database
Dim chemin As String, nouvgrp As String
Dim nbre As Long, numero As Long, lig As Long

ActiveSheet.Unprotect
Application.ScreenUpdating = False

chemin = ActiveWorkbook.Path

'ouvre la base de données
Set source = DBEngine.OpenDatabase(chemin & "\SuiviDemandes.mdb")
'ouvre la table générale
Set TableBE = source.OpenRecordset(Name:="DemandeTable", Type:=dbOpenDynaset)

nbre = Worksheets("Listing Principal").Range("B65536").End(xlUp).Row
lig = 5
While lig <= nbre
    numero = Cells(lig, 2)
    nouvgrp = Cells(lig, 4)
    With TableBE
        .MoveFirst
         'recherche la fiche concernée
        .FindFirst ("N°Demande=" & (numero))
        'Ajout si numéro de fiche inconnu
        If .NoMatch Then
            .AddNew
            .Fields("N°Demande") = Range("B" & lig)
            .Fields("DateCreationDemande") = Range("C" & lig)
            .Fields("IntituléDemande") = Range("D" & lig)
            .Fields("QtéDemande") = Range("E" & lig)
            .Fields("DescriptionDemande") = Range("F" & lig)
            .Fields("AffectationDemande") = Range("G" & lig)
            .Fields("TypeDemande") = Range("H" & lig)
            .Fields("ProjetDemande") = Range("I" & lig)
            .Fields("DateTraitementDemande") = Range("J" & lig)
            .Fields("ImportanceDemande") = Range("K" & lig)
[COLOR="Red"]            .Fields("PièceJointe") = Range("L" & lig)[/COLOR]
            .Update
        Else
            ' inscrit les changements
            .Edit
            '.Fields("IntituléDemande") = nouvgrp
            .Fields("N°Demande") = Range("B" & lig)
            .Fields("DateCreationDemande") = Range("C" & lig)
            .Fields("IntituléDemande") = Range("D" & lig)
            .Fields("QtéDemande") = Range("E" & lig)
            .Fields("DescriptionDemande") = Range("F" & lig)
            .Fields("AffectationDemande") = Range("G" & lig)
            .Fields("TypeDemande") = Range("H" & lig)
            .Fields("ProjetDemande") = Range("I" & lig)
            .Fields("DateTraitementDemande") = Range("J" & lig)
            .Fields("ImportanceDemande") = Range("K" & lig)
[COLOR="Red"]            .Fields("PièceJointe") = Range("L" & lig)[/COLOR]
            .Update
        End If
    End With
 lig = lig + 1
Wend
        
'ActiveSheet.Protect

TableBE.Close
source.Close

End Sub

Connaissez vous la fonction à rajouter pour exporter les liens hypertextes correctement.

Merci par avance,

 

[RaceX]

Re : Exportation de lien hypertexte Access vers Excel

Personne n'a une petite idée

 

[RaceX]

Re : Exportation de lien hypertexte Access vers Excel

Oups je viens de me rendre compte que le code que j'ai posté est celui que j'utilise pour exporter mes données Excel vers Access et non le contraire. En fait j'utilise un code qui permet d'afficher le résultat de requête Access dans Excel.

Sub ImportationACCESS()
     Dim Db1 As Database
     'Dim Rs1 As Recordset
     ' Ouverture de la base de données
     Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\SuiviDemandes.mdb")
     ' Ouverture de la table Factures
     ' Un objet Recordset représente les enregistrements d'une table
     Set Rs1 = Db1.OpenRecordset(Name:=MaRequete, Type:=dbOpenSnapshot)
     ' Effacement des données existantes dans la WorkSheet (sauf les titres)
     ' et copie des enregistrements
     With Worksheets("Listing Principal").Range("B5")
     Range("B5:AZ200").Select
          Selection.ClearContents
          .CopyFromRecordset Rs1
     End With
     'Fermeture de la Base de données
     Db1.Close
     Range("B5").Select
End Sub

Ce code m'affiche donc l'ensemble de mes données sauf les liens hypertextes (seul le titre du lien s'affiche).

Merci,

 

[RaceX]

Re : Exportation de lien hypertexte Access vers Excel

Bonjour,

Je me permet de remonter mon sujet car je n'ai toujours pas trouvé la réponse à cette question.

Personne d'entre vous n'a une idée

Merci,