"RESOLU" Macro ou lien hypertexte pour ouvrir un fichier .xls

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : "RESOLU" Macro ou lien hypertexte pour ouvrir un fichier .xls

hbb

Merci beaucoup Kiki29,
C'est exactement ce que voulais,
A bientôt j'espère,
Hbb

Message édité par hbb le 05-06-2006 à 15:02:14

Publicité

hbb

A l'aide, please ....

Jiji22

C'est la création que tu veux avoir de façon automatique ou bien de créer les liens manuellement ?

kiki29

Menu Insertion / Lien Hypertexte etc

hbb

Jiji22,
C'est la création automatique du lien hypertexte que j'aimerais.
Dans une procédure de sauvegarde de fichier excel, peut automatiquement créer un lien hypertexte de ce fichier ?
Ce serait peut-etre la solution ?

Kiki29,
"Menu Insertion / Lien Hypertexte", c'est bien mais en manuel et ça prendrait beaucoup trop de temps.
Le tableau que j'ai détaillé au dessus est bien plus simplifié que celui avec lequel je travaille.
Mais peut etre avec le code Vba :

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="5014.xls", _
TextToDisplay:="5014.xls"

Ce que je n'arrive pas, c'est de mettre "cells(2,1).value" à la place de "5014" dans le code VBA ci-dessus....

A+

kiki29

Sub CreationLiens()
Dim r As Long, i As Long
Dim Fichier As String
Const Dossier As String = "E:\hbb\Archives\"

r = Range("A65536" ).End(xlUp).Row
Columns("C:C" ).Clear
For i = 1 To r
Fichier = Dossier & Range("A" & i) & ".xls"
If Len(Dir(Fichier, vbNormal)) > 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:=Dossier & Range("A" & i) & ".xls", TextToDisplay:=CStr(Range("A" & i))
Else
Range("C" & i) = ""
End If
Dir ("" )
Next
End Sub

Message édité par kiki29 le 05-06-2006 à 12:29:42

hbb

Bonsoir à tous,

Le code de Kiki29 fonctionne très bien chez moi (office 2003-Windows XP) mais par contre, à mon travail (Windows 2000 - Office <2003) la création du lien hypertexte a un petit problème.
Pour l'empecher de bugger, je suis obligé d'enlever la partie suivante :
",TextToDisplay:=CStr(Range("A" & i))"
Et du coup, c'est évidemment l'adresse complète du lien qui s'affiche (un peu long et pas très esthétique...)

Ce code est-il différent pour windows 2000 ?

Merci d'avance,
Hbb

kiki29

Je ne sais pas, pour ma part : XP pro SP2 et Office 10 (2002) SP3

hbb

Voici une réponse Watashi sur ce forum (autre sujet).

"il semble que la sollution est de mettre en place la sub Workbook_SheetFollowHyperlink"

Par contre, il ne détaille pas, n'ayant pas non plus la solution..
A+

FORUM HardWare.fr

Programmation

VB/VBA/VBS

"RESOLU" Macro ou lien hypertexte pour ouvrir un fichier .xls

Sujets relatifs
question sur un fichier cmd	Comment ouvrir un fichier Temporary Internet Files et le copier
fopen et fichier window...	[resolu] pourquoi phpadmin ne marche pas
[Résolu]Perfectionner mon code VBA	animation du .gif se fige lors d'1 click sur un lien invalidé
[Résolu] Problème MySQL 1&1 : plus de protection de chaine !	Problème excel... [RESOLU]
fichier autoextractible
Plus de sujets relatifs à : "RESOLU" Macro ou lien hypertexte pour ouvrir un fichier .xls

Page générée en 0.041 secondes