Insérer un lien hypertexte a partir de variable par macro
1 réponse
Fredo(67)
Bonjour,
Je voudrait ins=E9rer un lien hypertexte vers une feuille de calcul
existante par macro
J'ai pos=E9 comme variable :
- le nom du r=E9pertoire o=F9 se situe le classeur (=3D> variable
CONDUCTEUR)
- le nom du classeur (=3D> variable NOM DU CHANTIER)
Les noms de classeurs peuvent comporter des espaces.
Par exemple :
'I:\Conduite\CONDUCTEUR\Situations\NOM DU CHANITER.xls'!SITUATION
Je ne suis pas sur d'avoir =E9t=E9 clair...
Merci de tous les conseils que vous pourriez me donner.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
tissot.emmanuel
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)" a écrit dans le message de news:
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.
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)" <frederic.seys@socara.net> a écrit dans le message de news:
1176818702.459205.211700@n76g2000hsh.googlegroups.com...
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.
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)" a écrit dans le message de news:
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.