Userforme et Lien Hypertexte

[Lucien]

Bonjour le forum

Je reviens sur e forum suite au test éffectue, les resultats sont KO, je m' explique Sur une feuille excel j' ai la remonté des infos Colonne A Le Chemin des repertoires et Colonne B les fichiers avec un lien Hypertexte.En Cliquant sur le lien desiré on lance le fichier.
Mon but c' est d' avoir un Userform qui me récupre les deux colonnes Telquel et à partir de ce userform on pourra lancer n' importe quel fichier.
Mon Userform me remonte bien les infos mais sans les liens hypertextes

Merci pour votre aide
Lucien

 

[Mytå]

Salut Lucien et le forum

Une listbox multi-colonnes (ici 2)

La première contient le nom
La deuxième le lien hypertexte

Alors pour ouvrir le lien :

Private Sub ListBox1_Click()
ActiveWorkbook.FollowHyperlink Address:='' & ListBox1.Column(1), NewWindow:=True
End Sub

Myta

P.S. Sinon un bout de ton fichier en exemple

 

[Lucien]

Salut Mytå

Mon gros souci c' est une userform avec un listview et il remonte bien les deux colonnes mais pas le lien attaché au fichier

Lucien

 

[MichelXld]

bonjoue Lucien , bonjour cher Myta

tu peux tester cette macro en supposant que dans la 1ere colonne de la listView tu as le nom du répertoire , et le nom du fichier dans la colonne 2

Private Sub ListView1_Click()
Dim Cible As String
Cible = ListView1.SelectedItem.Text & '\\\\\\\\' & ListView1.SelectedItem.SubItems(1)
ThisWorkbook.FollowHyperlink Cible, True
End Sub


bon week end
MichelXld

 

[Lucien]

Salut MichelXld

J' ai fait un essai avec ton code et j' ai un bloacge sur ThisWorkbook.FollowHyperlink Cible, True

Lucien

 

[MichelXld]

rebonjour

peux tu préciser quel type de blocage ? quel message d'erreur ?...etc...

dans ta ListView , tu as bien le chemin qui s'affiche dans la 1ere colonne et le nom du fichier dans la 2eme colonne ?


bon apres midi
MichelXld

Message édité par: michelxld, à: 01/04/2006 14:46

 

[Lucien]

Rebonjour

Dans ma userform et listyview, j' ai éffectivement
le chemin du trépertoire et la 2 ieme colonne le nom du fichier et son Extension, Mais dans mon cas, la Listview récupre les infos à partir d' une feuille excel qui comport les dexu colonnes sauf que les fichiers sont en lienHypertexte, ce que ne fait pas la listview.
Le Message d' erreur est
Erreur d' execution 13
Incompatible de type

Lucien

 

[Mytå]

Salut Lucien, MichelXLD et le forum

Donne-nous un exemple de tes deux colonnes
dans un fichier 'zipper', juste une ligne suffira.

Myta

 

[Lucien]

Bonsoir Myta

Ci joint un fichier avec un ligne cela te permettra d' avoir un apercu de mon Probleme.

Lucien

 

[Lucien]

Bonsoir Myta

Ci joint un fichier avec un ligne cela te permettra d' avoir un apercu de mon Probleme.

Lucien [file name=Classeur_20060401192258.zip size=5531]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur_20060401192258.zip[/file]

 

[Mytå]

Re bonsoir le Forum

Essaye le fichier en pièce jointe Lucien,
moi je n'ai aucun problème avec le lien
hypertexte.

Myta [file name=ListView1.zip size=14091]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListView1.zip[/file]

 

[Lucien]

Bonjour Myta et le forum

Merci pour ta solution, je l' ai adapté à mon fichier et elle fonctionne correctement sauf que j' ai deux pb. Si la feuille n' est pas affichée à l' écran la listview ne fonctionne pas donc j' ai
mis ce code
'Sheets('ListeFichiers').Activate dans le private Sub userform initialise et les infos remontent, Mais j' aurai aimé que cette feuille ne s' affiche pas.
Le 2 ieme c' est que ma macro lorsqu' elle remonte les infos dans la feuille si il y a plusieurs fichiers pour un réperoire alors dans la colonne A elle inscrit le repertoire et laisse des blanc jusqu' au prochain répertoire
Donc la listview ne lance pas les fichiers dont la colonn erépertoire soit vide
Lucien [file name=ListView_20060402111731.zip size=10567]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListView_20060402111731.zip[/file]

 

[Mytå]

Re Lucien et le forum

Pour la première question le .activate, voici
le code modifié.

Private Sub UserForm_Initialize()

Dim Cell As Range
Dim I As Integer

With ListView1

    With .ColumnHeaders
    .Clear
    .Add , , 'Répertoires', 115
    .Add , , 'Fichiers', 200
    End With
     
I = 0

For Each Cell In Sheets('Feuil1').Range('A1:A' & _
Sheets('Feuil1').Range('a65536').End(xlUp).Row)

    I = I + 1
    .ListItems.Add , , Cell
    .ListItems(I).ListSubItems.Add , , Cell.Offset(0, 1)
    
Next Cell

End With

End Sub

Myta

 

[Mytå]

UserForm, Lien Hypertexte via ListView

Re le Forum

Lucien en pièce jointe la version semi-finale avec les deux problèmes réglés, je n'ai pas
optimisé le code, je vais me faire taper sur
les doigts ou avoir une copie de ligne à
faire si _Thierry passe par ici

Le fichier en pièce jointe.

[file name=ListView1_20060402160633.zip size=15437]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListView1_20060402160633.zip[/file]

Myta

P.S. https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/ très lucratif en aide

Message édité par: Mytå, à: 02/04/2006 18:01

 

[Lucien]

Re:UserForm, Lien Hypertexte via ListView

Bonjour Myta et le forum

Je te remercie pour ton aide, j' ai pu finaliser mon projet.

Lucien