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
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
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
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
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
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
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
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
