PB Hyperlinks + recherche dans une liste

[babap1]

Bonsoir le forum,

j'ai mis en pièce jointe mon projet de faire une mini base de donnée pour référencer une liste de chants. J'ai 3 champs : Titre / Type / Auteur et j'ai un user form qui me permet de complèter ma liste. D'autres part, je dois pouvoir faire les actions suivantes : Ajout / Modification / Suppression / Search

Problématiques :
1/ Lorsque je sélectionne un chant pour le modifier, je n'arrive pas à réccupérer le lien dans le champ prévu à cet effet. Par ailleurs, il serait bon que lorsque je recherche à attacher un document, je puisse définir un répertoire racine

2/ J'aimerai créer une nouvelle action de recherche par rapport au titre d'un champ. En tappant un mot, j'aimerai qu'il y ait comme un filtre qui me sorte tous les titres qui contiennent le(s) mots que j'ai donné dans ma textbox

Merci d'avance,
Bap

 

[babap1]

Re : PB Hyperlinks + recherche dans une liste

Bonjour le forum,

j'ai une erreur lorsque je fais un test pour réccupérer le chemin de mon lien hypertext... En effet, à l'aide de mon UserForm je souhaite pouvoir récupérer, s'il existe, le path de mon lien dans une textbox 'txt_lien'

If (Range("A" & lgCurLig).Hyperlinks(1).Addresse <> "") Then
    UserForm.txt_lien.Value = Range("A" & lgCurLig).Hyperlinks(1).Address
    End If

Merci d'avance,
Bap

 

[tototiti2008]

Re : PB Hyperlinks + recherche dans une liste

Bonjour babap1,

essaye :

If (Range("A" & lgCurLig).Hyperlinks.Count > 0) Then

 

[babap1]

Re : PB Hyperlinks + recherche dans une liste

Bonjour tototiti2008,

merci, ça fonctionne comme je voulais pour les hyperlinks.

 

[babap1]

Re : PB Hyperlinks + recherche dans une liste

Re-bonjour,

dans mon programme, j'aimerai qu'à la selection d'une d'une cellule on puisse imprimer la cible donné par le lien qui est sur le texte de la cellule...

Quelqu'un a-t-il une idée ?

Merci d'avance,
Baptiste

 

[tototiti2008]

Re : PB Hyperlinks + recherche dans une liste

c'est à dire imprimer la page Web (si c'est un lien internet) ?

 

[babap1]

Re : PB Hyperlinks + recherche dans une liste

Heu.... ce sont des liens vers des documents words / pdf / jpg et la cible est contenu dans la colonne B de mon tableur.

Merci.
Bap

 

[tototiti2008]

Re : PB Hyperlinks + recherche dans une liste

sans doute en utilisant la fonction Shell mais je ne connais pas la ligne de commande d'impression... je vais chercher.

 

[STephane]

Re : PB Hyperlinks + recherche dans une liste

bonjour,


un essai trouvé sur le web (newsgroup microsoft.public.excel.programming)
nécessite une référence à "Microsoft Internet Controls".


Sub webPrint()

getWebPage "www.google.co.uk"
getWebPage "www.ebay.co.uk"

End Sub

Sub getWebPage(aURL As String)
Dim wb As InternetExplorer

Set wb = New InternetExplorer
wb.Visible = True
wb.Navigate (aURL)
Do
DoEvents
Loop Until wb.ReadyState = READYSTATE_COMPLETE
wb.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
wb.Quit
Set wb = Nothing

End Sub

 

[babap1]

Re : PB Hyperlinks + recherche dans une liste

Dim wb As InternetExplorer

STephane, merci du coup de pouce mais cette solution ne fonctionne que pour des adresses internet et pas pour des cibles qui sont en locales..

A+

 

[tototiti2008]

Re : PB Hyperlinks + recherche dans une liste

rien trop trouvé de concluant du côté du Shell. En fait j'ai trouvé des trucs mais rien qui fonctionne... Moi qui pensait qu'il serait assez simple de simuler un clic droit-imprimer sur un fichier...

 

[babap1]

Re : PB Hyperlinks + recherche dans une liste

Bonjour le forum,

j'aimerai savoir s'il est possible d'attribuer des liens relatifs plutôt qu'absolus lorsque l'on fait un Hyperlink?
Je fais des liens vers des documents de mon PC et j'ai un souci si je change mes fichiers d'ordinateur....

Merci d'avance,
Bap

 

[tototiti2008]

Re : PB Hyperlinks + recherche dans une liste

Bonjour babap1,

je crois que les liens sont relatifs par défaut... en tout cas, c'est ce que les tests que je viens de faire me montrent

 

[STephane]

Re : PB Hyperlinks + recherche dans une liste

bonjour,

tes liens sont-ils ajoutés par macro ?
il faut si je ne me trompe pas utiliser l'argument subaddress de la méthode Add appliquée à l'obejet hyperlinks

 

[babap1]

Re : PB Hyperlinks + recherche dans une liste

Bonsoir tototiti2008, STephane, le forum,

effectivement les liens par défaut sont relatifs.. merci tototiti2008.
J'ai encore quelques soucis quand à la création de mon document (cf. PJ):

Lorsque je renseigne les champs "paroles" et "partitions", je n'arrive pas à ajouter les icônes que je veux et centrées dans les cellules prévues à cet effet.
D'autres part, le lien devrait être sur l'image et non sur la cellule.
Enfin, quand je supprime une ligne (un chant), l'image ne se supprime pas.. !

Si quelqu'un a un moment pour jetter un coup d'oeil...
Merci d'avance,

Bap