Discussion :

[ericdev67]

bonjour,

j'utilise le code :

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,"Requete_Temporaire", "c:\fichier.xls"

Mais un de mes champ est un lien hypertexte. dans ma table, et ma requete, le champ est identifié comme lien hypertexte :exemple :aa, mais lorsque je l'exporte via le code, je me retrouve avec tout la dénomination du lien (c:\essai\aa.pdf), alors que je ne veux voir apparaitre que "aa".
Lorsque je vais dans mes requetes et que j'exporte manuellement le fichier sous excel, pas de soucis, il me met bien"aa". donc je pense qu'il doit manquer une instruction dans mon code....

Une idée ??????????

Merci
A+

[mout1234]

Bonsoir,

Je ne sais s'il y a plus simple, mais à ta place j'essaierai de décomposer le contenu du champ hypertexte.

Pour cela, on peut écrire une petite fonction en VBA (à mettre dans un module standard), du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function ap_LinkFromHyperLink(vLien As Variant) As String
On Error Resume Next
 
If Nz(vLien, "") = "" Then
    ap_LinkFromHyperLink = ""
ElseIf Left(vLien, 1) = "#" Then
    'pas de libellé de lien ... on affiche le contenu en
    'supprimant les #
    ap_LinkFromHyperLink = Replace(vLien, "#", "")
 
Else
    'retrouver le libellé du lien
    ap_LinkFromHyperLink = Left$(vLien, InStr(1, vLien, "#") - 1)
 
End If
 
End Function

Tu peux alors appeler la fonction dans ta requete temporaire

Code SQL :

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

SELECT ap_LinkFromHyperLink(MonChamp) as LeLien ... FROM .....

Bon courage

[ericdev67]

Bonjour Mout1234,

Effectivement c'est une solution, mais j'ai un grand nombre de requetes a extraire....
En fait, j'attribuai le lien Hypertexte avec excel, puis utilisait Access pour faire les liens entre tables et les requetes sortaient avec le lien hypertexte déjà créé. Maintenant, je peux procéder à l'envers : je crée mes fichiers sous excel, les utilise dans Access et lorsque je les exporte, à ce moment là je peux affecter les liens hypertextes = j'affecte les liens soit avant de rentrer dans Access, soit en sortant.

Ce que je voulais savoir, c'est cette modification de propriété de champ : est-elle possible en VBA ?

Merci
A+