Créer un lien hypertext dans Excel depuis Vb

Résolu
dany108
Messages postés
71
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
6 janvier 2011
- 14 mars 2008 à 19:58
dany108
Messages postés
71
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
6 janvier 2011
- 17 mars 2008 à 19:48
Bonsoir à tous,

j'essaie vainement de créer un lien hypertext dans Excel
depuis Vb
de cette façon :

AppExcel.Worksheets(1).Hyperlinks.Add
AppExcel.Worksheets(1).Range("A1"),
AppExcel.Worksheets(1).Sheets("Menu").Select

Impossible.

J'ai
fouillé un peu le Net et j'ai trouvé la fonction LIEN_HYPERTEXT mais elle
fonctionne pour un site internet, pour un fichier sur le disque
dur mais
pas pour se déplacer sur un autre onglet dans le même classeur.

Si
quelqu'un a la solution.............

D'avance, merci.

Dany108

2 réponses

dany108
Messages postés
71
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
6 janvier 2011
1
17 mars 2008 à 19:48
Bonsoir,
j'ai trouvé aujourd'hui
Dans projet/référence je ne met jamais Microsoft Excel et dans
ma
déclaration de variable je ne met pas :
Dim appExcel As New
Excel.Application
mais Dim AppExcel as Object
Tout cela pour être à l'abri
des différentes versions d'Excel.

Par contre j'ai trouvé quand même
:

Set AppExcel = CreateObject("Excel.Application")
AppExcel.Visible =
False
AppExcel.Application.Workbooks.Add

AppExcel.Worksheets(1).Cells(LigneExcel,
ColonneExcel).Font.Name ="Arial"
AppExcel.Worksheets(1).Cells(LigneExcel,
ColonneExcel).Font.FontStyle

="Normal"
AppExcel.Worksheets(1).Cells(LigneExcel, ColonneExcel).Value =
"Retour au
menu"
AppExcel.Worksheets(1).Hyperlinks.Addn
AppExcel.Worksheets(1).Range("A1"),
NomFichier,
"Menu!A1"

AppExcel.Worksheets(1).SaveAs NomDuDossier &
NomFichier
AppExcel.Workbooks.Close
AppExcel.Quit
Set AppExcel =
Nothing

NomFichier doit être le nom du fichier sans le chemin mais avec
l'extension
Le nom d'onglet doit être encadré de simples cotes si il contient
un blanc

Dany108
3
niko168b
Messages postés
7
Date d'inscription
vendredi 14 mars 2008
Statut
Membre
Dernière intervention
22 septembre 2008

17 mars 2008 à 14:05
Je commence à faire des trucs sous Excel avec VB mais je maitrise pas assez pour être sûr. Ce que je peux te dire c'est que la solution ressemble plus à ça sous VBA:
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Feuil1!A6", TextToDisplay:="ref A6"

Donc en VB je tenterais ça :
AppExcel.Worksheets(1).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Feuil1!A6", TextToDisplay:="ref A6"

Bonne chance.

Niko
0