Lien hypertexte

Le
koukou40
Bonjour,

J'ai un soucis avec les liens hypertexte !
Mes connaissances en Excel étant (très réduites), j'espère que vous
pouurez m'aider !

Dans un classeur, j'ai créé une barre de menu personnalisée, avec un
menu est des sous menus.
A chaque sous menu, je désire créer un lien hypertexte vers un autre
fichier qui se trouve dans un autre disque dur.

Une solution en VBA est-il possible ?

Merci d'avance

Kris
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
koukou40
Le #5137521
On 24 jan, 15:36, wrote:
Bonjour,

J'ai un soucis avec les liens hypertexte !
Mes connaissances en Excel étant (très réduites), j'espère que vou s
pouurez m'aider !

Dans un classeur, j'ai créé une barre de menu personnalisée, avec un
menu est des sous menus.
A chaque sous menu, je désire créer un lien hypertexte vers un autre
fichier qui se trouve dans un autre disque dur.

Une solution en VBA est-il possible ?

Merci d'avance

Kris


Excusez moi pour les fautes d'ortographe !

Kris

MichDenis
Le #5137491
Voici une façon de faire :

' Crée un bouton dans une nouvelle barre
'Tu renseignes adéquatement la ligne "OnAction" en stipulant
'le module où tu as mis ta macro, le nom du classeur que tu veux ouvrir
'le nom de la feuille et l'adresse de la cellule.

'------------------------------------------
Sub LeGros_Bouton()
Dim mBar As CommandBar
Dim St As MsoButtonStyle
St = msoButtonCaption
Set mBar = Application.CommandBars.Add(Name:="Denis")
With mBar
.Visible = True
With .Controls.Add(msoControlButton)
.Caption = "Aller vers Classeur3.xls"
.Style = St
.OnAction = "'module2.MaMacro ""c:Classeur3.xls"",""Feuil1"",""G50""'"
End With
End With
End Sub
'------------------------------------------

à chaque fois que tu cliqueras sur le bouton, le fichier
que tu as spécifié s'ouvrira....
'------------------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
On Error Resume Next
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
End Sub
'------------------------------------------

Amuse toi bien !



Bonjour,

J'ai un soucis avec les liens hypertexte !
Mes connaissances en Excel étant (très réduites), j'espère que vous
pouurez m'aider !

Dans un classeur, j'ai créé une barre de menu personnalisée, avec un
menu est des sous menus.
A chaque sous menu, je désire créer un lien hypertexte vers un autre
fichier qui se trouve dans un autre disque dur.

Une solution en VBA est-il possible ?

Merci d'avance

Kris
MichDenis
Le #5137471
Tu peux remplacer la macro par celle-ci :
Cette macro requiert Excel 2000 ou plus récent
'--------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
Dim SS As String
On Error Resume Next
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
If Err <> 0 Then
Err = 0
SS = Split(Fichier, "")(UBound(Split(Fichier, "")))
Application.Goto Workbooks(SS).Worksheets(Feuille).Range(Cellule)
End If
End Sub
'--------------------------------




"MichDenis" %23X6Y%
Voici une façon de faire :

' Crée un bouton dans une nouvelle barre
'Tu renseignes adéquatement la ligne "OnAction" en stipulant
'le module où tu as mis ta macro, le nom du classeur que tu veux ouvrir
'le nom de la feuille et l'adresse de la cellule.

'------------------------------------------
Sub LeGros_Bouton()
Dim mBar As CommandBar
Dim St As MsoButtonStyle
St = msoButtonCaption
Set mBar = Application.CommandBars.Add(Name:="Denis")
With mBar
.Visible = True
With .Controls.Add(msoControlButton)
.Caption = "Aller vers Classeur3.xls"
.Style = St
.OnAction = "'module2.MaMacro ""c:Classeur3.xls"",""Feuil1"",""G50""'"
End With
End With
End Sub
'------------------------------------------

à chaque fois que tu cliqueras sur le bouton, le fichier
que tu as spécifié s'ouvrira....
'------------------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
On Error Resume Next
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
End Sub
'------------------------------------------

