Créer un lien hypertext dans Excel depuis Vb [Résolu]

Signaler
Messages postés
71
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
6 janvier 2011
-
Messages postés
71
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
6 janvier 2011
-
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

Messages postés
71
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
6 janvier 2011
1
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
Messages postés
7
Date d'inscription
vendredi 14 mars 2008
Statut
Membre
Dernière intervention
22 septembre 2008

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