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

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.

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