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

"RESOLU" Macro ou lien hypertexte pour ouvrir un fichier .xls - VB/VBA/VBS - Programmation

Marsh Posté le 04-06-2006 à 21:03:29    

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
Reply

Marsh Posté le 04-06-2006 à 21:03:29   

Reply

Marsh Posté le 04-06-2006 à 22:06:02    

A l'aide, please ....

Reply

Marsh Posté le 04-06-2006 à 23:43:18    

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

Reply

Marsh Posté le 05-06-2006 à 07:43:31    

Menu Insertion / Lien Hypertexte etc

Reply

Marsh Posté le 05-06-2006 à 09:16:16    

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+

Reply

Marsh Posté le 05-06-2006 à 11:15:34    


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
Reply

Marsh Posté le 06-06-2006 à 22:16:08    

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
 

Reply

Marsh Posté le 06-06-2006 à 22:29:06    

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

Reply

Marsh Posté le 06-06-2006 à 22:33:36    

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+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed