Insérer un lien hypertexte a partir de variable par macro

Le
Fredo(67)
Bonjour,
Je voudrait insérer un lien hypertexte vers une feuille de calcul
existante par macro

J'ai posé comme variable :
- le nom du répertoire où se situe le classeur (=> variable
CONDUCTEUR)
- le nom du classeur (=> variable NOM DU CHANTIER)

Les noms de classeurs peuvent comporter des espaces.

Par exemple :
'I:ConduiteCONDUCTEURSituationsNOM DU CHANITER.xls'!SITUATION

Je ne suis pas sur d'avoir été clair

Merci de tous les conseils que vous pourriez me donner.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
tissot.emmanuel
Le #4443421
Bonjour,

Il te suffit de recréer le nom complet du fichier cible par concaténation de
tes différentes variables et constantes.

Sub CreerLien()
Dim Cible As String, Conducteur As String, NomChantier As String
'Construction du chemin
Cible = "I:Conduite" & Conducteur & "Situations" & NomChantier &
".xls"
'Creation du lien
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:=Cible,
SubAddress:="Situation!A1", _
TextToDisplay:=Cible
End Sub

Anchor indique dans quelle cellule ajouter le lien sur la feuille active.
SubAdress indique sur quelle feuille le fichier doit s'ouvrir quand on
clique sur le lien.

Une autre solution susceptible de t'intéresser:

Sub CreerLien2()
Dim Cible
Cible = Application.GetOpenFilename
If VarType(Cible) = vbBoolean Then
MsgBox "Operation annulée.", vbInformation
Else
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:=Cible,
TextToDisplay:=Cible
End If
End Sub

Cordialement,

Manu/


"Fredo(67)"
Bonjour,
Je voudrait insérer un lien hypertexte vers une feuille de calcul
existante par macro

J'ai posé comme variable :
- le nom du répertoire où se situe le classeur (=> variable
CONDUCTEUR)
- le nom du classeur (=> variable NOM DU CHANTIER)

Les noms de classeurs peuvent comporter des espaces.

Par exemple :
'I:ConduiteCONDUCTEURSituationsNOM DU CHANITER.xls'!SITUATION

Je ne suis pas sur d'avoir été clair...

Merci de tous les conseils que vous pourriez me donner.
Publicité
Poster une réponse
Anonyme