RaceX
XLDnaute Junior
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.
Connaissez vous la fonction à rajouter pour exporter les liens hypertextes correctement.
Merci par avance,
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.
Code:
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,