Amuse toi bien !



Bonjour,

J'ai un soucis avec les liens hypertexte !
Mes connaissances en Excel étant (très réduites), j'espère que vous
pouurez m'aider !

Dans un classeur, j'ai créé une barre de menu personnalisée, avec un
menu est des sous menus.
A chaque sous menu, je désire créer un lien hypertexte vers un autre
fichier qui se trouve dans un autre disque dur.

Une solution en VBA est-il possible ?

Merci d'avance

Kris
MichDenis
Le #5137441
À bien y penser, la macro fait plus de sens écrite de cette manière :

'-----------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
Dim SS As String, F As Object
On Error Resume Next

SS = Split(Fichier, "")(UBound(Split(Fichier, "")))

Set F = Workbooks(SS)
If Err <> 0 Then
Err = 0
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
Else
Application.Goto Workbooks(SS).Worksheets(Feuille).Range(Cellule)
End If
End Sub
'-----------------------------------



"MichDenis" %23X6Y%
Voici une façon de faire :

' Crée un bouton dans une nouvelle barre
'Tu renseignes adéquatement la ligne "OnAction" en stipulant
'le module où tu as mis ta macro, le nom du classeur que tu veux ouvrir
'le nom de la feuille et l'adresse de la cellule.

'------------------------------------------
Sub LeGros_Bouton()
Dim mBar As CommandBar
Dim St As MsoButtonStyle
St = msoButtonCaption
Set mBar = Application.CommandBars.Add(Name:="Denis")
With mBar
.Visible = True
With .Controls.Add(msoControlButton)
.Caption = "Aller vers Classeur3.xls"
.Style = St
.OnAction = "'module2.MaMacro ""c:Classeur3.xls"",""Feuil1"",""G50""'"
End With
End With
End Sub
'------------------------------------------

à chaque fois que tu cliqueras sur le bouton, le fichier
que tu as spécifié s'ouvrira....
'------------------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
On Error Resume Next
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
End Sub
'------------------------------------------

Amuse toi bien !



Bonjour,

J'ai un soucis avec les liens hypertexte !
Mes connaissances en Excel étant (très réduites), j'espère que vous
pouurez m'aider !

Dans un classeur, j'ai créé une barre de menu personnalisée, avec un
menu est des sous menus.
A chaque sous menu, je désire créer un lien hypertexte vers un autre
fichier qui se trouve dans un autre disque dur.

Une solution en VBA est-il possible ?

Merci d'avance

Kris
koukou40
Le #5137371
Merci !

Je vais tester la procédure.

A+

"MichDenis" %23X6Y%
Voici une façon de faire :

' Crée un bouton dans une nouvelle barre
'Tu renseignes adéquatement la ligne "OnAction" en stipulant
'le module où tu as mis ta macro, le nom du classeur que tu veux ouvrir
'le nom de la feuille et l'adresse de la cellule.

'------------------------------------------
Sub LeGros_Bouton()
Dim mBar As CommandBar
Dim St As MsoButtonStyle
St = msoButtonCaption
Set mBar = Application.CommandBars.Add(Name:="Denis")
With mBar
.Visible = True
With .Controls.Add(msoControlButton)
.Caption = "Aller vers Classeur3.xls"
.Style = St
.OnAction = "'module2.MaMacro
""c:Classeur3.xls"",""Feuil1"",""G50""'"
End With
End With
End Sub
'------------------------------------------

à chaque fois que tu cliqueras sur le bouton, le fichier
que tu as spécifié s'ouvrira....
'------------------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
On Error Resume Next
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
End Sub
'------------------------------------------

Amuse toi bien !



Bonjour,

J'ai un soucis avec les liens hypertexte !
Mes connaissances en Excel étant (très réduites), j'espère que vous
pouurez m'aider !

Dans un classeur, j'ai créé une barre de menu personnalisée, avec un
menu est des sous menus.
A chaque sous menu, je désire créer un lien hypertexte vers un autre
fichier qui se trouve dans un autre disque dur.

