[excel] Ajout d'hyperlienRésolu

Question

Bonjour &#224; vous !



J'aui un l&#233;ger souci : je travail sur un petit programme qui est sens&#233;
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 &#224; cr&#233;er ces liens... 



Voil&#224; ce que j'ai essayer jusqu'&#224; pr&#233;sent :



    ' Titre du nouveau document

    Dim sTitreDoc As String

    ' Nom de l'auteur du document

    Dim sNomAuteur As String

    ' Pr&#233;nom de l'auteur du document

    Dim sPrenomAuteur As String

    ' Description du document

    Dim sDescDoc As String

    ' Date de cr&#233;ation du document

    Dim sDate As Variant

    ' Document Excel qu'on met &#224; 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 &#224; 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&#233;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&#233;n&#233;r&#233;e &#224; ce niveau l&#224; : 

"ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sTitreDoc, TextToDisplay:=sTitreDoc"



Si quelqu'un a une id&#233;e pour moi, je suis preneur , merci !


Cow-B
-----------------------------------------------
C'est au pied du mur.... qu'on voit le mieux le mur
-----------------------------------------------

Cow_B · Accepted Answer

Bon, j'ai trouv&#233; quelle &#233;tait mon erreur.



Dans la ligne : 

"excel.ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sTitreDoc, TextToDisplay:=sTitreDoc" 

ce qui pose probl&#232;me, c'est "Anchor:=Selection"

j'ai du le remplacer par "Anchor:=excel.Range(C_LIEN & lLigne).Offset(0, 0)"



Ce n'est peut &#234;tre pas tr&#232;s catholique, on peut m&#234;me dire que c'est de la bidouille... mais le fait est que &#231;&#224; marche ainsi :D



Merci de m'avoir aid&#233; ^^


Cow-B
-----------------------------------------------
C'est au pied du mur.... qu'on voit le mieux le mur
-----------------------------------------------

xcxl · Answer

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

En fait, je me rends compte que j'ai oubli&#233; de pr&#233;ciser un petit d&#233;tail
qui fait toute la diff&#233;rence... (ch'tite t&#234;te de linotte moi).



Tout le code que j'ai montr&#233; pr&#233;c&#233;demment est &#233;crit pour une macro de
Word. Et c'est &#224; partir de Word donc que j'ouvre mon fichier Excel.



Aussi, pour le code que j'ai montr&#233; pr&#233;c&#233;demment, l'erreur qui m'est
indiqu&#233;e est : "Erreur d'&#233;x&#233;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&#233;cution '.2147417851 (80010105)' :
Erreur Automation Le serveur a  g&#233;n&#233;r&#233; une exception"



PS : j'ai v&#233;rifi&#233; mes variables, il n'y a aucun soucis de ce cot&#233; l&#224;....



Voil&#224;, si quelqu'un a une id&#233;e :p






Cow-B
-----------------------------------------------
C'est au pied du mur.... qu'on voit le mieux le mur
-----------------------------------------------

[excel] Ajout d'hyperlien

3 réponses

Discussions similaires