[XL-2003] lien hypertext copie de celulle entre deux fichier
gplog
Messages postés82Date d'inscriptionmardi 4 février 2003StatutMembreDernière intervention 7 juillet 2009
-
7 juil. 2009 à 14:42
cs_nandinho
Messages postés14Date d'inscriptionmercredi 10 juin 2009StatutMembreDernière intervention10 juillet 2009
-
7 juil. 2009 à 23:48
Bonjour à tous,
voila le problème :
J'ai deux fichier Excel. Sur le premier, je récupère les noms de
fichiers situés dans un certain répertoire et je créé grace au nom du
fichier et du repertoire un hyperlink dans une cellule.
la macro simplifié ressemble à :
Dim objFSO, objDossier, objFichier
Dim Repertoire ' Repertoire source des fichiers
On Error Resume Next
Repertoire = InputBox("Chemin à parcourir :")
Set objFSO = CreateObject("Scripting.FileSystemObject")
la macro marche parfaitement pour le premier fichier. Seulement,
lorsque je copie la cellule et que je la colle dans le deuxième fichier
Excel (situé dans un répertoire différent). Le lien est alors
innexploitable.
Il semble que le lien soit créé de manière Relative et non absolut.
Dans mon cas, les fichiers à atteindres sont situés sur le réseau.
Ex pour le repertoire : \\ServeurMachin\dossier bla\dossier blabla
Le lien que j'obtiens avec la macro (clique droit->modifier lien hypertexte) ressort avec la forme suivante :
dossier%20bla/dossier%20blabla/FichierMachin.doc
Il n'y as donc plus de trace du nom de serveur dans le lien, et le copier/coller de la cellule avec hyperlink vers mon fichier escel 2 est innéficace
Y as t'il une manière pour que le lien soit enregistrer de manière
absolut dans la cellule ? Ou bien Comment copier correctement un lien
d'un fichier vers un autre ?
D'avance merci pour vos réponse
A voir également:
[XL-2003] lien hypertext copie de celulle entre deux fichier
cs_nandinho
Messages postés14Date d'inscriptionmercredi 10 juin 2009StatutMembreDernière intervention10 juillet 2009 7 juil. 2009 à 23:48
Bonjour
essai de copier l'adresse du lien :
mon_lien = Range("a2").Hyperlinks(1).Address
puis de l"insérer dans le nouveau fichier :
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= mon_lien