Une solution en VBA est-il possible ?

Merci d'avance

Kris




koukou40
Le #5288591
On 24 jan, 17:28, "MichDenis"
À bien y penser, la macro fait plus de sens écrite de cette manière :

'-----------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
Dim SS As String, F As Object
On Error Resume Next

SS = Split(Fichier, "")(UBound(Split(Fichier, "")))

Set F = Workbooks(SS)
If Err <> 0 Then
    Err = 0
    With Workbooks
        With .Open(Fichier)
            With .Worksheets(Feuille)
                .Select
                .Range(Cellule).Select
            End With
        End With
    End With
Else
    Application.Goto Workbooks(SS).Worksheets(Feuille).Range(Cellule)
End If
End Sub
'-----------------------------------

"MichDenis" %23X6Y%
Voici une façon de faire :

' Crée un bouton dans une nouvelle barre
'Tu renseignes adéquatement la ligne "OnAction" en stipulant
'le module où tu as mis ta macro, le nom du classeur que tu veux ouvrir
'le nom de la feuille et l'adresse de la cellule.

'------------------------------------------
Sub LeGros_Bouton()
Dim mBar As CommandBar
Dim St As MsoButtonStyle
St = msoButtonCaption
Set mBar = Application.CommandBars.Add(Name:="Denis")
With mBar
    .Visible = True
    With .Controls.Add(msoControlButton)
        .Caption = "Aller vers Classeur3.xls"
        .Style = St
        .OnAction = "'module2.MaMacro ""c:Classeur3.xls"",""Feu il1"",""G50""'"
    End With
End With
End Sub
'------------------------------------------

à chaque fois que tu cliqueras sur le bouton, le fichier
que tu as spécifié s'ouvrira....
'------------------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
On Error Resume Next
With Workbooks
    With .Open(Fichier)
        With .Worksheets(Feuille)
            .Select
            .Range(Cellule).Select
        End With
    End With
End With
End Sub
'------------------------------------------

Amuse toi bien !


Bonjour,

J'ai un soucis avec les liens hypertexte !
Mes connaissances en Excel étant (très réduites), j'espère que vou s
pouurez m'aider !

Dans un classeur, j'ai créé une barre de menu personnalisée, avec un
menu est des sous menus.
A chaque sous menu, je désire créer un lien hypertexte vers un autre
fichier qui se trouve dans un autre disque dur.

Une solution en VBA est-il possible ?

Merci d'avance

Kris


Bonjour,
Je n'y comprends rien !
J'y arrive pas.

Pouvez vous m'envoyer (SVP) un fichier exemple que je puisse
comprendre le fonctionnement ?

Merci

Kris

MichDenis
Le #5143691
| Bonjour,
| Je n'y comprends rien !
| J'y arrive pas.

Super ! Je vois que tu fais des efforts énormes pour communiquer
les éléments qui te causent problèmes.

Monsieur veut du tout cuit... une solution qu'il n'aura qu'à copier-coller !!!
Tu as frappé à la mauvaise porte.

Tu t'organises avec ceci... c'est ma dernière intervention sur ce fil.




Les propositions faites étaient pour des liens vers d'autres classeurs exclusivement

Voici une façon plus générale : Lors de la création, tu indiques dans le
code de création de chaque bouton, l'adresse du lien hypertexte.
Tu pourras ouvrir soit des fichiers excel, word.... ou un lien internet.

Le truc "'module2.MaMacro" signifie que la macro "MaMacro" est
située dans un module standard nommée "Module2", tu adaptes selon
ton application.

'----------------------------------
Sub LeGros_Bouton()
Dim mBar As CommandBar
Dim St As MsoButtonStyle
St = msoButtonCaption
Set mBar = Application.CommandBars.Add(Name:="Denis")
With mBar
.Visible = True
With .Controls.Add(msoControlButton)
.Caption = "http://www.cjoint.com/"
.Style = St
.OnAction = "'module2.MaMacro ""http://www.cjoint.com/""'"
End With
End With
End Sub

