"RESOLU" Macro Ou Lien Hypertexte Pour Ouvrir Un Fichier .xls

Home » Code Vba Pour Ouvrir Un Lien Hypertexte » "RESOLU" Macro Ou Lien Hypertexte Pour Ouvrir Un Fichier .xls

Maybe your like

Forum | HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2760 connectés FORUM HardWare.fr Programmation VB/VBA/VBS "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

n°1380979hbbPosté le 04-06-2006 à 21:03:29 profilanswer

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
moodPublicitéPosté le 04-06-2006 à 21:03:29 profilanswer
n°1381016hbbPosté le 04-06-2006 à 22:06:02 profilanswer

A l'aide, please ....

n°1381054Jiji22Posté le 04-06-2006 à 23:43:18 profilanswer

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

n°1381088kiki29Posté le 05-06-2006 à 07:43:31 profilanswer

Menu Insertion / Lien Hypertexte etc

n°1381105hbbPosté le 05-06-2006 à 09:16:16 profilanswer

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+

n°1381193kiki29Posté le 05-06-2006 à 11:15:34 profilanswer

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
n°1382419hbbPosté le 06-06-2006 à 22:16:08 profilanswer

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

n°1382427kiki29Posté le 06-06-2006 à 22:29:06 profilanswer

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

n°1382431hbbPosté le 06-06-2006 à 22:33:36 profilanswer

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+

Aller à : HardwareHardware - PériphériquesOrdinateurs portablesOverclocking, Cooling & ModdingElectronique, domotique, DIYTechnologies MobilesAppleVideo & SonPhoto numériqueJeux VideoWindows & SoftwareRéseaux grand public / SoHoSystèmes & Réseaux ProLinux et OS AlternatifsProgrammationGraphismeAchats & VentesEmploi & EtudesDiscussionsMessages privés Ajouter une réponse FORUM HardWare.fr Programmation VB/VBA/VBS "RESOLU" Macro ou lien hypertexte pour ouvrir un fichier .xls
Sujets relatifs
question sur un fichier cmdComment ouvrir un fichier Temporary Internet Files et le copier
fopen et fichier window...[resolu] pourquoi phpadmin ne marche pas
[Résolu]Perfectionner mon code VBAanimation 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
Forum MesDiscussions.Net, Version 2010.2 (c) 2000-2011 DoctissimoPage générée en 0.037 secondesCopyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)

Tag » Code Vba Pour Ouvrir Un Lien Hypertexte