[excel] Ajout d'hyperlien [Résolu]

Cow_B 41 Messages postés mardi 13 janvier 2004Date d'inscription 5 avril 2006 Dernière intervention - 5 avril 2006 à 13:16 - Dernière réponse : Cow_B 41 Messages postés mardi 13 janvier 2004Date d'inscription 5 avril 2006 Dernière intervention
- 5 avril 2006 à 15:16
Bonjour à vous !



J'aui un léger souci : je travail sur un petit programme qui est sensé
remplir une feuille Excel. L'une des colonnes de cette feuille Excel
doit contenir des liens hypertextes vers d'autres documents. Seulement,
je n'arrive pas à créer ces liens...



Voilà ce que j'ai essayer jusqu'à présent :



' Titre du nouveau document

Dim sTitreDoc As String

' Nom de l'auteur du document

Dim sNomAuteur As String

' Prénom de l'auteur du document

Dim sPrenomAuteur As String

' Description du document

Dim sDescDoc As String

' Date de création du document

Dim sDate As Variant

' Document Excel qu'on met à jour

Dim excel As Object



sNouveauDoc = txtNomDoc

sTitreDoc = txtTitreDoc

sNomAuteur = txtNomAuteur

sPrenomAuteur = txtPrenomAuteur

sDescDoc = txtDescDoc

sDate = Date



' On ouvre le fichier Excel qu'on met à jour

Set excel = CreateObject("Excel.Application")

excel.Workbooks.Open REPERTOIRE + "" + FICHIER_EXCEL



' On rentre le lien vers le doc

excel.Range("A14").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sTitreDoc, TextToDisplay:=sTitreDoc

' On rentre la description du doc

excel.Range("B14").Select

excel.ActiveCell.FormulaR1C1 = sDescDoc

' On rentre la date de création du doc

excel.Range("C14").Select

excel.ActiveCell.FormulaR1C1 = sDate

' On rentre le nom de l'auteur

excel.Range("E14").Select

excel.ActiveCell.FormulaR1C1 = sPrenomAuteur + " " + sNomAuteur



excel.Visible = True

AppActivate excel.Name




J'ai une erreur qui est générée à ce niveau là :

"ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sTitreDoc, TextToDisplay:=sTitreDoc"



Si quelqu'un a une idée pour moi, je suis preneur , merci !


Cow-B
-----------------------------------------------
C'est au pied du mur.... qu'on voit le mieux le mur
-----------------------------------------------
Afficher la suite 

3 réponses

Meilleure réponse
Cow_B 41 Messages postés mardi 13 janvier 2004Date d'inscription 5 avril 2006 Dernière intervention - 5 avril 2006 à 15:16
3
Merci
Bon, j'ai trouvé quelle était mon erreur.



Dans la ligne :

"excel.ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sTitreDoc, TextToDisplay:=sTitreDoc"

ce qui pose problème, c'est "Anchor:=Selection"

j'ai du le remplacer par "Anchor:=excel.Range(C_LIEN & lLigne).Offset(0, 0)"



Ce n'est peut être pas très catholique, on peut même dire que c'est de la bidouille... mais le fait est que çà marche ainsi :D



Merci de m'avoir aidé ^^


Cow-B
-----------------------------------------------
C'est au pied du mur.... qu'on voit le mieux le mur
-----------------------------------------------

Merci Cow_B 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 118 internautes ce mois-ci

xcxl 101 Messages postés mardi 21 janvier 2003Date d'inscription 16 octobre 2015 Dernière intervention - 5 avril 2006 à 14:23
0
Merci
jai verifier la syntaxe et la ligne qui fait lerreur et ya pas de prob, donc essaye de changer les donne que tu met dedans. Par exemple, remplace stitredoc par "c:\dossier" car ya peut etre un prob avec ta variable.
Cow_B 41 Messages postés mardi 13 janvier 2004Date d'inscription 5 avril 2006 Dernière intervention - 5 avril 2006 à 14:52
0
Merci
En fait, je me rends compte que j'ai oublié de préciser un petit détail
qui fait toute la différence... (ch'tite tête de linotte moi).



Tout le code que j'ai montré précédemment est écrit pour une macro de
Word. Et c'est à partir de Word donc que j'ouvre mon fichier Excel.



Aussi, pour le code que j'ai montré précédemment, l'erreur qui m'est
indiquée est : "Erreur d'éxécution '424' : Objet Requis" pour la ligne
: "ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sTitreDoc,
TextToDisplay:=sTitreDoc"



Si j'essaie de modifier cette ligne par :

"excel.ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sTitreDoc, TextToDisplay:=sTitreDoc"

j'ai l'erreur suivante : "Erreur d'exécution '.2147417851 (80010105)' :
Erreur Automation Le serveur a généré une exception"



PS : j'ai vérifié mes variables, il n'y a aucun soucis de ce coté là....



Voilà, si quelqu'un a une idée :p






Cow-B
-----------------------------------------------
C'est au pied du mur.... qu'on voit le mieux le mur
-----------------------------------------------

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.