'----------------------------------
Sub MaMacro(Document)
'Document dans Excel sur la méthode FollowHyperlink
ActiveWorkbook.FollowHyperlink Address:=Document, NewWindow:=True
End Sub
'----------------------------------






On 24 jan, 17:28, "MichDenis"
À bien y penser, la macro fait plus de sens écrite de cette manière :

'-----------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
Dim SS As String, F As Object
On Error Resume Next

SS = Split(Fichier, "")(UBound(Split(Fichier, "")))

Set F = Workbooks(SS)
If Err <> 0 Then
Err = 0
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
Else
Application.Goto Workbooks(SS).Worksheets(Feuille).Range(Cellule)
End If
End Sub
'-----------------------------------

"MichDenis" %23X6Y%
Voici une façon de faire :

' Crée un bouton dans une nouvelle barre
'Tu renseignes adéquatement la ligne "OnAction" en stipulant
'le module où tu as mis ta macro, le nom du classeur que tu veux ouvrir
'le nom de la feuille et l'adresse de la cellule.

'------------------------------------------
Sub LeGros_Bouton()
Dim mBar As CommandBar
Dim St As MsoButtonStyle
St = msoButtonCaption
Set mBar = Application.CommandBars.Add(Name:="Denis")
With mBar
.Visible = True
With .Controls.Add(msoControlButton)
.Caption = "Aller vers Classeur3.xls"
.Style = St
.OnAction = "'module2.MaMacro ""c:Classeur3.xls"",""Feuil1"",""G50""'"
End With
End With
End Sub
'------------------------------------------

à chaque fois que tu cliqueras sur le bouton, le fichier
que tu as spécifié s'ouvrira....
'------------------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
On Error Resume Next
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
End Sub
'------------------------------------------

Amuse toi bien !


Bonjour,

J'ai un soucis avec les liens hypertexte !
Mes connaissances en Excel étant (très réduites), j'espère que vous
pouurez m'aider !

Dans un classeur, j'ai créé une barre de menu personnalisée, avec un
menu est des sous menus.
A chaque sous menu, je désire créer un lien hypertexte vers un autre
fichier qui se trouve dans un autre disque dur.

Une solution en VBA est-il possible ?

Merci d'avance

Kris


Bonjour,
Je n'y comprends rien !
J'y arrive pas.

Pouvez vous m'envoyer (SVP) un fichier exemple que je puisse
comprendre le fonctionnement ?

Merci

Kris

koukou40
Le #5143681
Je ne t'ai rien demandé, l'Ami !
Sois tu m'aides sans te "prendre" pour LE tenor de ce newsgroup, soit
tu passes ton chemin !

Ok ?

De toute façon, j'avais déjà la solution...

Salut LaMiche !


On 25 jan, 14:43, "MichDenis"
| Bonjour,
| Je n'y comprends rien !
| J'y arrive pas.

Super ! Je vois que tu fais des efforts énormes pour communiquer
les éléments qui te causent problèmes.

Monsieur veut du tout cuit... une solution qu'il n'aura qu'à copier-coll er !!!
Tu as frappé à la mauvaise porte.

Tu t'organises avec ceci... c'est ma dernière intervention sur ce fil.

Les propositions faites étaient pour des liens vers d'autres classeurs e xclusivement

Voici une façon plus générale : Lors de la création, tu indiques d ans le
code de création de chaque bouton, l'adresse du lien hypertexte.
Tu pourras ouvrir soit des fichiers excel, word.... ou un lien internet.

Le truc "'module2.MaMacro"  signifie que la macro "MaMacro" est
située dans un module standard nommée "Module2", tu adaptes selon
ton application.

'----------------------------------
Sub LeGros_Bouton()
Dim mBar As CommandBar
Dim St As MsoButtonStyle
St = msoButtonCaption
Set mBar = Application.CommandBars.Add(Name:="Denis")
With mBar
    .Visible = True
    With .Controls.Add(msoControlButton)
        .Caption = "http://www.cjoint.com/"
        .Style = St
        .OnAction = "'module2.MaMacro ""http://www.cjoint.com/"" '"
    End With
