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,
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,
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
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 !
a écrit dans le message de news:
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
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 !
<koukou40@free.fr> a écrit dans le message de news:
6d85b053-87b5-403e-84dc-aa3cade97f1f@d70g2000hsb.googlegroups.com...
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
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 !
a écrit dans le message de news:
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
À 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" a écrit dans le message de news:
%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 !
a écrit dans le message de news:
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
À 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" <michde...@hotmail.com> a écrit dans le message de news:
%23X6Y%23BqXIHA.4...@TK2MSFTNGP06.phx.gbl...
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 !
<kouko...@free.fr> a écrit dans le message de news:
6d85b053-87b5-403e-84dc-aa3cade97...@d70g2000hsb.googlegroups.com...
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
À 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" a écrit dans le message de news:
%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 !
a écrit dans le message de news:
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
À 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" a écrit dans le message de news:
%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 !
a écrit dans le message de news:
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
À 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" <michde...@hotmail.com> a écrit dans le message de news:
%23X6Y%23BqXIHA.4...@TK2MSFTNGP06.phx.gbl...
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 !
<kouko...@free.fr> a écrit dans le message de news:
6d85b053-87b5-403e-84dc-aa3cade97...@d70g2000hsb.googlegroups.com...
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
À 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" a écrit dans le message de news:
%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 !
a écrit dans le message de news:
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.
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
'----------------------------------
a écrit dans le message de news:
On 24 jan, 17:28, "MichDenis" wrote:À 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" a écrit dans le message de news:
%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 !
a écrit dans le message de news:
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 -
| 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
'----------------------------------
<kouko...@free.fr> a écrit dans le message de news:
4478fb76-a497-42f5-9a2f-504be4152...@p69g2000hsa.googlegroups.com...
On 24 jan, 17:28, "MichDenis" <michde...@hotmail.com> wrote:
À 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" <michde...@hotmail.com> a écrit dans le message de news:
%23X6Y%23BqXIHA.4...@TK2MSFTNGP06.phx.gbl...
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 !
<kouko...@free.fr> a écrit dans le message de news:
6d85b053-87b5-403e-84dc-aa3cade97...@d70g2000hsb.googlegroups.com...
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 -
| 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
'----------------------------------
a écrit dans le message de news:
On 24 jan, 17:28, "MichDenis" wrote:À 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" a écrit dans le message de news:
%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 !
a écrit dans le message de news:
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 -
Je ne t'ai rien demandé, l'Ami !
De toute façon, j'avais déjà la solution...
Je ne t'ai rien demandé, l'Ami !
De toute façon, j'avais déjà la solution...
Je ne t'ai rien demandé, l'Ami !
De toute façon, j'avais déjà la solution...