Discussion :

[Gilles93]

Bonjour,
Je souhaite exporter sous Excel le résultat d'une requête dans laquelle un champ lien est inclus. Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Commande6_Click()
 
    Dim stDocName As String
    stDocName = "Suivi +"
    Mon_heure = Day(Now()) & "-" & Month(Now()) & "-" & Year(Now()) & "-" & Hour(Now()) & "h" & Minute(Now()) & "mn" & Second(Now()) & "s"
    DoCmd.OutputTo acReport, stDocName, acFormatXLS, "T:\Mon_chemin\Suivi_" & Mon_heure & ".xls"
 
    MsgBox ("Le fichier Suivi" & Mon_heure & ".xls a été crée dans le répertoire Anomalies")
 
End Sub

Je constate que le fichier Excel n'a pas intégré le lien en tant que lien mais comme simple texte avec seulement une mise en forme de lien hypertexte.
qui peut me proposer une solution?
Merci

[dumas.blr]

Bonjour,

As-tu essayé le docmd.transfertspreadsheet directement à partir de la requête, et non à partir de l'état ?

[Gilles93]

Bonjour,

As-tu essayé le docmd.transfertspreadsheet directement à partir de la requête, et non à partir de l'état ?

J'ai essayé, comme tu le conseille, désolé mais c'est pareil.... Le lien n'est toujours pas activé!

[dumas.blr]

Je viens d'essayer d'exporter directement une requête contenant des liens hypertextes dans les champs en utilisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OutputTo acOutputQuery

et ca marche

La syntaxe complete était :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OutputTo acOutputQuery, <nom de ma requete>, "ExcelWorkbook(*.xlsx)", <chemin complet+ nom de mon fichier de sortie>, False, "", , acExportQualityPrint

[Gilles93]

Merci beaucoup, ça fonctionne parfaitement comme ça. Je n'ai pas compris pourquoi les autres méthodes ne conservent pas le lien. Tant pis, Merci encore.