Je cherche a lister tous les liens vers d'autres fichiers pour un fichier excel passer un argument, a priori pas complique mais j'ai commence le VBscript y a 3 jours   . J'appelle le programme via un cmd qui lui lance tous les xls de certains repertoires suivants certains criteres.
 
Avec Word, j'ai pas eu de probleme   , mais avec excel   :
j'ai des messages indiquant parfois des modifications de liens entre classeur (voulez vous mettre a jour..., je clique non mais je ne sais pas si l'extraction fonctionne correctement par la suite), alors que j'ai mis objexcel.DisplayAlerts=False.
 
En plus je recherche que dans 1 worksheet, y a t il un moyen d'avoir le nombre de feuille via une commande afin de faire ensuite un do while ... loop
 
Ci dessous le code si vous pouvez m'aider a corriger les bugs, merci bcp de m'aider un peu
 
 
'declaration des variables
Dim nomFichier, objExcel, resultatxls, args, link,Process, ProcessSet
ProcessName="Excel.exe"
 
'On verifie s il y a bien l argument de la fonction qui est le nom du fichier
Set args = Wscript.Arguments
If args.count=0 Then  
WScript.Echo "il manque les parametres"
WScript.quit 'on sort du vbs si pas d argument
else
nomFichier=args(0)
end if
 
'Definition du fichier resultat
resultatxls="C:\Documents and Settings\users\Mes documents\resultatxls.txt"
 
'Ouverture des applications
Set objExcel = CreateObject("Excel.Application" )
objExcel.Visible = False          'on n affiche pas excel
objExcel.DisplayAlerts = False    'on desactive les alarmes
 
'ouverture du fichier de resultat
Set objFSO = CreateObject("Scripting.FileSystemObject" )  
Set objFilexls = objFSO.CreateTextFile(resultatxls)
 
'ouverture du fichier Excel
Set objWorkbook = objExcel.WorkBooks.Open(nomFichier)   ' on ouvre le fichier voulu
Set objWorksheet = objExcel.Worksheets(1)               ' on prend la feuille excel 1
objWorksheet.Activate                                   ' on l active
 
'recherche des hyperlinks non vide et copie dans le fichier de resultat
Set colHyperlinks = objWorkSheet.Hyperlinks             ' on prend tous les liens de la feuille
For Each objHyperlink in colHyperlinks                  ' pour chaque lien non vide on le copie dans le fichier
    if not (objHyperlink.Address="" ) then
       objFilexls.WriteLine  chr(34) & objHyperlink.Address & Chr(34) & " ; " & objHyperlink.TextToDisplay  
    end if
Next
 
 
'fermeture des ressources
objFilexls.Close
objworkbook.Close
objExcel.Quit
 
'kill de excel s'il reste ouvert en arriere plan
Set shell = WScript.CreateObject("WScript.Shell" )
Set ProcessSet=GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).InstancesOf _
 ("Win32_process" )
for each Process in ProcessSet
 If InStr(1,Process.Name, ProcessName, vbTextCompare)>0 Then
    result=Process.terminate(0)
        end if
Next
Wscript.quit
 
 
 

j'ai trouve une partie de la reponse, on verra pour la suite
 
for each sheet in objworkbook.worksheets
  sheet.activate
  ....
Next