Question Excel et Hyperlink (Résolu)

Bonjour à tous,

Je ne permets ce post car je butte sur un problème:

Je viens de créer un script me permettant de récupérer des informations que je classe dans différentes feuilles de calculs Excel. Je souhaiterais créer une nouvelle feuille de calcul me servant d'index avec des Hyperlinks vers les autres feuilles de calcul. Par contre je ne sais absolument par comment créer ces Hyperlinks... Pourriez-vous m'aider, svp?

En vous remerciant d'avance.

Bien cordialement.<br><br>Message édité par: Arnaud, à: 17/12/09 23:17

Merci beaucoup pour votre réponse,

J'ai trouvé ceci:

$comments = @'
Script name: Add-ExcelHyperlink.ps1
Created on: Wednesday, July 11, 2007
Author: Kent Finkle
Purpose: How can I use Windows Powershell to
Add a Hyperlink to an Excel Spreadsheet?
'@
#

---

function Release-Ref ($info) {
foreach ( $p in $args ) {
([System.Runtime.InteropServices.Marshal]::ReleaseComObject(
[System.__ComObject]$p) -gt 0)
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()
}
}
#

---

$link = \&quot;www.microsoft.com/technet/scriptcenter\";

$xl = new-object -comobject excel.application
$xl.Visible = $True

$wb = $xl.Workbooks.Add()

$ws = $wb.Worksheets.Item(1)

$ws.Cells.Item(1, 1).Value() = \&quot;Script Center\&quot;

$r = $ws.Range(\&quot;A1\&quot;)

$objLink = $ws.Hyperlinks.Add($r, $link)

$a = Release-Ref $r $ws $wb $xl

J'ai fais un test avec ce script et ça fonctionne mais je ne trouve pas de solution pour faire le link vers une feuille de mon classeur. Si quelqu'un à une solution.

En vous remerciant.

Je viens de voir que le lien que vous m'avez envoyé était le même que celui que j'avais trouvé.

Merci beaucoup, Laurent Dardenne.

Je viens de trouver cette méthode, plus simple.
Mais le problème reste toujours le même... je n'arrive pas à faire d'hyperlink vers une feuille de calcul de mon classeur Excel.

$excel = New-Object -comobject Excel.Application
$excel.visible = $True
$MyWorkBook = $excel.Workbooks.Add()
$MyWorksheets = $MyWorkBook.Worksheets.Item(1)
$MyWorksheets.Cells.Item(1,1) = \&quot;test\&quot;
$objRange = $MyWorksheets.Range(\&quot;A1\&quot;)
$objLink = \&quot;http://www.microsoft.com\&quot;
$MyWorksheets.HyperLinks.Add($objRange, $objLink)

Je viens de voir que le lien que vous m'avez envoyé était le même que celui que j'avais trouvé.

Merci beaucoup, Laurent Dardenne.