Créer un lien hypertexte dans un doc word depuis excel

[mooneck]

Bonjour à tous,

 

J'ai une appli sur excel qui génère un mail automatiquement sous word.

lorsque je souhaite créer un lien hypertexte il me marque le message

d'erreur suivant :

 

Erreur d'exécution '450' :

Nombre d'arguments incorrect ou affectation de propriété incorrecte !

 

Voici le code que j'utilise :

 

dim appWD as Word.application

 

appWD.ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _

Address:="\\LeServeuraAtteindre\LeFichier", SubAddress:="", _

ScreenTip:="", TextToDisplay:="Lien"

 

si j'uitlise ce code dans une macro word , ca marche.

Mais depuis une macro excel , --> erreur

 

Quelqu'un peut-il m'aider à ce sujet ?

Merci d'avance

 

 

 

 

[winfield]

Bonjour,

Je vais peut-être dire une bêtise mais tu déclares "dim appWD as Word.application "

Sur Word ça roule, enfin je suppose. Mais pour Excel faut peut-être mettre "...XLS.application"

ou un truc comme ça, non ?

[mooneck]

Salut Winfield

 

En fait cette macro est déja dans excel donc il ne faux pas la déclarer.

[surligneur] Je ne veux pas insérer de lien hupertexte dans une feuille excel.[/surligneur]

 

résumé du programme :

depuis la macro excel, j'ouvre word , je crée ensuite un nouveau document

je génère le corps du message puis je voudrais rajouter un lien hypertexte.

 

si j'execute le code suivant :

 

 ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _ 
Address:="\\LeServeuraAtteindre\LeFichier", SubAddress:="", _ 
ScreenTip:="", TextToDisplay:="Lien" 

 

sous word (je ne déclare pas l'appli word) ca marche

 

maintenant sous excel

 

 appWD.ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _ 
Address:="\\LeServeuraAtteindre\LeFichier", SubAddress:="", _ 
ScreenTip:="", TextToDisplay:="Lien" 

 

je suis obligé de situer le document actif (donc je déclare l'appli word) mais là j'ai un message d'erreur

c'est peut etre la commande .hyperlinks.Add qui faut redeclarer et forcer en "commande word" ou un truc comme ca ?

 

 

[mooneck]

Salut

 

J'ai trouvé la solution :

 

 
appWD.ActiveDocument.Hyperlinks.Add Anchor:=appWD.Selection.Range, _ 
Address:="\\LeServeuraAtteindre\LeFichier", SubAddress:="", _ 
ScreenTip:="", TextToDisplay:="Lien" 

 

Il fallait ajouter [surligneur] appWD.[/surligneur] pour l'Anchor

Anchor:=appWD.Selection.Range

 

Merci Winfield

 

@+