End With
End Sub

'----------------------------------
Sub MaMacro(Document)
'Document dans Excel sur la méthode FollowHyperlink
ActiveWorkbook.FollowHyperlink Address:=Document, NewWindow:=True
End Sub
'----------------------------------


On 24 jan, 17:28, "MichDenis"




À bien y penser, la macro fait plus de sens écrite de cette manièr e :

'-----------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
Dim SS As String, F As Object
On Error Resume Next

SS = Split(Fichier, "")(UBound(Split(Fichier, "")))

Set F = Workbooks(SS)
If Err <> 0 Then
Err = 0
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
Else
Application.Goto Workbooks(SS).Worksheets(Feuille).Range(Cellule)
End If
End Sub
'-----------------------------------

"MichDenis" %23X6Y%
Voici une façon de faire :

' Crée un bouton dans une nouvelle barre
'Tu renseignes adéquatement la ligne "OnAction" en stipulant
'le module où tu as mis ta macro, le nom du classeur que tu veux ouvri r
'le nom de la feuille et l'adresse de la cellule.

'------------------------------------------
Sub LeGros_Bouton()
Dim mBar As CommandBar
Dim St As MsoButtonStyle
St = msoButtonCaption
Set mBar = Application.CommandBars.Add(Name:="Denis")
With mBar
.Visible = True
With .Controls.Add(msoControlButton)
.Caption = "Aller vers Classeur3.xls"
.Style = St
.OnAction = "'module2.MaMacro ""c:Classeur3.xls"",""Feuil1"",""G50""' "
End With
End With
End Sub
'------------------------------------------

à chaque fois que tu cliqueras sur le bouton, le fichier
que tu as spécifié s'ouvrira....
'------------------------------------------
Sub MaMacro(Fichier, Feuille, Cellule)
On Error Resume Next
With Workbooks
With .Open(Fichier)
With .Worksheets(Feuille)
.Select
.Range(Cellule).Select
End With
End With
End With
End Sub
'------------------------------------------

Amuse toi bien !


Bonjour,

J'ai un soucis avec les liens hypertexte !
Mes connaissances en Excel étant (très réduites), j'espère que v ous
pouurez m'aider !

Dans un classeur, j'ai créé une barre de menu personnalisée, avec un
menu est des sous menus.
A chaque sous menu, je désire créer un lien hypertexte vers un autre
fichier qui se trouve dans un autre disque dur.

Une solution en VBA est-il possible ?

Merci d'avance

Kris


Bonjour,
Je n'y comprends rien !
J'y arrive pas.

Pouvez vous m'envoyer (SVP) un fichier exemple que je puisse
comprendre le fonctionnement ?

Merci

Kris- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



MichDenis
Le #5143651
| De toute façon, j'avais déjà la solution...

Si tel était le cas, tu aurais pu le dire avant que j'y consacre la moindre seconde ! Non ?

Si tu avais la moindre idée de ce que c'est un forum et que tu avais démontré
la moindre intention de partager ton savoir et tes trouvailles, tu aurais pu communiquer
ta trouvaille dans un fichier tout bien ficelé à l'intention des usagers de ce forum ! Non ?

Pas besoin d'être un grand "Ténor" de quoi que ce soit, pour démontrer du respect et
du savoir-faire dans un environnement d'entraide comme ce forum....
Modeste
Le #5143291
Bonsour® Le basque avec ferveur ;o))) vous nous disiez :

Je ne t'ai rien demandé, l'Ami !
De toute façon, j'avais déjà la solution...


change de pseudo !!!
tu es Plonké !!!!
ton comportement est digne de : "Euskadi Ta Askatasuma"
t'en prendre ainsi à l'un des contributeurs le moins nombriliste de ce forum
te grilles aux yeux des autres !!!

--
@+
;o)))

Publicité
Poster une réponse
Anonyme